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The source code is organized into several main sections: 
Common: 

iltypes.h - portable data type definitions 

ilmacro.h —portable macros for common utility functions 

iltime.h - prototypes for date & time conversion functions 

ilutil.h - prototypes for more utility functions 

buffer, c - code for a buffer management mechanism 

iltbl.h - definitions of table info, including field attributes 

Engine: 

ilx.h 
ilxapi.h 

loadflds.c - code to assimilate field lists & field map; feeds field into to Synchronizer 
xlate.c - code that drives a synchronization job from start to finish 

General Translation Code (used by Synchronizer and by Translators) 
iltr.h 

iltrfh.h - function prototypes 
loadmap.c - get field info ready for use by translators 
charmap.c - map text strings from one character set to another 
fidget, c - get field value from intermediate storage; do field mapping if necessary 
fldput.c - put field value into intermediate storage 
^ fldtype.c - get info about a field 

sst.c - Section SubType (origin tag) code 

General Translation Code for handling Recurring Items and Fanning 
ilrpt.h - defines how recurrence patterns are encoded 
rptnextc - compute Next Date that belongs to a recurrence pattern 
unfold.c - Fanning code to build an array of most useful dates 
getrep.c - Get recurrence pattern from intermediate storage 
putrepx - Put recurrence pattern into intermediate storage 

Generic Translator Code (used to build specific Translators) 

export.c - top-level for reading records from a Database into Intermediate Storage 

importx - top-level for writing records into a Database from Intermediate Storage 

ilxtrans.cpp - "C" wrapper for underlying "C++" code 

ci 1 trans, h - definition of the general Translator class 

ciltrans.cpp - implementation of the general Translator class 

cilrec.h - definition of the 'Record' class, for translators 

cilrec.cpp - implementation of the 'Record' class for translators 

cilfield.h - definition of Field-handling class for translators 

cilfield.cpp - implementation of field-handling class 

Synchronizer 

iltif.h - externally visible definitions 

iltiffh.h - prototypes for all synchronizer entrypoints 

tif.h - internal definitions 

tiffh.h - prototypes for internal functions 

tifsynd.h 

tifirc.h - Ids for all resources 

iltif.rc - resources (strings) 

iltif.cpp - Mostly top-level entrypoints 

iltifa.cpp - More top-level entrypoints and FANNING code 
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tif.cpp - Core code; phase control, field handling 

tifdump.cpp - Code to produce log entries describing workspace contents 

tifmex.cpp - Code to Merge Exclusion Lists 

tifputcpp - Code to do the Initial Analysis of records as they enter the workspace 
tifsync.cpp - Implements *CAAR' - the core of synchronization logic 
tifsync2.cpp - Record/Outcome Unloading Logic and History File Mgmt 
tiftable.cpp - Tables used to determine record outcomes 
tifutil.cpp - "Constraint-aware" Hashing and Comparing functions 
tifxutil.cpp - more basic functions 

tif_ilcr.cpp - Code to present a conflict to a user and handle user's resolution choice 
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ffif !defined( ILTYPES) 



/ 



* Name: ILTYPES.H 

* Purpose: Header file for shared data types 

* Author: Copyright (c) IntelliLink, 1994-1995 



/ 



ffdefine ILTYPES 



// Signal header inclusion 



ffifdef ILMAC 

ffinclude "ilrez.h" 
ffendif 



/ 



* Constants (formerly "ilconst.h") 



/ 



ffifdef SC 

ffundef NULL 
ffdefine NULL 

#endif 



ffifndef NULL 

ffifdef cplusplus 

ffdefine NULL 
ff else 

ffdefine NULL 
ffendi f 
ffendif 



( (void *)0) 



#if ! defined ( FALSE ) 

ffdefine FALSE 
ffendif 

ffif Idefined(TRUE) 

ffdefine TRUE 
ffendif 



ffif Idefined(SUCCESS) 

ffdefine SUCCESS 
ffendif 



0 



ffif ! defined ( FAILURE } 

ffdefine FAILURE 
ffendif 



-1 



/ 



Symbolic constants. 



/ 



ffdefine IL_ATTR_READ 

ffdefine I L_AT T R_WR I T E 

ffdefine IL_ATTR_APPEND 

ffdefine IL ATTR UPDATE 



1 
2 
3 
4 



// Read attribute 

// Create attribute 

// Append attribute 

// Update attribute 



/ 



* Limits. 



/ 



ffifdef ILWIN 



ffifndef WIN32 






// 


16-bit Windows 


ffdef ine 


MAX 


DIR 


65 


// 


Max size of directory name 


ffdefine 


MAX 


DRIVE 


3 


• II 


Max size of drive name 


ffdefine 


MAX 


EXT 


5 


II 


Max size of file extension 


ffdefine 


MAX 


FILE NAME 


13 


// 


Max size of file + extension 


ffdefine 


MAX 


'fname 


9 


II 


Max size of file name 


ffdefine 


MAX_ 


PATH 


65 


// 


Max size of path name 


Seise 








II 


32-bit Windows 


ffdef ine 


MAX 


DIR 


256 


II 


Max size of directory name 


ffdefine 


MAX 


DRIVE 


3 


II 


Max size of drive name 


ffdefine 


MAX 


EXT 


256 


II 


Max size of file extension 


ffdefine 


MAX 


FILE NAME 


256 


II 


Max size of file + extension 


ffdefine 


MAX 


FNAME 


256 


II 


Max size of file name 


ffdefine 


MAX 


PATH 


260 


II 


Max size of path name 



ffendif // _WIN32 
ffendif // ILWIN 
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ffifdef ILMAC 

ffdefine MAX_DIR 255 

ffdefine MAX_DRIVE 63 

ffdefine MAX_EXT 32 

ffdefine MAX_FILE_NAME 95 

ffdefine MAX_FNAME 64 

ffdefine MAX_PATH 255 

#endif 



// Macintosh 

// Max size of directory name 

// Max size of drive name 

// Max size of file extension 

// Max size of file + extension 

// Max size of file name 

// Max size of path name 



ffifdef ILDOS 

ffdefine MAX_DIR 65 

ffdefine MAX_ DRIVE 3 

ffdefine MAX_EXT 5 

ffdefine MAX_FILE_NAME 13 

ffdefine MAX _ FN AM E 9 

ffdefine MAX_PATH 65 

ffendif 



// 


DOS 


and i 


GEOS, and SYSMGR 


// 


Max 


size 


of 


directory name 


// 


Max 


size 


of 


drive name 


// 


Max 


size 


of 


file extension 


// 


Max 


size 


of 


file + extension 


// 


Max 


size 


of 


file name 


// 


Max 


size 


of 


path name 



ffifdef SYSMGR 

ffdefine MAX_DIR 65 

ffdefine MAX_DRIVE 3 

ffdefine MAX_EXT 5 

ffdefine MAX_FILE_NAME 13 

ffdefine MAX_FNAME 9 

ffdefine MAX_PATH 65 

ffendif 



// 


HP 


SYSMGR 




// 


Max 


si ze 


of 


di rectory name 


// 


Max 


size 


of 


drive name 


// 


Max 


size 


of 


file extension 


// 


Max 


size 


of 


file + ex tens ion 


// 


Max 


si ze 


of 


file name 


// 


Max 


size 


of 


path name 



// 


For 


"everyone" 












ffdefine 


MAX 


APP DATA FIELDS 


1 


//OBSOLETE: 


use 


ILTR EXTRA FIELDS ALWAYS 


ffdefine 


max" 


~APP NAME 


26 




// 


Max 


size of application name 


#def ine 


max" 


"far ptrs 


100 




// 


Max 


number of far pointers 


ffdef ine 


max" 


"field len 


512 




// 


Max 


size of field 


ffdef ine 


max" 


"functs 


10 




// 


Max 


number of functions 


ffdef ine 


max" 


"if incr 


8192 




// 


Max 


IF record increment 


ffdefine 


max" 


"if alloc 


36864 




// 


Max 


size of IF record (32K+4K) 


ffdef ine 


max" 


"if recsize 


4096 




// 


Default size of IF record 


ffdefine 


max" 


"line len 


512 




// 


Max 


line length 


ffdef ine 


max" 


"MSG 


80 




// 


Max 


size of text message 


ffdefine 


MAX 


'REPEAT FIELDS 


2 


//OBSOLETE: 


use 


ILTR 


_EXTRA_FIELDS_FOR_REPEAT 


ffdef ine 


max' 


"USER FAR PTRS 


20 




// 


Max 


number of user far ptrs 



* Symbols. 

+ * / 

ffdefine IL_CLEAR_PASS -1 // Filter Item clearing value 

ffdefine IL_DATE_SIZE 8 // Alpha date field size 

ffdefine IL_TIME_SIZE 4 // Alpha time field size 

/ + 

.* Basic data types. 

V 

ffifdef ILWIN 

ffdefine LITTLE_ENDIAN 
ffifndef WIN32 



// Windows 

// Bytes are "backwards" 
// 16-bit Windows 



/* 

* Note that WORD and DWORD types are already defined in WINDEF.H 

* and not included here. 



V 



ffdefine 


DLLEXPORT 




// 


Exported DLL function 


ffdefine 


EXP 


_export 


// 


Export keyword for DLL 


ffdef ine 


IL CDECL 


cdecl 


// 


C declaration type 


ffdef ine 


IL DECL . 


WINAPI 


// 


C function declaration 


ffdefine 


IL DIST 


_far 


// 


Pointer distance 


ffdef ine 


IL HUGE 


huge 


// 


Huge pointer keyword 


ffdef ine 


IL FILEINFO 


OFSTRUCT 


// 


-Windows file info 


ffdef ine 


IL FINDINFO 


struct find t 


// 


Windows find info 


ffdefine 


IL HANDLE 


HANDLE 


// 


Windows memory handle 


ffdefine 


IL LPHANDLE 


IL_HANDLE IL_DIST * 


// 


Pointer to Window memory handle 


ffdef ine 


IL HFILE 


int 


// 


Windows file handle 


ffdef ine 


IL HFIND 


long 


// 


Windows find handle 


ffdef ine 


IL HINST 


HINSTANCE" 


// 


Instance handle 


ffdefine 


IL HKEY 


HANDLE 


// 


Settings access key handle 


ffdef ine 


IL HWIN 


HWND 


// 


Window handle 


ffdefine 


IL NULL HANDLE 


0 


// 


Windows null memory handle 
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ffdef ine 


IL_NULL HFILE 


-1 




// 


ft T ^ * 

ffdef ine 


IL_PCSTR 


LPCSTR 




// 


ffdef ine 


IL_PSTR 


LPSTR 




// 


ffdefine 


ILPINT 


LPINT 




// 


ffdef ine 


I L_SPRINTF 


wsprint f 




// 


ffdef ine 


INT8 


char 




// 


ffdef ine 


INT16 ~ 


short 




// 


ffdef ine 


INT32 


long 




ft 


ffdef ine 


UINT8 


unsigned 


char 


// 


ffdef ine 


UINT16 


unsigned 


short 


// 


#def ine 


UINT32 


unsigned 


long 


// 


ffdef ine 


IL_FILESEP_CH 


■W 




// 


#def me 


IL FILESEP STR 


n \\ M 




If 


ffdef ine 


IL_ENDLINE_STR 


M \r\n" 




// 


typedef 


INT16 B00L16; 






// 


typedef 


INT16 BOOLEAN; 






// 


se 








// 



fointer to read-only string 

Pointer to string 

Pointer to int 

String formatting function 

8 bit signed integer 

16 bit signed integer 

32 bit signed integer 

8 bit unsigned integer 

16 bit unsigned integer 

32 bit unsigned integer 

File name separator character 

Fi le name sepa rator string 

End of line separator string 

BOOLEAN type, ALWAYS 16 bits 
BOOLEAN type, system dependent 



// 32-bit Windows 



/ 



* Note 

* WORD 



ffdefine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdefine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
#def ine 
#def ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef i ne 
ffdef ine 



that BOOLEAN is already defined in WINNT.H and not included here, 
and DWORD are standard Windows types defined in WINDEF.H. 
V 

declspec (dllexport ) // Exported DLL function 

/ / Export keyword for DLL 

_cdecl 
WINAPI 



DLLEXPORT 
EXP 

IL_CDECL 
IL_DECL 
IL_DIST 
IL_HUGE 
IL_FILEINFO 
IL_FINDINFO 
IL_HANDLE 
I L_LPHANDLE 
IL_HFILE 
IL_HFIND 
IL_HINST 
IL_HKEY 
IL_HWIN 

IL_NULL_HANDLE 

IL_NULL_HFILE 

IL_PCSTR 

IL_PSTR 

ILPINT 

IL_SPRINTF 

INT8 

INT16 

INT32 

UINT8 

UINT16 

UINT32 

IL_FILESEP_CH 
IL_FILESEP_STR 
IL ENDLINE STR 



OFSTRUCT 

struct _finddata 

HGLOBAL 

IL_HANDLE * 

HFILE 

long 

HINSTANCE 

HKEY 

HWND 

{ (HGLOBAL) 0) 

( (HFILE)-l) 

LPCSTR 

LPSTR 

LPINT 

wsprint f 

char 

short 

long 

unsigned char 

unsigned short 

unsigned long 

'W 

"\\" 

"\r\n" 



typedef INT16 BOOL16; 

ffendif // _WIN32 
ffendif // ILWIN 

// OOS {and GEOS) types 

ffifdef ILDOS 

ffdefine LITTLE_ENDIAN 
DLLEXPORT 
EXP 

IL_CDECL _cdecl 
IL_DECL _cdecl 
IL_DIST 
IL_HUGE 
IL_FILEINFO 
IL_FINDINFO 
IL_HANDLE 
IL_LPHANDLE 
IL_HFILE 
IL HFIND 



// C declaration type 
// C function declaration 
// Pointer distance (obsolete) 
// Huge pointer (obsolete) 
// Windows file info 
/ / Wi ndows find i n f o 
// Windows memory handle 
// Pointer to Window memory handle 
// Windows file handle 
/ / Windows find handle 
// Instance handle 
// Settings access key handle 
// Window handle 
// Windows null memory handle 
// Windows null file handle 
// Pointer to read-only string 
// Pointer to string 
// Pointer to int 
// String formatting function 
// 8 bit signed integer 
// 16 bit signed integer 
// 32 bit signed integer 
// 8 bit unsigned integer 
// 16 bit unsigned integer 
// 32 bit unsigned integer 
// File name separator character 
// File name separator string 
// End of line separator string 

// BOOLEAN type, ALWAYS 16 bits 



ffdefine 
ffdef ine 
ffde f ine 
ffdefine 
ffdefine 
ffdef ine 
ffdefine 
ffdefine 
ffdefine 
ffdef ine 
ffdef ine 
ffdef ine 



huge 

int 
int 
int 

IL_HANDLE 
int 
long 



IL DIST + 



// DOS 

// Bytes are "backwards" 

// Exported DLL function 

// Export keyword 

// C declaration type 

// C function declaration 

// Pointer distance 

// Huge pointer keyword 

// DOS file data 

// DOS find data 

// DOS memory handle 

// Pointer to DOS memory handle 

// DOS file handle 

// DOS find handle 
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ffdef ine 


IL HINST 


unsigned 


int 


// 


ffdefine 


IL HKEY 


unsigned 


int 


// 


ffdefine 


IL_HWIN 


unsigned 


int 


// 


ffdefine 


IL NULL HANDLE 


0 




// 


ffdefine 


IL NULL HFILE 


-1 




// 


ffdefine 


IL PCSTR 


const char IL DIST 


* // 


ffdef ine 


IL PSTR~ 


char IL : 


DIST * 


// 


ffdef ine 


ILPINT 


int IL DIST * 


// 


ffdefine 


IL SPRINTF 


sprint f 




// 


ffdefine 


INT8 


char 




// 


ffdef ine 


INT16 


short 




// 


ffdef ine 


LONG 


long 




// 


ffdef ine 


INT32 


long 




// 


ffdefine 


BYTE 


unsigned 


char 


// 


ffdef ine 


UINT8 


unsigned 


char 


// 


ffdefine 


UINT 


unsigned 


short 


// 


ffdef ine 


UINT16 


unsigned 


short 


// 


frae Line 


UINT32 


uns igned 


long 


If 


ffdefine 


HFONT int 






// 


ffdef ine 


FAR P ROC void * 






// 


typedef 


FAR P ROC TIMERPROC; 




// 


ffdef ine 


IL FILESEP CH 


•\v 




// 


ffdefine 


IL FILESEP STR 


"\\" 




// 


ffdef ine 


IL_ENDLINE_STR 


"\r\n" 




// 


typedef 


INT16 BOOL16; 






// 


typedef 


INT16 BOOLEAN; 






// 


typedef 


UINT16 WORD; 






// 


typedef 


UINT32 DWORD; 






// 



Instance handle 

Settings access key handle 

Window handle 

DOS null memory handle 

DOS null file handle 

Pointer to read-only string 

Pointer to string 

Pointer to int 

String formatting function 

8 bit signed integer 

16 bit signed integer 

32 bit signed integer. 

32 bit signed integer 

8 bit unsigned integer 

8 bit unsigned integer 

16 bit unsigned integer 

16 bit unsigned integer 

32 bit unsigned integer 

Font handle 

Function pointer def 

Timer function pointer 

File name separator character 

File name separator string 

End of line separator string 



ffendif // ILDOS 



Macintosh types 



ffifdef ILMAC 






// 


Macintosh 


// 


Common types used on both 


Windows and Macintosh 


typedef 


unsigned char 


BYTE; 




// 


8 bits, unsigned 


typedef 


unsigned short 


WORD; 




// 


16 bits, unsigned 


typedef 


unsigned long 


DWORD; 




// 


32 bits, unsigned 


typedef 


unsigned int 


UINT; 




// 


Normally 32 bits, unsigned 


typedef 


signed long 


LONG; 




// 


32 bits, signed 


typedef 


char* 


LPSTR; 




// 


Pointer to read/write string 


typedef 


const char* 


LPCSTR; 




// 


Pointer to read-only string 


typedef 


BYTE* 


LPBYTE; 




// 


Pointer to a byte (unsigned) 


typedef 


int* 


LPINT; 




// 


Pointer to a signed integer 


typedef 


WORD* 


LPWORD; 




// 


Pointer to an unsigned int 


typedef 


long* 


LP LONG; 




// 


Pointer to a signed long 


typedef 


DWORD* 


LPDWORD; 




// 


Pointer to an unsigned long 


typedef 


void* 


LPVOID; 




// 


Void pointer 


typedef 


int 


(* FARPROC) (); 


// 


Function pointer def 


typedef 


FARPROC 


TIMERPROC; 




// 


Timer function pointer 


// 


Macintosh stores 


integers 


"high byte 


first" 


ffdef ine 


BIG_ENDIAN 






// 


Bytes are "forwards" 



// 


IntelliLink types for the Macintosh 






ffdef ine 


DLLEXPORT 




// 


Exported DLL function 


ffdef ine 


EXP 




// 


Export keyword 


ffdef ine 


IL CDECL 




// 


C declaration type 


ffdef ine 


IL DECL 




// 


C function declaration 


ffdefine 


IL DIST 




// 


Pointer distance 


ffdefine 


IL HUGE 




// 


Huge pointer keyword 


ffdef ine 


IL FILEINFO 


int 


// 


Mac file data 


ffdef ine 


IL_FINDINFO 


int 


// 


Mac find file data 


ffdefine 


IL HANDLE 


LPVOID 


// 


Mac memory handle (really a pointer) 


ffdefine 


IL LPHANDLE 


IL_HANDLE* 


// 


Pointer to Mac memory handle 


ffdefine 


IL HFILE 


int 


// 


Mac file handle 


ffdefine 


IL HFIND 


int 


// 


Mac find handle 


ffdefine 


IL_HINST 


unsigned int 


// 


Instance handle 


ffdefine 


IL HKEY 


IL_HANDLE 


// 


Settings access key handle 


ffdefine 


IL HWIN 


unsigned int 


// 


Window handle 


ffdefine 


IL NULL HANDLE 


0 


// 


Mac null memory handle 


ffdefine 


IL NULL HFILE 


-1 


// 


Mac null file handle 


ffdefine 


IL PCSTR 


LPCSTR 


// 


Pointer to read-only string 


ffdefine 


IL PSTR 


LPSTR 


// 


Pointer to string 
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ffdefine 


ILPINT 


LPINT 


II 


Pointer to int 


ffdefine 


IL SPRINTF 


sprint f 


II 


String formatting function 


ffdefine 


INT8 


cha r 


II 


8 bit signed integer 


ffdef ine 


INT16 


short 


II 


16 bit signed integer 


#def ine 


INT32 


• 

long 


II 


32 bit signed integer 


ffdefine 


UINT8 


BYTE 


II 


8 bit unsigned integer 


ffdef ine 


UINT16 


WORD 


II 


16 bit unsigned integer 


ffdef me 


UINT32 


DWORD 


II 


32 bit unsigned integer 


ffdef ine 


_MAX_DIR 


255 


II 


Max directory (folder) name 


ffdet ine 


MAX DRIVE 


255 


II 


Max drive name 


itae 1 1 ne 


L1A V rum 


o c c 
Zoo 


II 


Max extension name 


ffdef ine 


~MAX~FILE 


255 


II 


Max file name 


ffdef ine 


_MAX_PATH 


255 


II 


Max path name 


ffdet me 


H DC 1 n t 




II 


Device context 


nueii ne 


n c ur* i l n u 




1 1 


Font handle 


ffdef ine 


IL FILESEP CH 


• . i 

* 


II 


File name separator character 


ffdef ine 


IL FILESEP STR 


ft » It 

* 


II 


File name separator string 


ffdef ine 


IL_ENDLINE_STR 


"\n M 


II 


End of line separator string 


typedef 


INT16 B00L16; 




II 


BOOLEAN type, ALWAYS 16 bits 


typedef 


INT16 BOOLEAN; 




II 


BOOLEAN type, system dependent 



// 

ffdef ine 
ffdef ine 
#def ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 



DOS file attributes for the Macintosh 



A_NORMAL 
_ A_RDONLY 
~A_HIDDEN 

"a_system 
"a_volid 
"a_subdir 
"a arch 



0x00 
0x01 
0x02 
0x04 
0x08 
0x10 
0x20 



// Normal file 

// Read only file 

// Hidden file 

// System file 

// Volume ID file 

// Subdirectory 

// Archive file 



// File attributes as used in MACFile utilities 

ffdef ine MACFILE_L0CKED 0x01 // Mac file is locked (read-only) 

ffdefine MAC FILE_DI RECTORY 0x10 // Mac file is a directory 

ffdefine MACFILE_FLOPPY 0x02 // Mac file is root directory of floppy 

// Throw/catch data structure for the Macintosh 

typedef int CATCHBUF[9]; 



ffendif // ILMAC 



// System manager types 



ffifdef SYSMGR 




// 


System Manager 


ffdef ine 


LITTLE ENDIAN 




// 


Bytes are "backwards" 


ffdefine 


DLLEXPORT 




// 


Exported DLL function 


ffdefine 


EXP 




// 


Export keyword 


ffdef ine 


IL CDECL 


cdecl 


// 


C declaration type 


ffdef ine 


IL DECL 


cdecl 


// 


C function declaration 


ffdefine 


IL DIST 


_far 


// 


Pointer distance 


ffdefine 


IL HUGE 


huge 


// 


Huge pointer keyword 


ffdefine 


IL FILEINFO 


int 


// 


System Manager file data 


ffdef ine 


IL FINDINFO 


int 


// 


System Manager find data 


ffdef ine 


IL HANDLE 


char far ** 


// 


System Manager memory handle 


ffdefine 


IL LPHANDLE 


IL HANDLE IL DIST * 


// 


Pointer to SM memory handle 


ffdef ine 


IL HFILE 


FILE 


// 


System Manager file handle 


ffdefine 


IL HFIND 


int 


// 


System Manager find handle 


ffdefine 


IL HINST 


unsigned int 


// 


Instance handle 


ffdef ine 


IL HKEY 


unsigned int 


// 


Settings access key handle 


ffdef ine 


IL HWIN 


unsigned int 


// 


Window handle 


ffdef ine 


IL NULL HANDLE 


NULL 


// 


System Manager null handle 


ffdef ine 


IL NULL HFILE 


NULL 


// 


System Manager null handle 


ffdefine 


IL PCSTR 


const char IL DIST + 


// 


Pointer to read-only string 


ffdef ine 


IL PSTR 


char IL DIST * 


// 


Pointer to string 


ffdef ine 


ILPINT 


int IL_DIST * 


// 


Pointer to int 


ffdef ine 


IL SPRINTF 


sprintf 


// 


String formatting function 


ffdef ine 


INT8 


char 


// 


8 bit signed integer 


ffdef ine 


INT16 


short 


// 


16 bit signed integer 


ffdef ine 


INT32 


long 


// 


32 bit signed integer 


ffdefine 


LONG 


long 


// 


32 bit signed integer 


ffdef ine 


BYTE 


unsigned char 


// 


8 bit unsigned integer 


ffdef ine 


UINT8 


unsigned char 


// 


8 bit unsigned integer 


ffdef ine 


UINT 


unsigned short 


// 


16 bit unsigned integer 


ffdef ine 


UINT16 


uns igned short 


// 


16 bit unsigned integer 


ffdefine 


UINT32 


unsigned long 


// 


32 bit unsigned integer 


ffdef ine 


HFONT int 




// 


Font handle 
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ffdefine FAR PROC void * 
typedef FAR PROC TIMERPROC; 
ffdefine IL_FILESEP_CH 1 \\ 1 
ffdefine IL_FILESEP_STR "\\" 
ffdefine IL_ENDLINE_STR "\r\n" 

typedef INT16 BOOL16; 
typedef INT16 BOOLEAN; 
typedef UINT16 WORD; 
typedef UINT32 DWORD; 



// Function pointer def 

// Timer function pointer 

// File name separator character 

// File name sepa rator string 

// End of line separator string 

// BOOLEAN type, ALWAYS 16 bits 

// BOOLEAN type, system dependent 

// WORD is 16-bit unsigned 

// DWORD is 32-bit unsigned 



ffendif // SYSMGR 



// Make sure other common types 

ffifdef ILWIN 

ffdefine IL_PANY LPVOID 
Seise 

ffdefine I L_PANY void IL_DIST * 
ffendif // ILWIN 



are defined 

// Pointer to void type 
// Pointer to void type 



/* 

+ Definition of alpha Date type (used in intermediate file) 
V 



typedef st ruct 
( 

union 
{ 

struct 
{ 

char Year[4] ; // YYYY 

char Month[2] ; //MM 
char Day[2] ; // DD 

} str; 

char String [ IL_DATE_SIZE+1 ] ; 
} u; 
} IL_DATE; 

/* 

* Definition of Time type. 
+ V 

typedef struct 
{ 

union 
{ 

struct 
{ 

char Hour[2); // HH (00-23) 

char Minute[2]; // MM (00-59) 

} str; 

char String[IL_TIME_SIZE+l] ; 
} u; 
} IL TIME; 



/* 

* ILBASE definitions 



* The following definitions are used to declare functions that we 

* may want to put into an "ILBASE" DLL rather than statically 

* linking them into each translator. 

* Give ILBASEFN_PREFIX and ILBASEFN_SUFFIX NULL definitions to 

* leave such functions statically linked. 

* V 

ffifdef ILWIN_USING_ILBASE16 

ffdefine ILBASEFN_PREFIX 

ffdefine ILBASEFN_SUFFIX EXP 
ffelse 

ffifdef ILWIN_USING_ILBASE32 

ffdefine ILBASEFN_PREFIX DLLEXPORT 

ffdefine ILBASE FN_SUFFIX 
ffelse 

ffdefine ILBASE FN PREFIX 
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fldef ine 
#endi f 
ffendif 



I LBASEFN SUFFIX 



#def ine 
#def ine 
ffdef ine 
#def ine 
#def ine 
ffdef ine 



ILBASEFN 

ILBASEFN* 

ILBASEFN" 

ILBASEFN* 

ILBASEFN* 

ILBASEFN* 



BOOL 16 

"boolean 

"frHLIF 
IL_PSTR 
ILTB_ID 
ILTB 



PREFIX 

'prefix 
"prefix 
"prefix 
'prefix 



ffdefine ILBASEFN ILTB 



ffdefine 
ffdefine 
ffdefine 



ILBASEFN 

ILBASEFN' 

ILBASEFN* 



ILBASEFN 
ILBASEFN 
ILBASEFN 
ILBASEFN 
ILBASEFN 
PCONFIG \ 
ILBASEFN 
_PMAP \ 

ILBASEFN_PREFIX I 
int ILBASEFN_PREFIX 
INT32 ILBASEFN_PREFIX 
void ILBASEFN PREFIX 



BOOL16 I L_DECL 

BOOLEAN I L_DECL 

HILIF IL_DECL 

IL_PSTR IL_DECL 

ILTB ID IL DECL 



ILBASEFN 

ILBASEFN' 

ILBASEFN* 

ILBASEFN" 

ILBASEFN" 



SUFFIX 
SUFFIX 
SUFFIX 
SUFFIX 

"suffix 



PREFIX ILTB PCONFIG IL DECL ILBASEFN SUFFIX 



LTB_PMAP IL 
int ILj 
INT32 IL_ 
void IL 



_DECL ILBASEFN_SUFFIX 
DECL ILBAS£FN_SUFFIX 
DECL I LBASEFN_SUFFIX 
DECL ILBASEFN SUFFIX 



ffendif // ILTYPES 
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ffifndef ILMACRO 

/* 

* Name: ILMACRO.H 

■ * Purpose: Header file for IntelliLink macros 

* Author: Copyright (c) IntelliLink, 1994 

* / 

ffdefine ILMACRO // Signal header inclusion 

/* 

* Requi red headers . 

* 

#ifdef ILWIN 

ffinclude <windows . h> 

If include <string . h> 

ffinclude <stdlib.h> 

# include <stdio.h> 

ffinclude <io.h> 
ffendif 

#ifdef ILDOS 

ffinclude <fcntl.h> 

ffinclude <sys\ types . h> 

ffinclude <sys\stat.h> 

ffinclude <string.h> 

ffinclude <stdlib.h> 

# include <stdio . h> 

ffinclude <io.h> 
#endif 

ffifdef SYSMGR 

# include "ma Hoc. h" 

ffinclude " inter fac . h" 

ffinclude "fileio.h" 

ffinclude <io.h> 
#endif 

ffifdef ILMAC 

#ifdef MWERKS 

ffinclude <unix . h> 
ff else 

ff include <f cntl . h> 
ffendif 

ff include <f iles . h> 
ffinclude <types. h> 
ffinclude <string.h> 
ffinclude <stdl ib . h> 
ffinclude <stdio. h> 
ffinclude <ctype.h> 
ffinclude <TextUt ils . h> 
ffendif 

# include " iltypes . h" 

/* 

* Windows macros -- 16 and 32-bit versions. 



ffifdef ILWIN 

/* 

* IntelliLink convention: allocation of zero-length blocks is a no-no. 
* _ 

* All programs should refrain from calling IL_ALLOC_MEM with nMem=0. 

* The ILWIN and ILDOS versions of IL_ALLOC_MEM behave differently when 

* asked to allocate zero bytes. 

* The ILWIN version gives you a NULL pointer (same result that you 

* get when allocation fails due to memory shortfall!!). 

* The ILDOS version, on the other hand, returns a valid pointer to a 

* zero-length item in the heap. 

* Previous to 7/7/94 there was a bug whereby zero-length ILWIN 

+ IL_ALLOC_MEM requests led to consumption of precious windows handles!! 



// Define the 16-bit macros for ILWIN 

ff ifndef WIN32 
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ffdefine IL_ALLOC_MEM ( nMem, hMem, pMem) (IL_PSTR) \ 

pMem = ILUT_MemAl loc (nMem, &(hMem)) 

ffdefine IL_FREE_MEM ( hMem, pMem) ILUT_MemFree (hMem, pMem) 

ffdefine IL_FREE_MEM_AND_ZERO_HANDLE { hMem, pMem) \ 

( IL_FREE_MEM(hMem, pMem) ; hMem ~ IL_NULL_HANDLE; ) 

ffdefine IL_REALLOC_MEM ( nMem, hMem, pMem) (IL_PSTR) \ 

pMem = ILUT MemReAlloc (nMem, &(hMem), pMem) 



ffdefine IL SYNC MEM ( hMem, pMem) 



// Variations of I L_ALLOC_MEM usable by C and C++ 

ffdefine I L_ALLOC ( nMem, hMem) ILUT_MemAlloc (nMem, &(hMem)J 

ffdefine IL_FREE IL_FREE_MEM 

ffdefine IL_FREE_AND_ZERO ( hMem, pMem) \ 

{ IL_FREE ( hMem, pMem) ; hMem = IL_NULL_HANDLE; pMem = NULL; } 

ffdefine IL_REALLOC ( nMem, hMem, pMem) I LUT_MemReAl loc ( nMem, & ( hMem) , pMem) 

ffdef ine IL_OPEN (name, attr, hFile, info, error) \ 

{ error = WinFile_Open ( name, attr, &info, fihFile, FILE , LINE ); } 

ffdef ine IL_READ (hFile, buffer, count, count Read, error ) \ 

( error = _lread (hFile, (IL_PSTR) buffer, (WORD) count); \ 
countRead = (error == -1) ? 0 : error; \ 
error = (error == -1 ) ? -1 : 0; ) 
ffdef ine IL_WRITE { hFile, buffer, count, error) \ 

{ error = _lwrite (hFile, (IL_PSTR) buffer, (WORD) count); \ 

error = ((error == -1) !| (( int )( error ) != ( int )( count )) ) ? -1 : 0; } 



ffdefine IL_CL0SE ( hFile, error) \ 

error = WinFile_Close (hFile, FILE , LINE ) 

ffdefine IL_REMOVE (name, info, error) \ 

{ error = OpenFile (name, (LPOFSTRUCT) (&info), OF_DELETE); \ 
error - (error == HFILE_ERROR) ? -1 : 0; ) 
ffdefine IL_GET_FILE_SIZE ( hFile, ICount, nError) \ 

( nError = (ICount = ILUT_GetFileSize (hFile)) == -1 ? -1 : 0; } 
ffdefine IL_SEEK{hFile, value, mode, error) \ 

{ if {_llseek (hFile, (LONG) value, mode) == -1) \ 
error - -1; \ 
else error = 0; } 
ffdefine I L_SEEK_BEGIN SEEK_SET 
ffdefine IL_SEEK_CURRENT SEEK_CUR 
ffdefine IL_SEEK_END SEEK_END 
ffdefine ILJTELL ( h Fi le, lPos)\ 

{ lPos = llseek (hFile, 0L, 1); } 



ffdef ine 


IL 


MEMCHR 


fmemchr 


ffdef ine 


IL~ 


"memcmp 


f memcmp 


ffdef ine 


IL~ 


"memcpy 


_fmemcpy 


ffdef ine 


IL~ 


"memmove 


fmemmove 


ffdef ine 


il" 


"MEM SET 


fmemset 


ffdefine 


il" 


"STRCAT 


_f strcat 


ffdefine 


il" 


"STRCHR 


f strchr 


ffdef ine 


il" 


"STRCMP(x, lx,y, 1 y } 


fstrcmp(x, y) 


ffdefine 


il" 


"STRCOMP 


_fst rcmp 


ffdef ine 


il" 


"STRICMP 


f st ricmp 


ffdef ine 


il" 


"STRCPY 


_f strcpy 


ffdef ine 


il" 


"STRCSPN 


f st rcspn 


ffdef ine 


il" 


"STRLEN 


f st rlen 


ffdefine 


il" 


STRLWR 


Ansi Lower 


ffdefine 


il" 


"STRNCAT 


f s t rncat 


ffdefine 


il" 


STRNCMP 


f strncmp 


ffde f ine 


il" 


"STRNCPY 


f st rncpy 


ffdefine 


il" 


"STRNICMP 


_f strnicmp 


ffdefine 


il" 


"STRRCHR 


f str rchr 


ffdefine 


il" 


"STRSPN 


fst rspn 


ffdef ine 


il" 


"STRSTR 


f st rst r 


ffdefine 


il" 


"STRTOK 


fst rtok 
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ffdefine IL_STRDUP(s, r ) r = _fstrdup{s) 

ffdefine IL_STRUPR AnsiUpper 

ffdefine IL_SPLITPATH IL_spl itpath 

ffdefine IL_MAKE PATH IL_makepath 

if define I L_GETTEMP FILENAME ILUT_GetTempFileName 

ffdefine IL_CHSIZE chsize 

ffdefine XL_DOES_EXIST { filename ) (( access ( filename, 00 ) ==0) ? 1:0) 
((define IL_EXISTS ( f ileName, flag) \ 

{ flag = access (fileName, 00}; flag = (flag == 0) ? 1 : 0; } 
ffdefine IL_RENAME (old, new, error) \ 

(error = rename (old, new)) 
ffdefine IL_BEEP{) MessageBeep(O) 
ffdefine IL_CHDIR ( newdi r, error) \ 

(error = _chdir (newdir) ) 
ffdefine IL_GETCURDIR (pDi r , nLen, nRc) \ 
{ if (getcwd (pDir, nLen) ) \ 
nRc = 0; \ 
else \ 

nRc = -1 ; \ 

} 

ffdefine IL_GETDRIVE (drive ) \ 

drive[0) = (char ) (_getdrive ( ) + 'A' - 1) 
ffdefine ILJ3ETDIR (drive, dir, len, error) \ 

if (_getdcwd (drive - 'A* + 1, dir, len)) \ 
error = 0; \ 

else \ 

error = -1; 
ffdefine IL_GETPI D ( nPid ) \ 

(nPid = getpid ( ) ) 
ffdefine IL_MKDIR ( newdir, error) \ 

(error = _mkdir (newdir)) 
ffdefine IL_RMDIR ( newdi r, error) \ 

(error = _rmdir (newdir)) 
ffdefine IL_SETDIR (pDir ) \ 

chdir (pDir ) ; 
ffdefine IL_SETDRIVE (drive ) \ 

_chdrive (drive - 'A' + 1) 

ffdef ine LoadDll (name, hDll ) \ 

{if ((UINTMhDll = LoadLibrary (name)) < 32) hDll = NULL;} 
ffdefine UnloadDll (hDll ) {if ((UINT)hDll >= 32) FreeLibrary (hDll);} 

// File pattern matching/enumeration 

ffdefine IL_FINDCLOSE ( h, rc) { rc = 0; h = 0; } 

ffdefine IL_FINDFIRST ( nm, at , st , h, rc) rc = _dos_f indf irst ( ( nm) , ( at } , & ( st ) ) 

#define IL_FINDNEXT (h, st, rc) rc = _dos_f indnext (&(st)) 

// do pointer subtraction and get INT32 result. We need this macro 

// to avoid disaster when difference is > 32767, because 

// PTRDI FF_T is short for this environment. 

ffdefine IL_PTRDI FF{ a, b) ( ((INT32) b) - {(INT32) a) ) 

// do pointer subtraction for IL_HUGE pointers. This macro generates 

// a call to the runtime function " aFahdi f f " 

ffdefine IL_HUGE_PTRDI FF ( a , b) ( ((char IL_HUGE *) b) - ((char IL_HUGE *) a) ) 

/* 

* Use IL_HANDLE_PADDING after any IL_HANDLE member of any structure that 

* needs to be size-invariant from one platform to another. For each plat- 

* form sizeof (IL_HANDLE) + sizeof { IL_HAMDLE_PADDINGJ = 4 bytes. 

* v 

ffdefine IL_HANDLE_PADDING (_name ) INT16 _name; 

// Compatibility macros (may not defined in windowsx.h) 

ffifndef GET_WM_COMMAND_CMD 

ffdef ine GET_WM_COMMAN D_CM D { wp , lp) HIWORD(lp) 

#define GET_WM_COMMAND_ID( wp, lp) (wp) 

ffdefine GET_WM_COMMAND_HWMD(wp, lp) (HWND) LOWORD( lp) 

ffendif 

ffelse // _WIN32 IS defined — The Win32 versions of the macros follow 

/* 
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Define the 32-bit versions of the ILWIN macros here. The current 
set of macros was copied from the 16-bit section and modified as 
specific 32-bit issues were encountered in the porting process. At 
the preset time, the following macros are different from their 
16-bit counterparts: 



+ 



IL_MEM. . r 
IL_STR. . . 
IL EXISTS 



// Use standard, not _f(ar) functions 
// Use standard, not _f(ar) functions 
// Use access instead of access 



+ 



Please make every effort to keep this list up-to-date as additional 
32-bit-speci f ic macros are added 



ffdefine IL_ALLOC_MEM ( nMem, hMem, pMem) ( IL_PSTR) \ 

pMem = ILUT_MemAlloc (nMem, &(hMem)) 

#define IL_FREE_MEM ( hMem, pMem) ILUT_MemFree (hMem, pMem) 

ffdefine IL_FREE_MEM_AND_ZERO_HANDLE ( hMem, pMem) \ 

{ IL_FREE_MEM { hMem, pMem) ; hMem = IL_NULL_HANDLE; } 

ffdef ine IL_REALLOC_MEM { nMem, hMem, pMem) (IL_PSTR) \ 

pMem = ILUT_MemReAlloc (nMem, &(hMem), pMem) 

ffdefine I L_SYNC_MEM ( hMem, pMem) 



Variations of I L_ALLOC_MEM usable by C and C++ 



ffdefine IL_ALLOC ( nMem, hMem) ILUT_MemAlloc (nMem, &(hMem)) 

ffdefine I L_FREE IL_FREE_MEM 

ffdefine I L_FREE_AND_ZERO ( hMem, pMem) \ 

{ IL_FREE ( hMem, pMem) ; hMem = IL_NULL_HANDLE; pMem = NULL; } 

ffdefine IL_REALLOC ( nMem, hMem, pMem) ILUT_MemReAl loc (nMem, &(hMem), pMem) 



ffdefine IL_OPEN ( name, attr, hFile, info, error) \ 
{ error = WinFile_Open ( name, attr, Sinfo, shFile, 



FILE 



LINE ); } 



#def ine IL_READ{ hFile, buffer, count , count Read, error} \ 

{ error = _lread (hFile, (IL_PSTR) buffer, (UINT) count); \ 
countRead = (error == -1) ? 0 : error; \ 
error = (error -= -1) ? -1 : 0; } 
#define IL_WRITE ( hFi le, buffer, count, error) \ 

{ error = _lwrite (hFile, (IL_PSTR) buffer, (UINT) count); \ 
error = ((error == -1) (| (( int )( error ) != ( int ) (count )) ) ? 



-1 



0; } 



#define IL_CL0SE { hFile, error) \ 

error - WinFile_Close (hFile, 



FILE , LINE ) 



ffdefine I L_REMOVE ( name, info, error) \ 

{ error = DeleteFile (name) ? 0 : -1; info; ) 

ffdefine IL_GET_FILE_SIZE (hFile, ICount, nError) \ 

{ nError = (ICount = ILUT_GetFileSize (hFile)) == -1 

ffdefine IL_SEEK(hFile, value, mode, error) \ 

{ if (_llseek (hFile, (LONG) value, mode) == -1) \ 
error = -1; \ 



-1 



0; } 



else error 
ffdefine IL_SEEK 
ffdefine IL_SEEK 
ffdefine IL SEEK 



- 0; } 

BEGIN 

CURRENT 

"end 



SEEK 
SEEK 

seek" 



ffdefine IL_TELL(hFile, lPos)\ 
{ lPos = llseek {hFile, 0L, 



SET 
CUR 

"end 
i); 1 



ffdefine IL 
ffdefine IL^ 
ffdefine IL 
^define IL 
ffdefine IL 
ffdefine IL 
ffdefine IL 



MEMCHR 
~MEMCMP 

[memcpy 

"memmove 

"memset 

^STRCAT 

"strchr 



ffdefine IL_STRCMP (x, Ix, y, ly) 
ffdefine IL_STRCOMP 
ffdefine IL STRICMP 



memchr 
memcmp 
memcpy 
memmove 
memset 
st rcat 
strchr 
strcmp (x, y) 
st rcmp 
st ricmp 
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ffdef ine 


IL STRCPY 


st rcpy 


ffdefine 


IL STRCSPN 


strcspn 


ffdefine 


IL STRLEN 


st rlen 


ffdef ine 


IL_STRLWR 


Cha r Lower 


ffdefine 


IL STRNCAT 


strncat 


ffdefine 


IL STRNCMP 


strncmp 


ffdefine 


IL_STRNCPY 


st rncpy 


naeii ne 


I L b 1 KN 1 CM r 


st rnicmp 


ffdefine 


IL _ STRRCHR 


strrchr 


ffdefine 


IL STRSPN 


strspn 


ffdefine 


IL_STRSTR 


st rst r 


ff ae r 1 ne 




st rto k 


#def ine 


IL~STRDUP(s, r) 


r = st rdup ( s ) 


ffdef ine 


IL_STRUPR 


CharUpper 


ffdef ine 


IL SPLIT PATH 


_spl itpath 


ffdef ine 


IL MAKE PATH 


_makepath 


ffdef ine 


I L_GETTEMP FILENAME 


ILUT_GetTempFileName 


ffdef ine 


IL CHSIZE 


chsi ze 



ffdefine IL_DOES_EXIST ( filename ) ( (_access { fi lename, 00 ) ==0 ) ? 1:0) 
ffdefine IL_EXISTS { f ileName, flag) \ 

( flag = jccess (fileName, 00); flag = (flag == 0) ? 1 : 0; } 
ffdefine IL_RENAME (old, new, error) \ 

(error = rename (old, new)) 
ffdefine IL_BEEP() MessageBeep ( 0 ) 
ffdefine IL_CHDIR ( newdi r, error) \ 

(error = _chdir {newdir}) 
ffdefine I L_GETCURDIR ( pDi r, nLen, nRc} \ 
{ if (_getcwd (pDir, nLen)) \ 
nRc =0; \ 
else \ 

nRc = -1; \ 

> 

ffdefine IL_GETDRIVE (drive ) \ 

drive[0] = ( cha r ) (_getdri ve { ) + 'A' - 1) 
ffdefine IL_GETDIR (drive, dir, len, error) \ 

if (_getdcwd (drive - 'A* + 1, dir, len)) \ 
error = 0; \ 

else \ 

error = -1; 
ffdefine IL_GETPI D ( n Pid ) \ 

( nPid = _getpid ( ) ) 
ffdefine IL_MKDIR ( newdi r, error) \ 

(error = _mkdir (newdir)) 
ffdefine IL_RMDIR ( newdi r, error) \ 

(error = _rmdir (newdir)) 
ffdefine IL_SETDIR ( pDi r ) \ 

_chdir (pDir } ; 
ffdefine IL_SETDRIVE (drive ) \ 

_chdrive (drive - 'A* + 1) 

ffdefine LoadDll ( name, hDll) \ 

hDll = LoadLibraryEx (name, NULL, LOA D_WI T H_ALT ERE D_S E ARCH_ PAT H ) 
ffdefine UnloadDl 1 ( hDl 1 ) {if (hDll != NULL) FreeLibrary (hDll);) 

// File pattern matching/enumeration 

ffdefine IL_FINDCLOSE ( h, rc ) rc = _findclose (h) 
ffdefine IL_FINDFIRST ( nm, at , st , h, rc ) { \ 

(st) .attrib = (at) ; \ 

(h) = _findfirst ( { nm) , & ( st ) ) ; \ 

(rc) = ( (h) == -1) ? 0 : -1; \ 

} 

ffdefine IL_FINDNEXT ( h, st , rc ) rc = _findnext ((h), &(st)) 

// do pointer subtraction and get INT32 result. This is trivial 

// here because PTRDI FF_T is long for this environment. 

ffdefine IL_PTRDIFF( a, b) (b-a) 
ffdefine IL_HUGE_PTRDI FF ( a, b) (b-a) 

/* 

* Use IL_HANDLE_PADDING after any IL_HANDLE member of any structure that 

* needs to be size-invariant from one platform to another. For each plat 

* form sizeof (IL_HANDLE) + sizeof ( IL_HANDLE_PADDING) = 4 bytes. 

* + / 
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ffdefine IL_HANDLE_PADDING (_name ) 
ffendif // end of Win32 macros 
ffendif // end of ILWIN (16 and 32-bit) macros 



// no padding needed for WIN32 



/* 

* DOS macros 



malloc ((unsigned) nMem) ; } 



ffifdef ILDOS 

ffdefine IL_ALLOC_MEM ( nMem, hMem, pMem) \ 

{ hMem = 0; pMem = (nMem > Oxfffe) ? NULL 
ffdefine IL_FREE_MEM ( hMem, pMem) \ 
if (pMem) free (pMem) 

ffdefine IL_REALLOC_MEM ( nMem, hMem, pMem) \ 
{ hMem = 0; \ 

pMem = (nMem > Oxfffe) ? NULL : realioc (pMem, (unsigned) nMem); } 
ffdefine I L_SYNC_MEM (hMem, pMem) 



// Variations of IL_ALLOC_MEM usable by C and C+ + 

ffdefine IL_ALLOC ( nMem, hMem) \ 

((hMem = 0), ((nMem > Oxfffe) ? NULL : malloc ((unsigned) nMem))) 

ffdefine IL_FREE IL_FREE_MEM 

ffdefine IL_FREE_AND_ZERO( hMem, pMem) \ 

{ I L_FREE ( hMem, pMem ) ; hMem = I L_NU LL_HAN DLE ; pMem = NULL; } 



ffdefine IL_REALLOC ( nMem, hMem, pMem) \ 
((hMem = 0), ((nMem > Oxfffe) ? NULL 



realioc (pMem, (unsigned) nMem))) 



ffdefine IL_OPEN ( f ileName, attr, hFile, info, error) \ 

{ switch (attr) { \ 
case I L_ATTR_READ : \ 

hFile = open (f ileName, 0_BINARY I 0_RD0NLY, S_IREAD) ; \ 
break; \ 
case I L_ATT R_WR I T E : \ 

hFile = open (f ileName, O_WR0NLY | 0_CREAT | 0_BINARY | 0_TRUNC, S_I WRITE ) ; \ 
break; \ — 
case IL_ATTR_APPEND": \ 

hFile = open (f ileName, 0_BINARY | 0_WRONLY | 0_APPEND, S_IWRITE); \ 
break; \ 
case IL_ATTR_UPDATE: \ 

hFile = open (f ileName, 0_BINARY ) 0_RDWR, S_IWRITE); \ 
break; \ 

} \ 

info = 0; error = (hFile == -1) ? -1 : 0; } 

ffdefine IL_READ(hFile, buffer, count, countRead, error) \ 

{ error = read (hFile, buffer, count); \ 
countRead = (error == -1) ? 0 : error; \ 
error = (error == -1) ? -1 : 0; } 
ffdefine IL_WRITE ( hFile, buffer, count, error) \ 

( error ~ write (hFile, buffer, count); \ 

error * ((error == -1) || (( int )( error ) != ( int )( count )) ) ? -1 : 0; } 
ffdefine IL_CLOSE ( hFile, error) \ 

error = close (hFile) 
ffdefine I L_REMOVE ( f ileName, info, error) \ 

{ error = remove (f ileName); info = 0; ) 
ffdefine IL_GET_FILE_SIZE ( hFile, count, error) \ 

{ count = filelength (hFile); error = (count 
ffdefine IL_SEEK( hFile, value, mode, error) \ 

{ if (lseek (hFile, value, mode) == -1L) \ 

error = -1; \ 



== -1) ? -1 



0; } 



else error 


= 0; } 




ffdef ine 


IL 


SEEK BEGIN 


SEEK SET 


ffdef ine 


IL~ 


"SEEK CURRENT 


SEEK CUR 


ffdef ine 


il" 


"SEEK END 


SEEK_END 


ffdef ine 


il" 


~TELL(hFile, 


val) val = tell 


ffdefine 


il" 


"memchr 


memchr 


ffdef ine 


il" 


"memcmp 


memcmp 


ffdef ine 


il" 


"memcpy 


memcpy 


ffdefine 


il" 


"memmove 


memmove 


ffdefine 


il" 


"memset 


memset 


ffdef ine 


il" 


"STRCAT 


st rcat 


ffdef ine 


il" 


"STRCHR 


st rchr 



(hFile) 
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ffdef ine 


IL_STRCMP(x, lx, y, ly) 


strcmp(x, y) 


Bdef ine 


IL_STRCOMP 


st rcmp 


ffdefine 


IL_STRICMP 


st ricmp 


Ifaei ine 


IL_STRCPY 


st rcpy 


#de f ine 


T* T f"* m n **** a n v r 

XL STRCSPN 


st rcspn 


ffdef ine 


IL_STRLEN 


st rlen 


ffdef ine 


IL_STRLWR 


st rlwr 


ffdef me 


IL_STRNCAT 


st rncat 


idefine 


IL_STRNCMP 


strncmp 


ffdef ine 


IL STRNCPY 


st rncpy 


ffdefine 


IL STRNICMP 


st rnicmp 


^define 


IL_STRRCHR 


st rrchr 


ffdef me 


IL_3TRSPN 


st rspn 


#def ine 


IL STRSTR 


strstr 


#de f i ne 


IL STRTOK 


strtok 


ffdefine 


IL STRDUP(s, r) 


r = strdup(s) 


ffdef ine 


IL_STRUPR 


strupr 


ffdef ine 


IL SPLITPATH 


IL_splitpath 


ffdef ine 


IL_MAKE PATH 


IL makepath 


ffdef ine 


I L_GETTEMP FILENAME 


ILUT_GetTempFileName 


ffdef ine 


IL CHSIZE 


chsize 



ffdefine IL_DOES_EXIST ( filename ) { (access ( filename, 00)==0) ? 1:0) 
ffdefine IL_EXISTS ( f i leName, flag) \ 

{ flag = access (fileName, 00); flag =» (flag == 0) ? 1 : 0; } 
ffdefine IL_RENAME (old, new, error) \ 

(error = rename (old, new}) 
ffdefine IL_BEEP() printf ("\a") 
ffdefine IL_CHDIR(newdir, error) \ 

(error ~ _chdir (newdir) ) 
ffdefine IL_GETCURDIR ( pDi r, nLen, nRc) \ 
( if (getcwd (pDir, nLen)) \ 
nRc =0; \ 
else \ 

nRc = -1; \ 

} 

ffdefine IL_GETDRIVE (drive ) \ 

drive[0] = ( char ) (_getdrive ( ) + 'A* - 1) 
ffdefine IL_GETDIR (drive, dir, len, error) \ 

if (_getdcwd (drive - 'A' + l, dir, len}) \ 
error = 0; \ 

else \ 

error = - 1 ; 
ffdefine IL_GETPID ( nPid ) \ 

(nPid = getpid ( ) ) 
ffdefine IL_MKDIR ( newdi r , error) \ 

(error = _mkdir (newdir)) 
ffdefine I L_RMDI R ( newdir, error) \ 

(error = _rmdir (newdir)) 
ffdefine IL_SETDIR (pDir ) \ 

chdir (pDir) ; 
ffdefine IL_SETDRIVE (drive ) \ 
_chdrive (drive - 'A* + 1) 

// File pattern matching/enumeration 

ffdefine IL_FINDCLOSE (h, rc) rc = 0 

ffdefine IL_FINDFIRST ( nm, at , st , h, rc ) rc = _dos_f indf irst { ( nm) , ( at ) , & { st ) } 
ffdefine IL_FINDNEXT ( h, st , rc ) rc = _dos_f i ndnext (&(st)) 

// do pointer subtraction and get INT32 result. We need this macro 

/./ to avoid disaster when difference is > 32767, because 

// PTRDI FF_T is short for this environment. 

// WARNING: do NOT use this for HUGE pointers 

ffdefine IL_PTRDI FF( a , b) ( ((INT32) b) - ((INT32) a) ) 

// do pointer subtraction for IL_HUGE pointers. This macro generates 

// a call to the runtime function " aFahdiff" 

ffdefine IL_HUGE_PTRDI FF ( a, b) ( {(char IL_HUGE *) b) - {(char IL_HUGE *) a) ) 

/* 

* Use IL_HANDLE_PADDING after any IL_HANDLE member of any structure that 

* needs to be size-invariant from one platform to another. For each plat- 

* form sizeof ( IL_HANDLE } + sizeof ( IL_HANDLE_PADDING) = 4 bytes. 

* v 
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ffdefine I L_HANDLE_PADDING (_name ) INT16 _name; 
ffendif 



/* 

* System Manager macros. 
+■ r 



/ 



ffifdef SYSMGR 

ffdefine IL_ALLOC_MEM ( nMem, hMem, pMem) \ 

{ hMem = 0; pMem = _nmalloc ((unsigned) nMem); ) 

#define IL_FREE_MEM ( hMem, pMem) \ 
if (pMem) _nfree (pMem) 

#define IL_FREE_MEM_AND_ZERO_HANDLE ( hMem, pMem) \ 

{ IL_FREE_MEM ( hMem, pMem) ; hMem = IL_NULL_HANDLE; ) 

ffdefine IL_REALLOC_MEM ( nMem, hMem, pMem) \ 

{ hMem = 0; pMem = _nrealioc (pMem, (unsigned) nMem); } 

// Variations of I L_ALLOC_MEM usable by C and C+ + 

ffdefine IL_ALLOC ( nMem, hMem) \ 

((hMem = 0), ((nMem > Oxfffe) ? NULL : _nmailoc ((unsigned) nMem))) 

ffdefine IL_FREE IL_FREE_MEM 

ffdefine IL_FREE_AND_ZERO ( hMem, pMem) \ 

{ IL_FREE ( hMem, pMem); hMem = IL_NULL_HANDLE; pMem = NULL; } 

ffdefine IL_REALLOC ( nMem, hMem, pMem) \ 

({hMem = 0), ((nMem > Oxfffe) ? NULL : _nrealloc (pMem, (unsigned) nMem))) 

ffdefine IL_SYNC_MEM ( hMem, pMem) 

ffdefine IL_OPEN ( fileName, attr, hFiie, info, error) \ 
switch (attr) ( \ 
case I L_ATT R_R E A D : \ 

error = m_openro (&(hFiie), fileName, _fstrlen (fileName), 0, 0); \ 

break; \ 
case IL_ATTR_WRITE: \ 

error = m_fcreat (&(hFileJ, fileName, _fstrlen (fileName), 0, 0); \ 

break; \ 
case IL_ATTR_APPEND: \ 

error = m_open (&(hFile), fileName, _fstrlen (fileName), 0, 0); \ 

info - 0; m_seek U(hFile), seek_end, (long) 0); \ 

break; \ 
case I L_AT T R_U P DAT E : \ 

error = m_open (& (hFile), fileName, _fstrlen (fileName), 0, 0); \ 

info = 0; \ 

break; \ 

} 

ffdefine IL_READ( hFile, buffer, count, count Read, error ) \ 

error = m_read (MhFile), buffer, count, & (countRead) ) 
ffdefine IL_WRITE ( h Fi le, buffer, count, error) \ 

error = m_write (&(hFile), buffer, count) 
ffdefine IL_CLOSE (hFile, error) \ 

error ~ m_close (&(hFile)) 
ffdefine IL_REMOVE ( f i leName, info, error) \ 

{ error = m_delete (fileName, _fstrlen (fileName), 0); info = 0; } 
ffdefine IL_GET_FILE_SIZE ( hFi le, count, error) \ 

( m_seek (&(hFile), seek_end, (long) 0); \ 
error = m_tell (&(hFile), i(count) ); \ 
error = (error != 0) ? -1 : 0; ) 
ffdefine IL_SEEK( hFile, value, mode, error) \ 

error = m_seek (& (hFile), mode, value) 
ffdef ine IL_SEEK_BEGIN seek_beginning 
ffdefine IL_SEEK_CURRENT seek_current 
ffdefine IL_SEEK_END seek_end 

#define IL_TELL ( hFile, val) m_tell (&(hFile), &(val)) 

ffdefine IL_MEMCHR _fmemchr 

ffdefine IL_MEMCMP _fmemcmp 

ffdefine IL_MEMCPY _fmemcpy 

#define IL_MEMMOVE _fmemmove 

ffdefine IL_MEMSET _fmemset 

#define IL STRCAT fstrcat 
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ffdefine IL_STRCHR _fstrchr 

// System manager uses inverse semantics for return value; 
// hence the negation of the result 

ffdefine IL STRCMP {x, lx, y, ly ) -(m col cpstr (x, lx, y, ly) ) 



ffdefine 


IL STRICMP 


_f st r icmp 


ffdef ine 


IL STRCPY 


_f st rcpy 


ffdefine 


IL STRCSPN 


_f st rcspn 


^define 


IL_STRLEN 


_f st rlen 


ffdefine 


IL STRLWR 


f st rlwr 


ffdefine 


IL STRNCAT 


f st rncat 


ffdefine 


IL STRNCMP 


f st rncmp 


ffdef ine 


IL_STRNICMP 


_f st rnicmp 


ffde f ine 


IL STRNCPY 




ffdefine 


I L _ STRRCHR 


_f strrchr 


ffdef ine 


IL STRSPN 


f st rspn 


ffdef ine 


IL STRSTR 


_fst rst r 


ffdef ine 


IL STRTOK 


_fstrtok 


ffdef ine 


IL_STRDUP(s, r) 


r = _fstrdup(s) 


ffdef ine 


IL_STRUPR 


_f st rupr 


ffdef ine 


IL SPLIT PATH 


IL_splitpath 


ffdef ine 


IL MAKE PATH 


IL makepath 


ffdef ine 


I L_GETTEM PFI LENAME 


ILUT_GetTempFileName 


ffdef ine 


IL CHSIZE 


NOT IMPLEMENTED 


ffdef ine 


IL DOES EXIST{ filename) {IL Exists ( filename) ) 


ffdef ine 


IL_EXISTS(fileName, 


flag) \ 



{ m_ident (fileName, _fstrlen (fileName), 0, Sflag); \ 
flag = (flag == 0) ? 0 : 1; } 
ffdefine IL_RENAME (old, new, error) \ 

(error = m_rename (old, _fstrlen (old), 0, new, _fstrlen (new), 0)) 
ffdefine IL_BEEP() m_beep() 
ffdefine IL_CHDIR ( newdi r , error) \ 

(error = m_setdir ( newdir, _fstrlen (newdir))) 
ffdefine IL_GETCURDIR ( pDir , nLen, nRc) \ 

nRc = -1; not IMPLEMENTED! 

ffdefine IL_GETDRIVE (drive ) \ 

m_getdrv (drive ) 
ffdefine IL_GETDIR (drive, dir, len, error) \ 

m_getdi r (drive, dir, len) 
ffdefine I L_GETPI D ( nPid ) + NOT IMPLEMENTED! 

ffdefine IL_MKDIR { newdi r, error) \ 

(error = rrwnkdir { newdi r, _fstrlen (newdir), 0)) 
ffdefine IL_RMDIR ( newdi r, error) \ 

(error = m_rmdi r ( newdi r, _fstrlen (newdir), 0)) 
ffdefine IL_SETDIR (pDi r ) + + + NOT IMPLEMENTED! 

ffdefine IL_SETDRIVE (drive ) \ 

msetdrv(drive) 



// File pattern matching/enumeration 

ffdefine IL_FINDCLOSE (h, rc) 

ffdefine I L_FINDFIRST { nm, at, st, h, rc) 

ffdefine IL_FINDNEXT (h, st, rc) 



- NOT IMPLEMENTED! ! ! ! 



// 
// 



do pointer subtraction and get INT32 result. We heed this macro 
to avoid disaster when difference is > 32767, because 
PTRDIFF T is short for this environment. 



ffdefine IL_PTRDI FF ( a , b ) ( ((INT32) b) - ((INT32) a) ) 



// 
// 



do pointer subtraction for I L_HUGE pointers, 
a call to the runtime function " aFahdiff" 



This macro generates 
ffdefine IL_HUGE_PTRDI FF( a, b) ( ({char IL~HUGE Mb)- ((char IL HUGE *) a) ) 



* Use IL_HANDLE_PADDING after any IL_HANDLE member of any structure that 

* needs to be size-invariant from one platform to another. For each plat- 

* form si zeof { I L_HANDLE ) + sizeof { IL_HANDLE_PADDING) = 4 bytes. 

* — * 1 

ffdefine IL HANDLE PADDING { name) INT16 name; 



ffendif 



/ 



+ Macintosh macros. 
+ 



/ 
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ffifdef ILMAC 

Sdefine I L_AL LOC_M EM ( nMem, hMem, pM e m ) \ 

pMem = (IL_PANY)ILUT_MemAlloc (nMem, &{hMem)) 
ffdefine I L_FREE_MEM { hMem, pMem) I LUT_MemFree f hMem, pMem) 

ffdefine IL_FRE£_MEM_AND_ZERO_HANDLE ( hMem, pMem) \ 

{ IL_FREE_MEM { hMem, pMem); hMem = IL_NULL_HANDLE; } 

ffdefine IL_REALLOC_MEM ( nMem, hMem, pMem) \ 

pMem = ( IL_PANY) ILUT_MemReAlloc (nMem, &{hMem), pMem) 

ffdefine IL_SYNC_MEM ( hMem, pMem) 

// Variations of I L_ALLOC_MEM usable by C and C+ + 

ffdefine IL_ALLOC ( nMem, hMem) ILUT_MemAlloc (nMem, MhMern) ) 

ffdefine IL_FREE IL_FREE_MEM 

ffdefine IL_FREE_AND_ZERO ( hMem, pMem) \ 

( IL_FREE ( hMem, pMem) ; hMem = I L_NU L L_HAN DLE ; pMem = NULL; } 

ffdefine IL_REALLOC ( nMem, hMem, pMem) ILUT_MemReAlloc (nMem, &(hMem), pMem) 

ffif 0 // THe following code can be deleted once switch to MEMUTIL is tested 

// All ILMAC memory allocation is done through MACALLOC.C 

ffdefine IL_ALLOC_MEM { nMem, hMem, pMem) \ 
pMem = MacMern_Lock (hMem = MacMem Alloc ((UINT32) nMem)) 

\ 

ffdefine IL_FREE_MEM ( hMem, pMem) \ 
MacMem_Free ( hMem) 

ffdefine IL_FREE_MEM_AND_ZERO_HANDLE ( hMem, pMem) \ 
{ IL_FREE_MEM ( hMem, pMem) ; hMem = IL_NULL_HANDLE; } 

ffdefine IL_REALLOC_MEM ( nMem, hMem, pMem) \ 

pMem = MacMem_Lock (hMem = MacMem_Realloc ((UINT32) nMem, hMem)) 

ffdefine IL_SYNC_MEM ( hMem, pMem) 

// Variations of I L_AL LOC_M EM usable by C and C+ + 

ffdefine IL_ALLOC ( nMem, hMem) \ 
MacMem_Lock (hMem = MacMem_Alloc ((UINT32) nMem)) 

ffdefine IL_FREE IL_FREE_MEM 

ffdefine IL_FR£E_AND_ZERO ( hMem, pMem) \ 

( IL_FREE (hMem, pMem) ; hMem ~ IL_NULL_HANDLE; pMem = NULL; } 

ffdefine IL_REALLOC ( nMem, hMem, pMem) \ 
MacMem_Lock (hMem = MacMem_Real loc ((UINT32) nMem, hMem)) 

ffendif 

#def ine IL_OPEN ( f ileName, attr, hFile, info, error) \ 

{error = MACFile_Open ( f ileName, attr, &hFile); info = 0;} 
ffdefine IL_READ( hFile, buffer, count, countRead, error) \ 

error = MACFile_Read { hFile, (char *)buffer, (int) count, \ 

{ int * ) ScountRead ) 
ffdefine IL_WRITE ( hFile, buffer, count, error) \ 

error = MAC Fi 1 e_Wr i t e ( h Fi 1 e , (char *)buffer, count) 
ffdefine IL_CLOSE ( hFi ie, error) \ 

error = MACFile_Close (hFile) 
ffdefine IL_REMOVE ( f ileName, info, error) \ 

{ error = remove (fileName); info = 0; } 
ffdefine IL_GET_FILE_SIZE ( hFi le, ICount, nError) \ 

{ nError = (ICount = MACFile_Size (hFile)) == -1 ? -1 : 0; } 
ffdefine IL_SEEK ( hFile, value, mode, error) \ 

error = MACFile_Seek ( hFile, (unsigned long)value, mode) 

ffdefine I L_SEEK_BEGIN SEEK_SET 
ffdefine IL_SEEK_CURRENT SEEK_CUR 
ffdefine IL SEEK END SEEK END 



\ 



Copyright ©1996 Puma Technology, Inc. All Rights Reserved. 



Ilmacro.h 



Page 11 of 15 



ffdef ine 
ffdefine 
ffdef ine 
ffdefine 
ffdefine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
^define 
ffdef ine 
ffdef ine 
ffdef ine 



ILJTELLf hFile, val) 

IL_MEMCHR 

I L_MEMCM P 

IL_MEMCPY 

IL_MEMMOVE 

IL_MEMSET 

IL_STRCAT 

IL_STRCHR 

IL_STRCMP(x,lx,y, ly) 

IL_STRCOMP 

IL_STRICMP 

IL_STRCPY 

IL_STRCSPN 

IL_STRLEN 

IL_STRNCAT 

IL_STRNCMP 

IL_STRNCPY 

IL_STRNICMP 

IL_STRRCHR 

IL_STRSPN 

IL_STRSTR 

IL_STRTOK 

IL STRDUP(s, r) 



// 

#def ine 
ffdefine 



MAC TextUtils.h 
IL_STRLWR(s) 
IL STRUPR(s) 



ffdefine IL_SPLITPATH 
ffdefine IL_MAKEPATH 
ffdefine IL GETTEMPFILENAME 



val = MACFiie_Teli (hFile) 

memchr 

memcmp 

memcpy 

memmove 

memset 

strcat 

strchr 

strcmp(x, y) 

strcmp 

ILUT_stricmp 

strcpy 

st rcspn 

st rlen 

strncat 

st rncmp 

strncpy 

ILUT_strnicmp 

st rrchr 

strspn 

strst r 

st rtok 

{ 

IL_PSTR p; 

p = (char *)malloc (IL_STRLEN (s)+l); 
if (p) IL_STRCPY (p,s); 
r = p; 

} 

LowerText (s, strlen(s)) 
UpperText (s, strlen{s}) 

MACFile_SplitPath 
MACFile_MakePath 
MACFi 1 eJTempName 



\ 
\ 
\ 
\ 
\ 



ffdef ine 
ffdefine 
ffdefine 
^define 
ffdefine 
ffdefine 
ffdefine 
ffdef ine 
ffdef ine 
ffdef ine 
#def ine 
^define 
ffdef ine 
#def ine 



IL_CHSIZE(file, ien) 
IL DOES EXIST(file) 



MACFi le_Set EOF (file, len) 
(MACFile_Exists (file)) 
IL_EXISTS(file, flag) flag = MACFi le_Exists (file) 
IL_RENAME(nl, n2, re) (rc = rename (nl, n2)) 
IL_BEEP() printf ("\a") 

IL_CHDIR (di r , rc) { rc = MACFi le_SetDir (dir)) 

IL_GETCURDIR (dir, len, rc) ( rc = MACFi le_GetDi r (dir)) 
IL_GETDRIVE (drive) (drive) [0] = 1 \0 1 

IL_GETDIR (drv, dir, len, rc) ( rc = MACFile_GetDir (dir)) 
IL_GETPID(nPid) nPid - 1234; not IMPLEMENTED! 

IL_MKDIR{dir, rc) ( rc = MACFile_MakeDir (dir)) 

IL_RMDIR(dir, rc) NOT IMPLEMENTED! 

IL_SETDIR (dir) MACFile_SetDir (dir) 

IL SETDRIVE (drv) NO-OP on MAC 



/ 



The following macros call MAC-Specific code designed 
to emulate some commonly used Windows functions. 



/ 



(hDll); } 



ffdefine LoadDll ( name, hDll) 

hDll = ILMAC_LoadLibrary (name) 
ffdefine UnloadDl 1 ( hDl 1 ) 

{ if (hDll != NULL) ILMAC_FreeLibrary 

ffdefine LoadString ( inst, id, buf, len) 

ILMAC_LoadString ( inst, id, buf, len) 
ffdef ine GetModuleFileName (inst, path, len ) 

(( MACFile_AppPath (path) == 0) ? 0 

ffdefine Get PrivateProf ileString ( sec, var, def, val, len, file) 
IL_GetPrivateProfileString{sec, var, def, val, len, fil 

ffdefine Wri tePri va teProf ileString ( sec, var, val, file) 

IL_WritePrivateProf ileString (sec, var, val, file) 

^define GetProf ileString (sec, var, def, val, len) 

IL_Get Prof ileString (sec, var, def, val , len ) 

ffdef ine Wri teProf ileString ( sec, var, val ) 

IL_WriteProf ileString (sec, var, val ) 



IL_STRLEN ( pa th } ) 



e) 



\ 
\ 

\ 
\ 

\ 
\ 

\ 

\ 
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ffdef ine Get Private Prof ilelnt ( sec, var, def , f ile ) 

IL_GetPrivateProf ilelnt (sec, var, def, file) 

ffdefine GetProf ilelnt (sec, var, def) 

IL GetProf ilelnt (sec, var, def) 



\ 
\ 



/ 



* The Mac concept of locking and unlocking memory is different from 

* Windows. Relocatable memory is either locked or unlocked. There is no 

* concept of a lock count. Therefore, once a block of memory is locked, 

* it will remain locked until freed. GlobalUnLock does nothing on the MAC. 

+ / 



ffdefine 
ffdef ine 
ffdef ine 



GlobalAlloc(f,n) 
GlobalReAlloc (h, n, f ) 
GlobalFree (h) 



ffdef ine Global Lock ( h J 
ffdefine GlobalUnlock ( a ) 



MacMem_Alloc ((UINT32) n) 
MacMem_Realloc ((UINT32) n, 
MacMem_Free (h) 

MacMem_Lock (h) 
0 



h) 



/* 

* Other Windows functions not available on the Mac 

*■ _ _ 

ffdefine IsCharAlpha { c ) isalpha (c) 

ffdefine IsCharAlphaNumeric ( c) isalnum ( c ) 

ffdefine AnsiLower(s) LowerText (s, strlen(s) ) 

ffdefine AnsiUpper(s) UpperText (s, strlen(s)) 

// File pattern matching/enumeration - NOT IMPLEMENTED! ! ! ! 

ffdefine IL_FINDCLOSE ( h, rc ) 

ffdefine IL_FINDFIRST ( nm, at , st , h, rc ) 

ffdefine IL_FINDNEXT ( h , st , rc ) 

// do pointer subtraction and get INT32 result. This is trivial 

// because PTRDI FF_T is long for this environment. 

ffdefine IL_PTRDI FF ( a, b ) (b-a) 
ffdefine IL_HUGE_PTRDI FF ( a , b ) (b-a) 

/* 

* Use I L_HAN DLE_PADDI NG after any I L_HANDLE member of any structure that 

* needs to be size-invariant from one platform to another. For each plat- 

* form sizeof (IL_HANDLE) + sizeof ( IL_HANDLE_PADDING) = 4 bytes. 

+ * / 

ffdefine IL_HANDLE_PADDING (_name ) // no padding needed for MAC 

ffendif 



/ 



/ + 

* The following macros are system-independent. 

+■ 

ffdefine IL_DOESNT_EXIST ( f i lename ) ( ! IL_DOES_EXIST ( filename ) ) 



/ 



/ 



* Use the next 6 macros to improve readability of code that does 

* some common low- level operations for nul 1-terminated st rings . 

*• 

ffdefine IL_STRINGS_EQUAL ( a , b ) (I L_STRCOMP ( a , b ) ==0 ) 

ffdefine IL_STRINGS_EQUALN { a , b, len) ( IL_STRNCMP ( a , b, len)==0) 
ffdefine IL_STRINGS CI EQUAL ( a, b) ( IL STRICMP ( a , b ) ==0 ) 



/ 



ffdefine IL_MAKE_STRING_NULL { s ) 
ffdefine IL_STRING_IS_NULL ( s ) 
ffdefine IL STRING ISNT NULL(s) 



(s) [0)=0 

( (s) [0] == 0) 

( (s) [0] !- 0) 



/ 



* Use the next 2 macros to copy a string into a buffer while 

* guarding against 2 hazards: 

* 1. overflowing the targer buffer, 

* 2. failing to null-terminate the result 



ffdefine IL_SAFE_STRINGCOPY ( target , source ) \ 

{ \ 

IL_STRNCPY(target, source, sizeof (target ) -1 } ; \ 

(target) [ sizeof ( ta rget ) -1 ] = 0; \ 

} 



/ 
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tfdefine IL_SAFE_STRINGCOPYN ( ta rget , source, n) \ 

i \ 

if (n < 2) \ 

{target) [0] =0; \ 

else _ \ 

{ \ 

targetfO] = 'XO 1 ; \ 

IL_STRNCAT (target, source, n-1 ) ; \ 
} \ 

) 

/* 

* IL_SAFE_STRINGS_EQUAL builds anti-GPF protection into vanilla 

* string compare to check for equality. 

* V 

#def ine IL_SAFE_STRINGS_EQUAL ( p, q ) \ 
( ( (p)==(q) ) ? TRUE : \ 
( ( (p)==NULL || (q)==NULL) ? FALSE : \ 

(IL_STRCOMP( (pi, (q) )==0> \ 

) ) 

/ + 

* IL_SAFE_STRINGS_NOT_EQUAL builds anti-GPF protection into vanilla 

* string compare to check for inequality. 

* V 

ffdefine IL_SAFE_STRINGS_NOT_£QUAL (p, q ) \ 
( ( (p)==(q) ) ? FALSE : \ 
{ ( (p)==NULL || (q)==NULL) ? TRUE : \ 

(IL_STRCOMP( (p), (q) ) !=0) \ 

) ) 

/* 

* Use the ILERROR macro to log serious unexpected errors . 

* both args are of type ' int ' . 

* Typical usages are as follows : 
Example #1: 



rc = f { . . . ) 

* if (rc SUCCESS) 

* return ILERROR ( rc, ILTR ERR INTERNAL ERROR); 



* Example #2: 

* rc = f ( . . . ) 

* if (rc != SUCCESS) 
EXIT WITH ERROR ( ILERROR ( rc, ILTR ERR INTERNAL ERROR)); 



Example #3: 



rc = f ( . . . ) 
if (rc != SUCCESS) 
ILERROR ( rc, 0); 

// keep on processing after logging error 



Use ILERROR when underlyingEC is an int. 
Use ILERROR_L when underlyingEC is an INT32 (long). 

* Use ILERROR_S when underlyingEC is a string. 

+ — + 1 

#define ILERROR ( underlyingEC, ECtoReturn) \ 

ILUT_Error ( FILE , LINE , underlyingEC, ECtoReturn) 

^define ILERROR_L ( underlyingEC, ECtoReturn) \ 

ILUT_Error_L ( FILE , LINE , underlyingEC, ECtoReturn) 

#define ILERROR_S ( underlyingEC, ECtoReturn) \ 

ILUT_Error_S ( FILE , LINE , underlyingEC, ECtoReturn) 

/ + 

* The following ILTRACE macros are useful for writing non-error 
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* log lines to the ILERRORS.LOG file. 



* 



ILTRACEO adds a high-precision timestamp to the text that you 
supply 



+ 



ILTRACE1 adds a high-precision timestamp + file & lineff 

to the text that you supply 
#/ 

ffdefine ILTRACEO ( szText ) ILUT_TraceO (szText) 

ffdefine ILTRACE1 ( szText ) ILUT_Tracel ( FILE , LINE , szText) 

// if m | n an d max have not yet been defined, define them now 

ffifndef NOMINMAX // use NOMINMAX to turn off min/max macros 

ffifndef max 

#define max(a,b) (((a) > (b) ) ? {a) : (b) ) 

#endif 

ffifndef min 

ffdefine min(a,b) {((a) < (b) ) ? (a) : (b) ) 

ffendif 

ffendif // NOMINMAX 

// General macros (adapted from Microsoft Windows versions) 

#ifndef LOBYTE 

ffdefine LOBYTE ( w) ( ( BYTE ) ( w) } 

#endif 

#ifndef HIBYTE 

ffdefine HIBYTE ( w) ( (BYTE) { { (UINT16J (w) » 8) & OxFF) ) 

#endif 

ffifndef LOWORD 

ffdefine LOWORD(l) ( (WORD) (DWORD) (1) ) 

#endif 

ffifndef HIWORD 

ffdefine HIWORD(l) ( (WORD) ((({ DWORD) ( 1 ) ) » 16) & OxFFFF} ) 

ffendif 

ffifndef MAKE LONG 

ffdefine MAKELONG ( low, high) ( (LONG) ( ( (WORD) (low) ) | ( ( (DWORD) ( (WORD) (high) ) )«16) ) ) 
ffendif 

ffifndef MAKEUINT 

ffdefine MAKEUINT ( low, high) ( (UINT) ( ( (BYTE) (low) ) | ( ( (UINT) ( (BYTE) (high) ) ) «8 ) ) ) 
#endif 

// following defines are to allow Mac compilation 

ffifndef IDOK 

ffdefine IDOK 1 
ffendi f 

ffifndef IDCANCEL 

#define IDCANCEL 2 
ffendif 

// 

// Macro to "ones complement" a null terminated character string. 
// Note that "a" must be char[n], not IL_PSTR, since this macro 
// uses sizeof as part of the loop test to catch the case of 
// improperly formatted file (no trailing null ) 
// 

ffdefine IL_ONES_COMP ( a ) \ 
( \ 

unsigned int i; \ 

for (i = 0; i < min (sizeof (a), IL_STRLEN ( a ) ) ; i++) \ 
a[ij = ~a[i]; \ 

} 



// 

// The tr structure and structures contained within the tr structure 
// must be padded to make the 16 bit structure and the 32 bit structure 
// come out the same size. This is done by using the following macro 
in the places in those structures where the size varies. You give 
// it the name of the field as the first parameter and how many bytes 
// need to be padded as the second (This is the WIN32 size minus the 
// WIN16 size. Notice that this macro expands to a no op in the case 
// where ILX32_16 is not defined. This is to maintain backwards 
// compatibility with our 3.2.2 version and before. The only place 
// this should be defined is when compiling a 16 bit version that will 
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// need to except a tr structure from a 
// 

ffifndef ILX32_16 

#define ILX32_16PAD[name, size) 

Seise 

#def ine ILX32_16P/TD( name, size ) char 
#endif // ILX32_16 

// Several of the above MAC macros 

iifdef ILMAC 

^include "ilutil.h" 
#endif 

// Several of the above WIN macros 

#ifdef ILWIN 

^include "ilutil.h" 
8endif 

ffendif // ILMACRO 



Win32 app. 
name [size] ; 

require ILUTIL, so we include ILUTIL.H. 

require ILUTIL, so we include ILUTIL.H. 
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Name: ILTIME. H 

Purpose: Header file for IntelliLink date and time routines 
Author: Mike Blanchette, Copyright <c) IntelliLink, 1992-1995 
Notes: 

This header file defines symbols and function prototypes for the 
IntelliLink time library. These functions are used to convert 
between three distinct date/time formats: ALPHA, DISPLAY, and 
ENCODED. When stored in the intermediate file, all date and time 
fields are stored using the ALPHA format. When a field is shown 
to the user, it is always converted to the DISPLAY format. For 
internal computations, the date and time fields are generally stored 
in the ENCODED format. 

The format of ALPHA date fields is YYYYMMDD (ex. 19941031). The 
format of DISPLAY date fields is controlled by format parameters 
held in an I LTM_DTTM_FMT structure. (discussed further below} 

Usually the DISPLAY format is set to follow the natural format rules of 
the underlying system. Under Windows, this is taken directly from 
the user definition supplied for Short Date Format (changeable from 
Control Panel). The ENCODED date format is the number of days 
spanned since January 1, 1900. 

The format of ALPHA time fields is HHMM (ex. 1430). The format of 
DISPLAY time fields is controlled by format parameters held in an 
ILTM_DTTM_FMT structure. (discussed further below) 

Usually the DISPLAY format is set to follow the rules of the underlying 
system. 

Under Windows, this is taken from the time format specified under 
International in the Control Panel. Both other systems (like DOS), 
the format is defaulted to an applicable display format. The 
ENCODED time format is computed as the number of seconds elapsed 
since midnight. 

Use of ILTM_DTTM FMT parameter blocks: 



All of the date/time functions that build or parse DISPLAY formats 

use parameters held in an I LTM_DTTM_FMT parameter block. The "standard" 

format parameters are kept in a GLOBAL VARIABLE parameter block 

called ILTM_StdFmt. 

Sometimes one needs to use non-standard format parameters. Several 
translators have this requirement. To accommodate them, a secondary 
parameter block is kept in the "tr" structure — ILTR_DtTmFmt . 

You are also free to maintain your own ILTM_DTTM_FMT parameter block, 
e.g. if you don't pass the "tr" pointer around you might want to hang 
a parameter block off your "gl" pointer. 

Regardless of what parameter block you use, you must ensure that it is 
initialized before you use it. Initialization is ensured for all 
translators by the following lines in ILTR\EXPORT . C and IMPORT. C: 

// Set ILTIME global default date and time format 

IL_InitStdDateFormat ( ) ; 
IL_InitStdTimeFormat ( ) ; 

// set ILTR date and time format 

IL_InitDateFormat ( ) ; 
IL_InitTimeFormat ( ) ; 

Note that BOTH of the "built in" parameter blocks are initialized. 
■ There are many translators which always always use the "standard" DISPLAY 
formats. Given the identical initializations of the two parameter 
blocks, such translators are free to use either one!! For historical 
reasons there are many examples of each usage pattern. 

Base-level functions and convenience macros for DISPLAY-related functions 
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* 

+ 



* 
+ 

+ 



Toi:\ly e . 12 baSe " leVel f ""ion. that deal with DISPLAY formats in 



4 "Set/Tell" functions: 

4 "DisplayToXXX" functions: 

4 "XXXToDisplay" functions: 



IL_<Set/Teli><Date/Time>FormatEx 
IL_DisplayTo<Code/XDate/Time>Ex 
IL_<Code/XDate/Time>ToDisplayEx 



Each of these base-level functions has TWO associated macros 
example, here is a typical function and 



For 



its two macros 



IL_DisplayToDateEx 

IL_DisplayToDate 

IL_StdDisplayToDate 



— base-level function 

— macro to call with I LTR_DtTmFmt 
macro to call with ILTM StdFmt 



In addition to these macros there are 4 "Tnii-" ma ^~s,. u- u 
used to call the "Set Fonnaf base^level functus ^ 



^define ILTIME ~~ ~~~7"~ */ 

— // Signal header inclusion 

ffifdef cplusplus / , « . . , 

IfpraiSia warning (disable: 4200) Special handling for C++ 

extern "C" { 

#endif // cplusplus 

/* 

* Header files. 
+ . _ 

ffifdef ILWIN 77T,~~I */ 

ui* // Windows headers 

#if ! defined ( WINDOWS) 

^include <windows.h>' 

#define WINDOWS 

flendif 

tfendif 

Hnclude <stdlib.h> 
# include <st ring . h> 
# include "ilutil.h" 

/ + 

* Symbolic constants. 
+ 

tfifndef SUCCESS */ 

#define SUCCESS n / / h , 

tfendif H No error 

tfifndef FAILURE 

ffdefine FAILURE -i , , - 

fendif H Error foun <* 

#define IL 12 HOURS o // „ K 

#define IL~2 4~HOURS i \ 2 A ^° Ur time format 

ffdefine IL~~NO~LEAD n tt I ^ format 

ffdefine IL LEAD ZERO i ti ieadln <3 character in time 

ffdefine IL~LEAD~BLANK ? A ^ ing zero in tim e field 

ffdefine IL~NONE~ »\n» /, Leadin< 3 blan * in time field 

- w // No value supplied 

ffdefine ILTM NOTSET '\xFF» // 

xxtt Param hasn't been initialized 

/* 

* Limits. 

+ ^ 

ffdefine ILTM MAX SUFFIX 4 TT~~ " ~ */ 

ffdefine ILTM MAX~DATE SPEC 11 // „ S ^ °! tlme suffix string 

_ _ ii // Max size of date format 

/*- 

* Error codes. 
+ 

((define ILTM ERR SPEC 6000 TT~"~~~7~"~" */ 

ffdefine ILTM _ ERR _ MINS 6001 ,, ' date ° C time format 

ffdefine ILTM~ERR~ HOURS 6002 // \ M ™ lnutes 

ffdefine ILTM^RR-SECS Io03 // \ 

- - ouuj // invalid seconds 
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ffdefine ILTM_ERR_MONTH 
ffdefine ILTM_ERR_DAY 
ffdefine I LTM_E RR_Y EAR 
ffdefine ILTM_ERR_BADTIME 
ffdefine ILTM ERR BAD DATE 



6004 
6005 
6006 
6007 
6008 



// Invalid month 

// Invalid day 

// Invalid year 

// Invalid time string 

// Invalid date string 



* Date&Time Format Parameter Blocks 



/ 



typedef struct 
{ 



char cTimeType; 
char cTimeLead; 
char cTimeSep; 
char cDateSep; 



// 12 or 24 hour time format 

// Lead character in time field {zero, blank, or none) 
// Time separator 
// Date separator 
char szAM[ILTM_MAX_SUFFIX] ; // AM string 
char szPM[ILTM_MAX_SUFFIX] ; // PM string 
char szDateFormatflLTM MAX DATE SPEC] ; 



} 

ILTM DTTM FMT; 



typedef ILTM_DTTM_FMT IL_DIST * I LTM_DTTM_FMT_PTR; 
extern ILTM DTTM FMT ILTM StdFmt; 



/ 



* Initialization macros for the ILTIME GLOBAL Standard Format Parameters 



ffdefine IL_InitStdDateFormat { ) 

{ if ( ILTM_StdFmt . cDateSep == ILTM_NOTSET) 
IL_SetStdDateFormat ( M \0", '\0' } ; } 



/ 



\ 
\ 



ffdefine IL_InitStdTimeFormat ( ) \ 
{ if (ILTM_StdFmt.cTimeType I LTM_NOTSET } \ 
IL SetStdTimeFormat (-1, '\0*, 0, "\0", M \0" ); } 



* Initialization macros for the ILTR Format Parameters 

+ — 

ffdefine IL_InitDateFormat ( ) IL_SetDateFormat ("\0", *\0' ) 

#define IL_InitTimeFormat { } IL_SetTimeFormat (-1, 'NO 1 , 0, "\0", "\0" ) 



/ 



/ 



* Convenience macros for working with STANDARD DISPLAY format. 

+■ — — 

ffdefine IL_CodeDateToStdDisplay (_lDate, _szDate) \ 

IL_CodeDateToDisplayEx ( &ILTM_StdFmt, _lDate, _szDate) 

ffdefine IL_CodeTimeToStdDisplay (_lTime, _szTime ) \ 

IL_CodeTimeToDisplayEx ( &ILTM_StdFmt, _lTime, _szTime) 

ffdefine IL_DateToStdDisplay (_nMonth, _nDay, _nYear, _szDate) \ 

IL_DateToDisplayEx ( &ILTM_StdFmt, _nMonth, _nDay, _nYear, _szDate) 

#def ine IL_StdDisplayToCodeDate (_szDate, _plDate) \ 

IL_DisplayToCodeDateEx ( &ILTM_StdFmt, _szDate, _plDate) 

ffdefine IL_StdDisplayToCodeTime (_szTime, _plTime) \ 

IL_DisplayToCodeTimeEx ( &ILTM_StdFmt, _szTime, _plTime) 



/ 



ffdefine IL_StdDisplayToDate 
IL_DisplayToDateEx 

ffdefine IL_StdDisplayToTime 
IL_DisplayToTimeEx 

#def ine I L_SetStd Date Format 
I L_Set Date Format Ex 

ffdefine IL_SetStdTimeFormat 
IL SetTimeFormatEx 



_szDate, _pnMonth r _pnDay, _pnYear) \ 
&ILTM_StdFmt, _szDate, _pnMonth, _pnDay, _pnYear) 

_szTime, _pnHours, _pnMins } \ 
&ILTM_StdFmt, _szTime, _pnHours, _pnMins) 

_szFormat, _cSep) \ 
&ILTM_StdFmt, _szFormat, _cSep) 

_nType, _cSep, _nLead f _szAM, _szPM) \ 
&ILTM_StdFmt f _nType, _cSep, \ 
nLead, szAM, szPM ) 



ffdefine ILJTellStdDateFormat (_szFormat, _pcSep) \ 

I L_Te 1 1 Da t e Fo rma t Ex { & I LTM_S td Fmt , _s z Fo rma t , _pcSep ) 
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ffdefine IL_TellStdTimeFormat (_pnType, _pcSep, _pnLead, _szAM, _szPM) \ 
IL_TellTimeFormatEx ( &ILTM_StdFmt, _pnType, _pcSep, \ 

_pnLead, _szAM, _szPM J 

ffdefine IL_TimeToStdDisplay (_nHours f _nMins, _szTime) \ 

IL TimeToDisplayEx (&ILTM_StdFmt, _nHours, _nMins, _szTime) 



/* 

* Convenience macros for working with current ILTR DISPLAY format. 

+> _ _ * i 

ffdefine IL_CodeDateToDisplay (_lDate, _szDate) \ 

IL_CodeDateToDispiayEx UILTR_DtTmFmt, _lDate, _szDate) 

ffdefine I L_CodeTimeTo Display (_lTime, _szTime) \ 

IL_CodeTimeToDisplayEx ( SlLTR_DtTmFmt, _lTime, _szTime) 

#define IL_DateToDisplay (_nMonth , _nDay, _nYear, _szDate) \ 

IL_DateToDisplayEx { & ILTR_DtTmFmt , _nMonth, _nDay, _nYear, _szDate) 

ffdefine IL_DisplayToCodeDate {_szDate, _piDate) \ 

IL_DisplayToCodeDateEx { &ILTR_DtTmFmt, _szDate, _plDate) 

ffdefine IL_DisplayToCodeTime (_szTime, _plTime) \ 

IL_DisplayToCodeTimeEx { &ILTR_DtTmFmt , _szTime, _plTime) 

ffdefine IL_DisplayToDate (_szDate, _pnMonth, _pnDay, _pnYear) \ 

IL_DisplayToDateEx ( & I LTR_DtTmFmt , _szDate, _pnMonth, _pnDay, _pnYear) 

ffdef ine IL_DisplayToTime {_szTime, _pnHours, _pnMins ) \ 

IL DisplayToTimeEx ( &ILTR_DtTmFmt, _szTime, _pnHours, _pnMins) 



ffdefine IL_Set DateFormat (_sz Format , _cSep) \ 

IL_SetDateFormatEx ( & ILTR_DtTmFmt , _szFormat, _cSep) 

ffdefine IL_SetTimeFormat (_nType, _cSep, _nLead, _szAM, _szPM) \ 
IL_SetTimeFormatEx ( &ILTR_DtTmFmt, _nType, _cSep, \ 

_nLead, _szAM, _szPM } 

ffdefine I L_Tel 1 Da teFormat ( _sz Forma t , _pcSep) \ 

IL_TellDateFormatEx { & I LTR_DtTmFmt , _szFormat, _pcSep) 

ffdefine IL_TellTimeFormat (_pnType f _pcSep, _pnLead, _szAM, _szPM) \ 
IL_TellTimeFormatEx ( &ILTR_DtTmFmt, _pnType, _pcSep, \ 

_pnLead, _s zAM, _szPM } 

ffdefine IL_TimeToDisplay (_nHours , _nMins, _szTime) \ 

IL TimeToDisplayEx (&ILTR DtTmFmt, nHours, nMins, szTime) 



/ 



Function prototypes 



7 



BOOLEAN 
( 

BOOLEAN 
( 

long IL 
f 

long IL 
(" 

void IL 



void IL 



IL PSTR 



{ 



IL PSTR 



{ 



IL_DECL IL_AlphaDateOK 

IL_PSTR sDate ) ; 

I L_DECL IL_AlphaTimeOK 

IL_PSTR sTime ) ; 

DECL IL_AlphaToCodeDate 

IL_PSTR date ) ; 

DECL IL_AlphaToCodeTime 

IL_PSTR time ) ; 

DECL IL_AlphaToDate 

IL_PSTR date, 

int IL_DIST *month, 

int IL_DIST + day, 

int IL_DIST *year ); 

DECL IL_AlphaToTime 

'iL^PSTR time, 

int IL_DIST *hours, 

int IL_DIST *mins ); 

I L_DECL IL_CodeDateToAlpha 

long IDate, 

IL_PSTR pszDate ) ; 

I L_DECL IL_CodeTimeToAlpha 

long ITime, 



// Is date string valid? 

/ / Date string 

// Is time string valid? 

// Time string 

// convert to days since 1900 

// IN: e.g. "19951231" 

/ / convert to seconds since 12AM 

// IN: e.g. "2359" 

// Split date string 

// Pointer to date string 

// Pointer to month number 

// Pointer to day number 

// Pointer to year number 

// Split time string 

// Pointer to time string 

// Pointer to hours 

// Pointer to minutes 

// Convert encoded date to YYYYMMDD 

// IN: days since 1900 

// OUT: e.g. "19951231" 

/ / Convert encoded t ime to HHMM 

// IN : seconds since midnight 
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IL_PSTR pszTime ) ; 
IL_PSTR IL_DECL IL_CodeDateToDisplayEx 
( ILTM_DTTM_FMT_PTR pFmt, 
long IDate, 
IL_PSTR pszDate ) ; 
IL_PSTR IL_DECL IL_CodeTimeToDisplayEx 
( ILTM_DTTMJTMT_PTR pFmt, 
long ITime, 
IL_PSTR pszTime ) ; 
int IL_DECL IL_DateDecode 
( long date, 

int IL_DIST *month, 
int IL_DIST *day, * 
int IL_DIST *year ) ; 
int IL_DECL IL_DateEncode 
( int month, 
int day, 
int year, 

long IL_DIST +date ); 
IL_PSTR IL_DECL IL_DateToAlpha 
( int month, 
int day, 
int year, 
IL_PSTR date ) ; 
IL_PSTR IL_DECL IL_DateToDisplayEx 
{ ILTM_DTTM_FMT_PTR pFmt, 
int month, 
int day, 
int year, 
IL_PSTR date ) ; 
int IL_DECL IL_DaysInMonth 
( int month, 
int year ) ; 
int IL_DECL ILJDayOfWeek 

( long date ) ; 
int IL_DECL IL_DisplayToCodeDateEx 
( ILTM_DTTM_FMT_PTR pFmt, 
IL_PSTR pszDate, 
long IL_DIST *plDate); 
int IL_DECL IL_DisplayToCodeTimeEx 
( ILTM_DTTM_FMT_PTR pFmt, 
IL_PSTR pszTime, 
long IL_DIST *plTime); 
int IL_DECL IL_DisplayToDateEx 
( ILTM_DTTM_FMT_PTR pFmt, 
IL_PSTR date, 
int IL_DIST *month, 
int IL_DIST *day, 
int IL_DIST *year ) ; 
int IL_DECL I L_DisplayToTimeEx 
( I LTM_DTTM_FMT_PTR pFmt, 
IL_PSTR time, ' 
int IL_DIST +hours, 
int IL_DIST *mins ) ; 
long IL_DECL IL_GetCurrent Date (); 
long IL_DECL IL_GetCurrentTime {); 
int IL_DECL IL_SetDateFormatEx 
( ILTM_DTTM_FMT_PTR pFmt, 
IL_PSTR format, 
char sep ) ; 
int IL_DECL IL_SetTimeFormatEx 
( ILTM_DTTM_FMT_PTR pFmt, 
int type, 
char sep, 
int lead, 
IL_PSTR am, 
IL_PSTR pm ) ; 
int IL_DECL IL_TellDateFormatEx 
( I LTM_DTTM_ FMT_ PT R pFmt, 
IL_PSTR format, 
char IL_DIST *sep ); 
int IL_DECL IL_TellTimeFormatEx 
( ILTM_DTTM_FMT_PTR pFmt, 
int IL_DIST *type, 
char IL_DIST *sep, 



// OUT: e.g. "2359" 

// Convert encoded date to display format 

// Pointer to format params block 

// Encoded date value 

// Pointer to date string 

// Convert encoded time to display format 

// Pointer to format params block 

// Encoded time value 

// Pointer to time string 

// Decode date field 

// Encoded date value 

// Pointer to month number 

// Pointer to day number 

// Pointer to year number 

// Encode date field 

// Month number (ex. 10) 

// Day number (ex. 31) 

// Year number {ex. 1994) 

// Pointer to date string 

// Construct date string 

// Month number (ex. 10) 

// Day number (ex. 31} 

// Year number (ex. 1994) 

// Pointer to date string 

// Convert to display format 

// Pointer to format params block 

// Month number (ex. 10) 

// Day number (ex. 31) 

// Year number (ex. 1994) 

// Pointer to date string 

// How many days in given month? 

// Month number (ex. 10) 

// Year number (ex. 1994) 

// What is day of week for date? 

// Encoded date value 

// Convert display format to encoded date 
// Pointer to format params block 
// Pointer to date string 
// Encoded date value 

// Convert display format to encoded time 

// Pointer to format params block 

// Pointer to time string 

// Encoded time value 

// Split display format date 

// Pointer to format params block 

// Pointer to date string 

// Pointer to month number 

// Pointer to day number 

// Pointer to year number 

// Split display format time 

// Pointer to format params block 

// Pointer to time string 

// Pointer to hours 

// Pointer to minutes 

// Get current encoded date 

// Get current encoded time 

// Set format of date strings 

// Pointer to format params block 

// Pointer to format string 

// Component separator 

// Set format of time strings 

// Pointer to format params block 

// Time format type 

// Component separator 

/ / Leading blanks or zeros 

// Pointer to AM string suffix 

// Pointer to PM string suffix 

// Tell current date format 

// Pointer to format params block 

// Pointer to format string 

// Pointer to date separator 

// Tell current time format 

// Pointer to format params block 

// Pointer to time format type 

// Pointer to time separator 
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int IL_DIST *lead, 

IL_PSTR am, 

IL_PSTR pm ) ; 
int IL_DECL IL_TimeDecode 
{ long time, 

int IL_DIST *hours, 

int IL_DI3T *mins, 

int IL_DIST *secs ) ; 
int IL_DECL IL_TimeEncode 
( int hours, 

int mins, 

int sees, 

long IL_DIST *time ) ; 
IL_PSTR IL_DECL IL_TimeToAlpha 
( int hours, 
int mins, 
IL_PSTR time ) ; 
IL_PSTR IL_DECL IL_TimeToDisplayEx 
{ ILTM_DTTM_FMT_PTR pFmt, 
int hours, 
int mins, 
IL_PSTR time ) ; 
int IL_DECL IL_WeekInMonth 
( long date ) ; 



ffifdef cplusplus 

} 

# end if // cplusplus 

#endif // ILTIME 



// Pointer to lead time type 

// Pointer to AM string suffix 

// Pointer to PM string suffix 

// Decode time field 

/ / Encoded time value 

// Pointer to hours 

// Pointer to minutes 

// Pointer to seconds 

/ / Encode time value 

// Hours number (ex. 1) 

// Minutes number (ex. 15) 

// Seconds number (ex. 30 ) 

// Encoded time field 

// Create time string 

// Hours number (ex. 1) 

// Minutes number (ex. 15) 

// Pointer to time string 

// Create display format time 

// Pointer to format params block 

// Hours number ( ex . 1 ) 

// Minutes number (ex. 15) 

// Pointer to time string 

// Get week of week for date 

// Encoded date field 



// Special handling for C++ 
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ffif !defined( ILUTIL) 

/* 

* Name: ILUTIL.H 

* Purpose: Header file for IntelliLink general purpose utility routines 

* Author: Copyright (c) IntelliLink, 1994 

+ ~_ 

^define ILUTIL // Signal header inclusion 

ffifdef cplusplus // Special handling for C++ 

Spragma warning {disable: 4200) 

extern "C M { 
ffendif // cplusplus 

/* 

* Header files . 

+ _* I 

ffifdef ILWIN // Windows headers 

#if !defined{ WINDOWS) 

^include <windows.h> 

ffdefine WINDOWS 

ffendif// WINDOWS 

ffendif // ILWIN 



if include <stdlib. h> 
ffinclude <string.h> 



ffifdef SYSMGR // System Manager headers 

ff include " inter fac . h" 
ffinclude "fileio.h" 

// Declare these here since we cannot include stdio.h 

int cdecl sprintf(char *, const char *, ...); 

char + cdecl tmpnam(char * ) ; 

ff else 

ffifndef RC_INVOKED 
ffinclude <stdio.h> 
ffifndef ILMAC 

ffinclude <io. h> 
ffinclude <dos.h> 
ffendif 
ffendif 

ffendif // SYSMGR 



// Common Intellilink types, other utilitys, et al 

ffinclude "ilio.h" 

/ + 

* Basic data types. 
+ */ 

ffifdef ILWIN // Windows definitions 

ffdefine IL_MAX_RESOURCE_LEN 14 

typedef struct 
{ 

char name [ IL_MAX_RESOURCE_LEN ] ; // Resource item name 

} IL_RCTTYPE; 

typedef struct 
{ 

IL_RCTTYPE names []; // Section type list 

} IL_RESOURCE; 
ffendif // ILWIN 



// Different types of file validation 

typedef enum 

{ 

ILUT_VALXD_PARSE, 
ILUT_VALID_DIRS, 
ILUT_VALID_FILE, 
I LU T_VAL I D_U P DAT E 
} ILUT VALID; 



// Check file syntax only 

// Check drive/directory existence 

// Check if file exists 

// Check if file can be updated 



// Character codes 

ffdefine ILUT_BSLASH_CHAR 
ffdefine ILUT BSLASH STR 



W 
\\" 



// BACKSLASH 

// BACKSLASH string 
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ffdef ine 


ILUT COLON CHAR 


t • i 

* 


// 


COLON 


ffdef ine 


I LUT_COLON_STR 


n . n 
• 


// 


COLON string 


ffdefine 


I LUT_CR_CHAR 


* \r • 


// 


RETURN 


ffdefine 


ILUT_CR_STR 


"\r" 


// 


RETURN string 


ffdefine 


ILUT_LF_CHAR 


'\n' 


// 


NEWLINE 


ffdefine 


ILUT_LF_STR 


"\n" 


// 


NEWLINE 


ffdef ine 


ILUT_CRLF~STR 


ILUT CR 


STR 


ILUT LF STR // CRLF pair 


ffdef ine 


ILUT_NULL_CHAR 


* \0 ' 


' // 


NULL 


ifae r l ne 


ILUT NULL STR 


\o w 


/ 1 


NULL string 


ffdefine 


ILUT PERIOD CHAR 


t 1 

ft 


II 


PERIOD 


ffdefine 


ILUT PERIOD STR 


n tt 

• 


// 


PERIOD string 


ffdef ine 


ILUT SPACE CHAR 


i r 


// 


SPACE 


ffdef ine 


ILUT SPACE STR 


n n 


// 


SPACE string 


ffdefine 


ILUT TAB CHAR 


'\t» 


// 


TAB 


ffdef ine 


ILUT TAB STR 


"\t" 


// 


TAB string 



ffifdef ILWIN 

ffdefine ILUT^BUFSIZE 
Seise 

ffdefine ILUT_BUFSIZE 
ffendif // ILWIN 



/ 



16384 



512 



// Windows buffer for file copy 
// DOS buffer for file copy 



* define ILUT_MEMPTR, used by the MEMUTIL functions 
+ ,, „ — _ _ _ 

ffifdef STRICT 
Seise 
ffendif 



/ 



ffdefine ILUT_MEMPTR IL_PANY 
#define ILUT MEMPTR IL PSTR 



/* 

* Error codes. 

+ - * / 



ffdef ine 


ILUT 


ERR 


_NOFILE 


7000 


ffdef ine 


ILUT" 


"err" 


"create 


7001 


ffdef ine 


ILUT 


"err" 


"read 


7002 


ffdefine 


ILUT 


^err" 


_write 


7003 


ffdef ine 


ILUT~ 


"err" 


"nomem 


7004 


ffdef ine 


ILUT 


"err" 


CHSIZE 


7005 


ffdefine 


ILUT 


"err" 


BUFFER 


7006 


ffdef ine 


ILUT - 


"err" 


DATA 


7007 


ffdef ine 


ILUT 


"err" 


SIZE 


7008 


#def ine 


ILUT~ 


"err" 


"parse 


7009 


ffdef ine 


ILUT 


"err" 


"dir 


7010 


ffdef ine 


ILUT 


err" 


"WRONGTYPE 


7011 


ffdef ine 


ILUT 


err" 


"settle FOR 


LESS 7012 



/* 

* Function prototypes. 
* * / 



// File not found 

// Can't create file 

// Can't read file 

// Can't write file 

// Can't allocate memory 

// chsize() failed 

// Buffer too small 

// Invalid data 

// Invalid size 

// Parse error 

// Directory does not exist 

// ILFldGetLine got wrong line type 

// you asked for more than max; 

// we're just giving you the max 



int IL_DECL ILAsciiToHex 
( IL_PSTR szSource, 
int nSrcLen, 
IL_PSTR szTarget, 
int nTarLen ) ; 

// Place holders, not yet writt 

int IL_chdir (IL_PSTR); 

int IL_chdrive (int); 

int IL_getdcwd (int, IL_PSTR, int); 

int IL_getdrive- (void); 

UINT16 IL_DECL ILUT_ByteSwapl6 

( UINT16 uiValue ) ; 
UINT32 IL_DECL ILUT_ByteSwap32 

( UINT32 uiValue ) ; 
int IL_DECL ILFldGetLine 

( IL_HFILE IL_DIST *stream, 
IL_PSTR type, 
IL_PSTR line, 
int len ) ; 
int IL_DECL ILHexToAscii 
( IL PSTR szSource, 



// Convert ASCII to HEX string 

// ASCII string buffer 

// Length of ASCII string 

// Buffer to hold HEX string 

// Size of HEX buffer 



// Change current directory 
// Change current drive 
// Get current directory 
// Get current drive 

// Swap bytes if "backwards" 

// Value to operate upon 

// Swap bytes if "backwards" 

// Value to operate upon 

// Get next line from text file 

// Pointer to file handle 

// Line prefix to locate 

// Line buffer to return 

// Size of line buffer 

// Convert HEX string to ASCII 

// HEX string buffer 
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int nSrcLen, 
IL_PSTR szTarget, 
int nTarLen ) ; 
int IL_DECL ILUT_CopyFile 

( IL_PCSTR szSourceFName, 
IL_PCSTR szTargetFName) ; 
int IL_DECL ILUT_FileExist 

( IL_PSTR szFileName); 
BOOLEAN IL_DECL ILUT_FileIsDevice 

{ IL_PCSTR pFileName ); 
int IL_DECL ILUT_Get Fi leAtt ributes 
( IL_PCSTR szFileName, 

int IL_DIST *pnFi leAtt r ) ; 



// Length of HEX string 

// Buffer to hold ASCII string 

// Size of ASCII string 

// Copy a file 

// From file name 

// To file name 

// Determine whether file exists 

// File name 

// Is the file a device? 

// File path 

// Get the attributes of a file 

// File name 

// Destination for attributes 



Note the subtle differences between ILUT_GetTempFile and 
ILUT_GetTempFileName. Function ILUT_GetTempFile returns the path 
of a temporary file in a default directory and always creates a 
placeholder for the returned file name. ILUT_GetTempFileName 
affords a greater degree of control by enabling the caller to 
optionally specify a directory to contain the temporary file, a 
prefix to use at the beginning of the file name, and a flag 
to signal whether a placeholder should be created for the file. 



/ 



IL_PSTR IL_DECL ILUT_GetTempFile 

( IL_PSTR lpPath ); 
IL_PSTR IL_DECL ILUT_GetTempFileName 
( IL_PSTR lpDir, 
IL_PSTR lpPrefix, 
IL_PSTR lpPath, 
BOOLEAN bCreate ) ; 
IL_PSTR IL_DECL ILUT_itoa 
( int nValue, 

IL_PSTR pResult, 
INT16 nRadix ) ; 
BOOL16 ILUT_IsValidDirectory 

( IL_PCSTR pDir ) ; 
BOOL16 ILUT_IsValidDrive 
{ IL_PCSTR pPath } ; 
B00L16 ILUT_IsZeroFile 

( IL_PSTR pFileName ) ; 
int IL_DECL ILUT_LongToAsciiz 
( long n, 

char IL_DIST *pszDst, 
int iMaxLen, 
int iMinDigits ) ; 
IL_PSTR IL_DECL ILUT_ltoa 
{ INT32 lValue, 
IL_PSTR pResult, 
INT16 nRadix ) ; 



// Create temporary file 

// Full path of temporary file 

// Get temporary file name 

// Location of temporary file 

// File name prefix to use 

// Full path returned 

// Create placeholder file? 

// Convert short to C-string 

// Value to convert 

// Result buffer pointer 

/ / Base for conversion 

// Is this a valid directory? 

// Pointer to directory path 

// Is this a valid drive? 

// Pointer to drive 

// Is this a zero-length file? 

// Pointer to file name 

// Convert long to ASCII string 

// Number to convert 

// Buffer to hold ASCII string 

// Size of buffer 

// Minimum digits to pad 

// Convert long to C-string 

// Value to convert 

// Result buffer pointer 

// Base for conversion 



ILUT_MEMPTR IL_DECL ILUT_MemAlloc ( 
UINT32 nSize, 

IL_HANDLE IL_DIST *phMem ); 
void IL_DECL lLUT_MemFree ( 

IL_HANDLE hMem, 

IL_PANY pMem ) ; 
ILUT_MEMPTR IL_DECL ILUT__MemReAlloc ( 

UINT32 nSize, 

IL_HANDLE IL_DIST *phMem, 

IL_PANY pMem ) ; 
void IL_DIST IL_DECL ILUT_MemSig ( 

IL_PSTR pSig ) ; 

int IL_DECL ILUT_RenameFile 
( IL_PSTR szOldName, 
IL_PSTR szNewName); 
int IL_DECL ILUT_SetFileSize 
( IL_PSTR szFname, 
long newSize ) ; 
int ILUT_stricmp 

( const char + src, 
const char *tar ) ; 
int ILUT_strnicmp 

{ const char *src, 



// Allocate memory, return ptr 

// Size of allocation 

// Pointer to memory handle 

// Free memory 

// Memory handle 

// Memory pointer 

// Reallocate memory, return ptr 

// New size for allocation 

// Pointer to memory handle 

// old pointer (to be loggable) 

// Set debug logging signature 

// Pointer to memory handle 

// Rename a file 

// Old file name 

// New file name 

// Set the file size 

// File name 

// New file size 

// Case insensitive string compare 

// Source string 

// Target string 

// Case insensitive sub-string comp. 

// Source string 
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const char *tar, 
unsigned int nCount ) ; 
int ILUT_strsub 

( IL_PSTR pStr, 
UINT16 nMax, 
IL_PCSTR pFind, 
IL_PCSTR pRepl ) ; 
IL_PSTR IL_DECL ILUT_ultoa 
( UINT32 lvalue, 
IL_PSTR pResult, 
INT16 nRadix ) ; 
int IL_DECL ILUT_ValidFile 
( IL_PSTR pFileName, 
ILUT_VALID nMode ) ; 
INT16 IL_DECL IL_axtoi 

( IL_PSTR string ) ; 
INT32 IL__DECL IL_axtol 

( IL_PSTR string ) ; 

int IL_DECL ILUT_Error 

( IL_PSTR szCaller, 
int nLineNumber, 
int nllnderlyingErrorCode, 
int nErrorCodeToReturn ) ; 

int IL_DECL ILUT_Error_L 
( IL_PSTR szCaller, 
int nLineNumber, 
INT32 lUnderlyingErrorCode, 
int nErrorCodeToReturn ) ; 

int IL_DECL ILUT_Error_S 
( IL_PSTR szCaller, 
int nLineNumber, 

IL_PSTR IpszUnderlyingErrorCode, 
int nErrorCodeToReturn ) ; 

int IL_DECL ILUT_Er rorLogDelete ( ) ; 

int IL_DECL ILUT_TraceO 

( IL_PSTR szText ) ; 

int IL_DECL ILUT_Tracel 

{ IL_PSTR szCaller, 
int nLineNumber, 
IL_PSTR szText } ; 

// Utility functions for passing data 

int IL DECL ILUT CreateXl ator Ini Fi ie ( // 



IL_HINST hlnst, // 

IL_PSTR pszFileName, // 

// 

UINT32 nFileName) ; // 

int IL_DECL I LUT_CreateSett ingsKey ( // 

IL_PSTR pszKeyName, // 

IL_HKEY *phKey) ; // 

int IL_DECL ILUT_FreeSettingsKey ( // 

IL_HKEY hKey ) ; // 

int IL_DECL ILUT_GetNumberSetting ( // 

IL_HKEY hKey, // 

IL_PSTR pszSettingName, // 

INT32 nDefault, // 

INT32 + pnSettingValue) ; // 

int ILJDECL ILUT_GetStringSetting ( // 

IL_HKEY hKey, // 

IL_PSTR pszSettingName, // 

IL_PSTR pszDefault, // 

IL_PSTR pszSettingValue, // 

INT16 nResultSize) ; // 



// Target string 

// Max number of chars to compare 
// Replace all occurrences of a substring 
// String to operate on 
// Max result string (including NUL) 
// Substring to find in pStr 
// Replacement string 
// Convert unsigned long to C-string 
// Value to convert 
// Result buffer pointer 
// Base for conversion 
// Validate a file specification 
// File name to process 
// Type of operation to perform 
// ASCII hex string to 16-bit int 
// String in hex notation ("0xA5f") 
// ASCII hex string to 32-bit long 
// String in hex notation ("0xA5f") 

// invoke via ILERROR macro 

// source code module filename 

// line number in source code 

// underlying error code 

// error code to return 

// invoke via ILERROR_L macro 

// source code module filename 

// line number in source code 

// underlying INT32 error code 

// error code to return 

// invoke via ILERROR_S macro 
// source code module filename 
// line number in source code 
// underlying error STRING 
// error code to return 

// delete ILERR0RS.LOG file 

// invoke via ILTRACEO macro 
// string to add to ilerrors.log 

// invoke via ILTRACE1 macro 

// source code module filename 

// line number in source code 

// string to add to i 1 errors . log 

via "Settings" 

Create full xlator INI file name 
Instance handle 

In: translator name (i.e. "ILXCDF" 
Out: resulting filename buffer 
Max length for filename 

Create a new settings key 

Key name (file name for 16-bit) 

Pointer to IL_HKEY return value 

Free a key 
IL_HKEY value 

Get a 4 -byte int value 
Key for current section 
Keywo rd 

Default value if no setting found 
Result value pointer 

Get a string value 

Key for current section 

Keywo rd 

Default value if no setting found 

Result string 

Max size for result 
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int IL_DECL ILUT_PutNumberSetting 
IL_HKEY hKey, 
IL_PSTR pszSettingName, 
INT32 nSettingValue) ; 



{ // Put a 4-byte int value 
// Key for current section 
// Keyword 

// New value to be set 



int IL_DECL ILUT_PutStringSetting ( 
IL_HKEY hKey, 
IL_PSTR pszSettingName, 
IL_PSTR pszSettingValue) ; 



// Put a string value 

// Key for current section 

// Keyword 

// New value to be set 



// The follow functions work on Windows only 

ffifdef ILWIN 



void IL_DECL ILUT_CenterWindow // 

( IL_HWIN hParent, // 

IL_HWIN hChild, // 

BOOL16 bOnScreen ); // 

HGLOBAL IL_DECL ILUT_Get DBNames // 

( INT16 nSysID, // 

LPCSTR pFileExt, // 

LPCSTR pFileName ); // 

int IL_DECL ILUT_Va 1 idateDBName // 

( INT16 nSysID, // 

LPCSTR pFileExt, // 

LPCSTR pFileName ); // 

HGLOBAL IL_DECL I LUT_OSWGet DBNames // 

{ INT16 nSysID, // 

LPCSTR pFileExt, // 

LPCSTR pFileName }; // 

int IL_DECL ILGetResou rce // 

{ IL_HINST hlnst, // 

IL_PSTR szRCName, // 

IL_PSTR szRCType, // 

I L_HAN DLE +hArray, // 

IL_RESOURCE **pArray ); // 

void SetDialogBkColor // 

( COLORREF clrCtlBk, // 

COLORREF clrCtlText ); // 



Center window on parent 
Handle to parent or NULL 
Handle to child window 
Force chi Id on screen 

Get list of ODBC or other database names 
System ID 

Ptr to database "file extension" string 
Pointer to database name 

Validate ODBC or other database name 
System ID 

Ptr to database "file extension" string 
Pointer to database name 

Get list of On Schedule" database names 
System ID 

Ptr to database "file extension" string 
Pointer to database name 

Load custom resource 

Instance handle of owner 

Resource name 

Resource type 

Pointer to memory handle 

Pointer to memory 

set dialog backgrnd/text color 
background color 
text color 



void ResetDialogBkColor ( ) ; 


// 


reset SetDialogBkColor "hook" 




void IL DECL ILUT TileWindow 


// 


Tile child window on parent 




( IL. HWIN hParent, 


// 


Handle to parent or NULL 




IL_HWIN hChild ); 


// 


Handle to child window 




BOOLEAN IL_DECL ILUT_TestCommPort 


// 


Test availability of specified 


COM port 


( IL_PSTR szCommPort ); 


// 


Pointer to name of COM port to 


be tested 



// Function used only with Lotus Organizer 2.1 

HINSTANCE ILUT_LoadLotusAPI // Load ORGAPI and dependent DLLS 

( LPCSTR lpInstallDir ); // IntelliLink directory 

void ILUT_UnloadLotusAPI // Unload ORGAPI DLL 

{ HINSTANCE hOrgDLL ); // DLL instance handle 



// Functions used only with Now Up-to-Date for Windows (3.1/95) 

HINSTANCE ILUT_LoadNowAPI // Load NOWAPI and dependent DLLS 

( LPCSTR lpInstallDir ); // IntelliLink directory 

void ILUT_UnloadNowAPI // Unload NowAPI DLL 

{ HINSTANCE hNowDLL ); // DLL instance handle 

// Function used only with Schedule+ 7.0 

HINSTANCE ILUT_LoadSPlusAPI // Load Schedule+ 

( LPCSTR lpInstallDir ); // IntelliLink directory 

void ILUT_UnloadSPlusAPI // Unload Schedule* 

( HINSTANCE hSchDLL ); // DLL instance handle 



/* 

* Function: WinFile_Open 

* Purpose: Generic Windows open routine, used by all IL functions 
+ Returns: -1 if error, otherwise 0 
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int IL_DECL WinFile_Open ( IL_PCSTR path, 

int openMode, 
LPOFSTRUCT plnfo, 
IL_HFILE *phFile, 
IL_PCSTR SourceFileCalledFrom, 
int LineNumberCalledFrom ); 

/* 

* Function: WinFile_Close 

* Purpose: Generic Windows close routine, used by all IL functions. 

* Returns: -1 if error, otherwise 0 
★ 

int IL_DECL WinFile_Close ( IL_HFILE hFile, 

IL_PCSTR SourceFileCalledFrom, 
int LineNumberCalledFrom ) ; 

#endif // ILWIN 



#if defined (ILWIN) I I defined (ILMAC) 

// The following functions work on Windows and Macintosh only 

long IL_DECL ILUT_GetFileSize // Determine size of open file 

( IL_HFILE hFile ); // File handle 

#endif // ILWIN or ILMAC 



ffifdef ILMAC 

// The following functions work 

UINT16 IL_DECL ILUT_MacByteSwapl6 

{ UINT16 uiValue ) ; 
UINT32 IL_DECL ILUT_MacByteSwap32 

{ UINT32 uiValue ) ; 
int IL_DECL ILMAC_LoadString 
( IL_HINST hinst, 
UINT16 nldResource, 
IL_PSTR lpBuffer, 
UINT16 nBuffer)"; 



// 

int IL 

int IL 

int IL 

int IL 

int IL 



int IL 



int IL 



int IL 



• Macintosh functions used 
_DECL MACFile_GetDir 
( IL_PSTR pPath ) ; 
_DECL MACFile_SetDir 
( IL_PSTR pPath ) ; 
_DECL MACFile_MakeDir 
( IL_PSTR pPath } ; 
_DECL MACFile_Exists 
{ IL_PSTR pPath ) ; 
_DECL MACFile_SetEOF 
( IL_PSTR pPath, 

long lLength ) ; 
DECL MACFile_Length 
( IL_PSTR pPath, 

long *plLength ) ; 
_DECL MACFile_Attrib 
( IL_PSTR pPath, 

int *piAttribs ) ; 
_DECL MACFile_Info 
( IL_PSTR pPath, 
int *piAttribs, 
long *plLength }; 
int IL_DECL MACFile_SetType 
{ IL_PSTR pPath, 
long lType, 
long lCreator ) ; 
IL_DECL MAC File_App Path 
IL_PSTR pPath ) ; 
IL_DECL' MAC Fi 1 e_AppDi r 
IL_PSTR pDir } ; 
IL_DECL MACFile_GetILDir 
( IL_PSTR pDir ) ; 
IL_PSTR MAC File_App File 
( IL_PSTR pFile) ; 
void IL_DECL MACFile_SplitPath 



on Macintosh only 
// Swap bytes if "backwards" and on the mac 
// Value to operate upon 

// Swap bytes if "backwards" and on the mac 
// Value to operate upon 

// Emulate Windows LoadString with Mac STR# 
// Module "instance" handle for the Mac 
// Windows-style string resource ID 
// Pointer to buffer to receive the string 
// Length of caller's buffer 



IL_PSTR 
( 

IL_PSTR 
( 

IL PSTR 



to implement ILMACRO file I/O macros 

// Retrieve the default directory path name 

// Pointer to string to receive path name 

// Set the default directory by path name 

// Pointer to the directory path name 

// Create a new directory by path name 

// Pointer to the directory path name 

// Determine if file/directory exists 

// Pointer to file/directory path name 

// Set file logical length 

// Pointer to file path name 

// New file length in bytes 

/ / Get file/di rectory ( logical ) length 

// Pointer to file/directory path name 

// Pointer to variable to receive length 

// Get file/directory (logical) length 

// Pointer to file/directory path name 

// Pointer to variable to receive length 

// Get file/di rectory attributes and length 

// Pointer to file/directory path name 

// Pointer to variable to receive attributes 

// Pointer to variable to receive length 

// Set Mac file type and creator 

// Pointer to file path name 

// File type code (e.g., 'TEXT') 

// File creator code (e.g., 'MPS ") 

// Get current application path name 

// Pointer to location to store path name 

// Get current application directory path 

// Pointer to location to store dir name 

/ / Get pathname of IL translation directory 

// Pointer to location to store dir name 

// Get current application file name 

// Pointer to location to store file name 

// Split a path name into components 
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( IL_PSTR pPath, 


// 




IL_PSTR pDrive, 


// 




IL_PSTR pDir, 


// 




IL PSTR pName, 


// 




IL PSTR pExt ) ; 


// 


void IL DECL MACFile MakePath 


// 




( IL PSTR pPath, 


// 




IL PSTR pDrive, 


// 




IL_PSTR pDir, 


// 




IL_PSTR pName, 


// 




IL_PSTR pExt ) ; 


/ f 


int 


MACFile Open 


/ / 




{ IL_PSTR path, 


// 




int openMode, 


/ / 




IL HFILE *theFileNum ); 


// 

r t 


int 


MACFile Close 


f f 




( IL HFILE hFile ) ; 


f f 


int 


MAC File Read 


ft 




( IL_HFILE hFile, 


// 




char ^buffer, 


f f 




int count, 


f f 




int * readCount ) ; 


ft 


int 


MACFile Write 


// 




{ I L_HFI LE hFile, 


// 




char *buf f er, 


// 




int count ) ; 


f f 


int 


MACFile Seek 


f f 




( IL_HFILE hFile, 


If 




unsigned long position, 


If 




int mode ) ; 


ft 


long 


MACFile Size 


f f 




( IL HFILE hFile ) ; 


f f 


long 


MACFile Tell 


f f 




( IL HFILE hFile ) ; 


f f 


IL PSTR IL DECL MACFile TempName 


ff 




( IL_PSTR pDir, 


f f 




IL PSTR pPrefix, 


ft 




IL_PSTR pPath, 


ff 




BOOLEAN bCreate ) ; 


ff 


int 


IL__DECL MACFile_Copy 


ff 




( char *pszSourcePath, 


f f 




char *pszTargetPath ); 


f f 


//-- 


Functions used by MACFILE. 


C. V 


IL_PSTR IL_DECL Get Path FromFSSpec 


f f 




( FSSpec* spec, 


f f 

f f 




IL_PSTR Path); 


ff 


void 


I L_DECL pstrcpy 


f f 

f f 




( Str255 dst, 


f / 

f I 




Str255 src) ; 


ft 


void 


IL_DECL pstrcat 


ft 




( Str255 dst, 


ft 




St r255 src) ; 


ff 


void 


I L_DECL pstrinsert 


ft 




( Str255 dst, 


ff 




Str255 src); 


ft 



Pointer to "drive" component 

Pointer to "directory" component 

Pointer to "file name" component 

Pointer to "extension" component 

opens a file 

pathname to the file 

file open mode 

the file reference number 

closes a file 

the file reference number 

read a buffer from disk 

the file reference number 

the buffer into which to read 



a buffer to disk 



return size of an open file 
the file reference number 
return current file position 



Pointer to suggested directory path 
Pointer to file name prefix 



Copy source file to target file 



Mac functions used to implement 



I L_HANDLE IL_DECL MacMem_Alloc // 

( UINT32 nBytes ) ; // 

void IL_DECL MacMem_Free // 

( IL_HANDLE hBlock ); // 
void IL_DIST *IL_DECL MacMem_Lock // 

( IL_HANDLE hBlock ); // 

IL_HANDLE IL_DECL MacMem_Realloc // 

( UINT32 nBytes, // 

IL_HANDLE hBlock ) ; // 

void IL_DECL MacMem_Unlock // 

( IL_HANDLE hBlock >; // 

void IL_DECL MacMem_Xlate // 

{ BOOLEAN bXlate ) ; // 



Convert FSSpec struct to a path name 
Pointer to the FSSpec structure 
Pointer to pathname, size >- MAX_PATH 
Pascal string version of strcpy 
Destination string (Pascal format) 
Source string (Pascal format) 
Pascal string version of strcat 
Destination string (Pascal format) 
Source string (Pascal format) 
Insert string IN FRONT OF dest. string 
Destination st ring (Pascal format ) 
Source string (Pascal format) 

IL_ALLOC, IL_REALLOC, etc. macros 
Allocate a relocatable block of memory 
Number of bytes to allocate 
Frees a block of memory 
Handle of existing memory block 
Locks a relocatable block of memory 
Handle of existing memory block 
Grows or shrinks a block of memo r y 
Number of bytes of new memory block 
Handle of existing memory block 
Unlock a locked block of memory 
Handle of existing memory block 
Turn on/off the "In Translation" switch 
TRUE or FALSE 



// Mac functions used to implement malloc, realloc, free, new, and delete 

void * MacUT_malloc // Al locate/ lock relocatable memory block 

( size_t nBytes ); // Number of bytes to allocate 



Copyright ©1996 Puma Technology, Inc. All Rights Reserved 



Ilutil.h 



Page 8 of 9 



void * MacUT_calloc 

{ size_t nltems, 

size_t nBytesPerltem ); 
void * MacUT_realloc 

( void * pMemory, 
size_t nBytes ) ; 
void MacUT_free 

( void * pMemory ) ; 



// Allocate/lock/clear relocatable memory 

// Number of items to allocate 

// Number of bytes per item 

// Grows or shrinks a block of memory 

// Pointer to the existing memory block 

// New size for reallocated memory block 

// Frees a relocatable block of memory 

// Pointer to the existing memory block 



// Macintosh "DLL" ( ICRZ 

IL_HINST ILMAC_LoadLibrary 

( IL_PSTR lpLibName ); 
void ILMAC_FreeLibrary 

( IL_HINST hinst ) ; 
long ILMAC_CallCodeResource 
{ IL_HINST hinst, 
long nFunction, 
IL PANY pParam ) ; 



code resource) support functions 

// Load code resource library by name 

/ / Name of code resource req 'd 

// Unload code resource and free resources 

/ / code resource info 

// Call a function in an ICRZ code resource 

// hinst points to ICRZ "header" struct 

// Function code of the requested function 

// pointer to function parameter block 



// Macintosh functions for impl 

int IL_DECL 

I L_Get Private Prof ileString 
( IL_PSTR pszSection, 
IL_PSTR pszVariable, 
IL_PSTR pszDefault, 
IL_PSTR pszValue, 
int nValLength, 
IL_PSTR pszFileName ); 
BOOLEAN IL_DECL 

IL_WritePrivateProf i leSt ring 
( IL_PSTR pszSection, 
IL_PSTR pszVariable, 
IL_PSTR pszValue, 
IL_PSTR pszFileName ); 
int IL_DECL IL_DeleteProf ile 

{ IL_PSTR pszFileName ); 
int IL_DECL IL_DeleteProf ileString 
( IL_PSTR pszFileName, 
IL_PSTR pszSection, 
IL_PSTR pszVariable >; 
int IL_DECL IL_GetProf ileString 



( IL_PSTR pszSection, 
IL_PSTR pszVariable, 
IL_PSTR pszDefault, 
IL_PSTR pszValue, 
int nValLength ) ; 
int IL_DECL 

I L_Get Private Prof ilelnt 
( IL_PSTR pszSection, 
IL_PSTR pszVariable, 
int nDefault, 
IL_PSTR pszFileName ); 
int IL_DECL IL_Get Prof i lelnt 
( IL_PSTR pszSection, 
IL_PSTR pszVariable, 
int nDefault ) ; 
BOOLEAN IL_DECL 

IL_WriteProf ileString 
( IL_PSTR pszSection, 
IL_PSTR pszVariable, 
IL_PSTR pszValue ) ; 

ffendif // ILMAC 



ementing Windows "profiles" on the Mac 

// Get profile value from ILDF file 

// Profile "Section" name 

// Profile "Variable" name 

// Default "Value" if variable not found 

// Pointer to string to receive the value 

// Length of caller's value string buffer 

// Profile "File" name 

// Write profile value into ILDF file 
// Profile "Section" name 



// Profile "Variable" name 

// Profile "Value" string 

// Profile "File" name 

// Delete all records for specific FileName 

// Profile "File" name 

// Delete profile string 

// Profile "File" name 

// Profile "Section" name 

// Profile "Variable" name 

// Get profile value from ILDF file 

// Profile "Section" name 

// Profile "Variable" name 

// Default "Value" if variable not found 

// Pointer to string to receive the value 

// Length of caller's value string buffer 

// Get profile integer from ILDF file 

// Profile "Section" name 

// Profile "Variable" name 

// Default "Value" if variable not found 

// Profile "File" name 

// Get profile integer from ILDF file 

// Profile "Section" name 

// Profile "Variable" name 

// Default "Value" if variable not found 

// Write profile value into ILDF file 

// Profile "Section" name 

// Profile "Variable" name 

// Profile "Value" string 



/ 



The following definitions are for a general-purpose buffer management 
mechanism, originally written by Bob Daley as I LXNOW\ BUFFER. H. 



/ 



typedef struct 
{ 

IL_PANY 
IL_HANDLE 
long 
long 



// Buffer "header" structure 



pBuf f er; 
hBuf f er; 
lBufSize; 
IMaxSi ze; 



// Pointer to buffer, NULL == not allocated 

// Handle for buffer, if pBuffer != NULL 

// Buffer size currently allocated 

/ / Size beyond which buffer must not grow 
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long lGrowthlncrement; // Number of bytes to ( re- ) al locate . Zero 

// .. to allocate just enough to fit 
IL_HANDLE hBuf f erHeader ; // Added 3/24/96. See note below. 

} ILUT_BUFFER, IL_DIST * ILUT_PBUFFER; 

/* 

+ NOTE: the 1 hBu-f f erHeader ' member of ILUT_BUFFER is a johnny-come-lately 

* which must be used with caution to avoid backward compatibility issues. 

* ILTR_pTmpBuf and ILTR_pSSTBuf were introduced long before, so the handles 

* for those structures are stored in the "tr" structure, not here. 



int ILUT_InitBuf fer // Initialize a buffer 
( ILUT_PBUFFER phHeader, 

long UnitialSize, // initial size; zero for no initial allocation 

long lGrowthlncrement, // minimum growth; zero for "just enough" 

long IMaxSize ); // max size beyond which buffer will not grow 



int ILUT_GetBuffer 

( ILUT_PBUFFER phHeader, 
long lBytesNeeded ); 



// { Re ) -allocates buffer of needed size 
// Pointer to buffer header structure 
// Number of bytes needed 



void ILUT_FreeBuf fer 

( ILUT PBUFFER phHeader ) 



// Frees buffer, IF it has been allocated 
// Pointer to buffer header structure 



ffifdef cplusplus 

} 

#endif // cplusplus 



// Special handling for C++ 



tfendif // ILUTIL 
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Mod u 1 e : 


BUFFER. C 






Purpose: 


Buffer management 


functions . 




r unctions • 


ILUT InitBuffer - 


Initialize a buffer 






ILUT_GetBuf fer -- 


Get a pointer to a buffer of specified 
Allocates or reallocates the buffer as 


si ze . 
needed . 




ILUT_FreeBuf fer - 


Free buffer if allocated and zero both 
buffer handle and buffer pointer. 


the 


Author : 


Bob Daley, Copyright (c) IntelliLink Corporation, 1995 





^include "ilutil.h" 



+ 



int 



Function 
Purpose : 
Returns : 



ILUT_InitBuf fer 
Initialize a buffer 
SUCCESS or error code 



ILUT_InitBuffer 

{ ILUT_PBUFFER phHeader, 
long UnitialSize, 



/ 



// initial size; zero for 



no 



long lGrowthlncrement , / / minimum growth; zero for 



long IMaxSize ) 



initial allocation 
j ust enough" 



// max size beyond which buffer will not grow 



int rc; 

i f ( lGrowthlncrement > IMaxSize ) 
return ILUT_ERR_SIZE; 

// zero out the header 

phHeader->pBuf fer = NULL; 
phHeader->hBuf fer = I L_N U L L_HAN DLE ; 
phHeader->lBufSize = 0; 
phHeader->lMaxSize = IMaxSize; 

if (UnitialSize — 0) 

rc = SUCCESS; 
else 
{ 

// Allocate the buffer to its initial size - EXACTLY! 

phHeader->lGrowthIncrement = 0; 

rc = I LUT_Get Buffer (phHeader, UnitialSize); 



phHeader->lGrowth Increment = lGrowthlncrement; 



return rc; 



/* 
+ 

•k 

+ 

* 

+ 

■*■ 
■*■ 
*■ 
+ 

+ . 



Function : 
Purpose : 

Input : 



NOTE: 



Returns 



ILUT_GetBuf fer 

Get a pointer to a buffer of specified size. Allocates or 
reallocates the buffer as needed. 

phHeader Pointer to buffer header structure 

lBytesNeeded --Number of bytes actually needed 



buffer is never allowed to grow beyond max size, 
for more than the max he'll just get the max. 



If user asks 



SUCCESS or one of the following error codes: 
ILUT_ERR_NOMEM allocation failure 

ILUT_ERR_SETTLE_FOR_LESS -- you asked for more than max; we're 

just giving you the max 



/ 



int TLUT_GetBuf fer 

( ILUT_/PBUFFER phHeader, 
long lBytesNeeded ) 



{ 



long lBytes; 

int Best PossibleResult ; 



// ( Re) -allocates buffer of needed size 

// Pointer to buffer header structure 

// Number of bytes needed 

// Number of bytes to be allocated 
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// If buffer not allocated, allocate the buffer now. 

if (phHeader->pBuf fer == NULL) 
{ 

// Try to allocate the buffer for the first time. 

lBytes = max (lBytesNeeded, phHeader->lGrowthIncrement ) ; 
I L_ALLOC_MEM ( lBytes, phHeader->hBuf f er , phHeader->pBuf f er ) ; 
if (phHeader"->pBuf fer == NULL) 
return ILUT_ERR_NOMEM; 

// Allocation successful. Set current length and return pointer. 

phHeader->lBuf Size = lBytes; 
return SUCCESS; 

} 

// Buffer already allocated . If it's big enough, we ' re all done . 

if (phHeader->lBufSize >= lBytesNeeded) 
return SUCCESS; 

// Check to see if user is asking for more than the max 

if (lBytesNeeded > phHeader->lMaxSize) 

BestPossibleResult = ILUT_ERR_SETTLE_FOR_LESS; 
else 

BestPossibleResult = SUCCESS; 
// Buffer too small. Determine how much to grow buffer 

lBytes = max (lBytesNeeded, phHeader->lBuf Size + phHeader->lGrowthIncrement ) ; 

// Never grow buffer beyond MAX size 

lBytes = min (lBytes, phHeader->lMaxSize) ; 

// Try to reallocate buffer to the larger size 

IL_REALLOC_MEM (lBytes, phHeader->hBuf f er, phHeader->pBuf fer ) ; 
if (phHeader->pBuf fer == NULL) 
return ILUT_ERR_NOMEM; 

// Re-allocation successful. Adjust length. 

phHeader->lBuf Size = lBytes; 

// Return SUCCESS or ILUT_ERR_SETTLE_FOR_LESS 

return BestPossibleResult; 

} 



*■ 


Function : 


ILUT_FreeBuf fer 






Purpose : 


Free buffer if allocated and zero buffer handle and pointer 






Input : 


phHeader Pointer to buffer header structure 




+ 


Returns 


void 





/ 



void ILUT_FreeBuf fer // Frees buffer, IF it has been allocated 

( ILUT_PBUFFER phHeader ) // Pointer to buffer header structure 

{ 

// Free the buffer if it has been allocated 

if (phHeader->pBuf fer != NULL) 

IL_FREE_MEM (phHeader->hBuf f er, phHeader->pBuf fer ) ; 

// Always clear the pointer, handle, and currently allocated length 

phHeader->pBuf f er = NULL; 
phHeader->hBuf fer = IL_NULL_HANDLE; 
phHeader->lBufSize = 0; 
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ftif !defined( ILTBL) 



/* 

* Name: ILTBL.H 

* Purpose: Header file for table handling 

* Author: Mike Blanchette, Copyright (c) IntelliLink Corporation, 1993 

* */ 

ffdefine ILTBL 

// Dependent include files 

flifdef ILWIN 

ff include <windows . h> 
ffendif 

ff include <stdlib . h> 
ffinclude "ilx.h" 
ffinclude "ilutil.h" 



// 


Limits 






ffdef ine 


ILTB 


MAX 


SYS FREE 


40 


ffdef ine 


iltb" 


"max" 


"sec free 


18 


ffdefine 


iltb" 


"max" 


"checks 


20 


ffdefine 


iltb" 


"max" 


"comports 


9 


ffdef ine 


iltb" 


"max" 


"typename 


20 


ffdefine 


iltb" 


"max" 


"line 


80 


ffdefine 


iltb" 


"max" 


"MSG 


200 


ffdefine 


iltb" 


"max" 


"name 


31 


ffdef ine 


iltb" 


"num" 


"fldtypes 


7 


ffdefine 


iltb" 


"num" 


"sections 


10 


#def ine 


iltb" 


"num" 


"special 


64 



// System free space 

// Section free space 

/ / Max number of checks 

// Max number of com ports 

// Max size of type names 

// Max length of text line 

// Max length of message 

// Size of name field 

// Number of field types 

// Number of section types 

// Number of DOS special chars 



// Platform dependent 

ffifdef ILWIN 
ffifdef WIN32 



ffdef ine 


ILTB 


MAX 


PATH 


ffdef ine 


iltb" 


"max 


DIR 


ffdef ine 


iltb" 


"max" 


FILES 


ffdef ine 


iltb" 


"max" 


drvname 


ffdef ine 


iltb" 


"max 


EXT 


ffdef ine 


iltb" 


"max 


SLOT 



ff else 

ffdefine I LT B_MAX_ PAT H 
ffdefine ILTB_MAX_DIR 
ffdefine I LTB_MAX_FI LES 
ffdefine ILTB_MAX_DRVNAME 
#define ILTB_MAX_EXT 
ffdefine I LT B_MAX_S LOT 

ffendif // _WIN32 

ffelse 

ffdefine ILTB_MAX_PATH 
ffdefine I LTB_MAX_DI R 
ffdefine ILTB_MAX_FILES 
ffdefine ILTB_MAX_DRVNAME 
ffdefine I LTB_MAX_EXT 
ffdefine ILTB_MAX_SLOT 
ffendif // ILWIN 



limits 







// 


MAX 


PATH 


// 


MAX 


DIR 


// 


5 




// 


9 




// 


30 




// 


65 




// 






// 


65 




// 


65 




// 


5 




// 


9 




// 


30 




// 


65 




// 


MAX 


PATH 


// 


MAX 


DIR 


// 


1 




// 


9 




// 


30 




// 


MAX 


PATH 


// 



WIN32 definitions 
Size of path name 
Size of directory name 
Number of file names saved 
Size of xlator driver name 
Size of file extension list 
Size of file slot in SYSREC 
WIN16 definitions 
Size of path name 
Size of directory name 
Number of file names saved 
Size of xlator driver name 
Size of file extension list 
Size of file slot in SYSREC 



Size of path name 
Size of directory name 
Number of file names saved 
Size of xlator driver name 
Size of file extension list 
Size of file slot in SYSREC 



// 


INI 


file 


constants 








ffdef ine 


ILTB 


INI 


CDFMAP 


"CDFMAP" 


// 


Use only mapped CDF fields 


ffdef ine 


iltb' 


"INI 


CD FN AMES 


"CDFNAMES" 


// 


First CDF record names 


ffdef ine 


iltb" 


~INI 


CDFSEP 


"CDFSEP" 


// 


CDF separator 


ffdef ine 


iltb" 


~INI 


CHECKED 


"CHECKED" 


// 


Checked sect ion 


ffdef ine 


iltb' 


INI 


COMMENT 


"; IntelliLink 


options" 


ffdef ine 


iltb' 


INI 


COMPORT 


"COMPORT" 


// 


Communication port 


ffdef ine 


iltb' 


INI 


CONFIRM 


"CONFIRM" 


// 


Show confirmation dialog 


ffdef ine 


iltb" 


INI 


DEFFIELDS 


"ILDEFFIELDS" 


// 


Field resource name 


ffdef ine 


iltb" 


INI 


DE FLOG 


"IL. LOG" 


// 


Default log file name 


ffdef ine 


iltb" 


"INI 


DISCON 


"DISCONNECT" 


// 


Disconnect after merge 


ffdefine 


iltb' 


INI 


EDTFILE 


"EDITOR" 


// 


Text editor name 


ffdefine 


iltb* 


INI 


_DEVTYPE 


" DEVICE" 


// 


Device type 


ffdefine 


ILTB* 


~INI 


KEEP LOG 


" KEEPLOG" 


// 


Keep log file 


ffdef ine 


iltb" 


INI 


EXIT 


"EXITAFTER" 


// 


Exit after translation 


ffdefine 


ILTB* 


"INI 


FILE 


" ILWIN . INI " 


// 


Name of INI file 


ffdefine 


iltb" 


INI 


"hide 


"HIDE" 


// 


Hide main window 


ffdef ine 


iltb" 


INI 


LOGFILE 


"LOGFILE" 


// 


Log file name 


ffdef ine 


iltb' 


INI 


NEW 


"CONFIRMNEW" 


// 


Confirm new file 
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ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 



ILTB_INI_NOTEPAD 

ILTB_INI_NOTSET 

ILTB_INI_OVERWRITE 

ILTB_INI_PRISYS 

ILTB_INI_PURGELOG 

I LT B_ I N I _S AVE WOR K 

ILTB_INI_SECSYS 

ILTB_INI_SECTION 

ILTB_INI_SET 

ILTB INI WARNMERGE 



"NOTEPAD. EXE' 
"NO" 

" CON F I RMOVE R ' 

"PRISYS" 

" PURGE LOG" 

"SAVEWORK" 

"SECNSYS" 

"ILWIN" 

"YES" 

"WARNMERGE" 



// Default editor name 

// Option is OFF 

// Confirm overwrite 

// Primary system 

/ / Always purge log 

// Save work files 

// Secondary system 

// INI section file 

// Option is ON 

// Warn user before merge 



// 

#def ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 



Table names 

I LT B_CON_T B L 

ILTB._FLD_TBL 

ILTB_FLT_TBL 

ILTB_SYS_TBL 

ILTB TABLES FILE 



"CONFIG. I L" 
"FIELDS. I L" 
"FILTERS. IL" 
"SYSTEM. IL" 
"TABLES. ITB" 



// Configuration table 

// Field map table 

// Filters table 

// System table 

// Combined ILTB tables file 



// 

ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 



Initial and increment table 

ILTB_DEF_CON_TBL 4 000 

ILTB_INC_CON_TBL 250 

ILTB_DEF_FLD_TBL 4 000 

ILTB_INC_FLD_TBL 250 

ILTB_DEF_FLT_TBL 100 

ILTB_INC_FLT_TBL 50 

ILTB_DEF_SYS_TBL 100 

ILTB INC SYS TBL 50 



sizes 



// Default Configuration index 

/ / Increment size 

// Default Fields index 

/ / Increment size 

// Default Filters index 

// Increment size 

// Default System index 

// Increment size 



// 

ffdef ine 
ffdef ine 
ffdef ine 



Error constants 
ILTB_ERR_NOINI 
ILTB_ERR_IO 
ILTB ERR B ADOPT 



1 
2 
3 



// Unable to find INI file 
// IO error encountered 
// Invalid INI file option 



// 

typedef 
typedef 
typedef 
typedef 
typedef 
typedef 
typedef 
typedef 
typedef 
typedef 
typedef 
typedef 

//----- 

ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 



General data types 
ILX_ACCESS ILTB_ACC; 
ILX_RANGE I LTB_APPT; 
UINT32 ILTB_ATTRIB; 
INT16 ILTB_CLASS; 
INT16 ILTB_FILE; 
INT16 ILTB_ID; 
ILTB_ATTRIB * ILTB_PATTRIB; 
ILX_OPTION ILTB_REC; 
INT16 ILTB_SEC; 
INT32 ILTB_TAG; 
ILX_RANGE ILTB_TODO; 
INT16 ILTB TYPE; 



Acces 
ILTB_ 
ILTB_ 
ILTB_ 
ILTB_ 
ILTB_ 
ILTB_ 
ILTB_ 
ILTB_ 
ILTB 



s types 

ACC_NONE 

ACC_DD£ 

ACC_ DBASE 

ACC_FILE 

ACC_PDX 

ACC_CDF 

ACC_ODBC 

ACC_NEW1 

ACC NEW2 



ILX 

ILX" 

ILX" 

ILX' 

ILX' 

ILX' 

ILX' 

ILX' 

ILX' 



ACCESS 
ACCESS' 

"access' 
access' 
"access' 
"access' 
"access' 
"access' 
"access" 



NONE 
DDE 
"DBASE 

"file 
"pdx 

CDF 
ODBC 
NEW1 
*NEW2 



// Access type 

// Appointment Range type 

// Attribute Type 

// System class type 

// File attribute type 

// ID Type 

// Pointer to Attribute Type 

// Reconciliation Option type 

// Section type 

// Configuration Tag 

// Todo Range type 

// System Type 



// Not applicable 

// DDE 

// dBASE 

// File 

// Paradox 

// CDF 

// ODBC database 

// Unassigned 

// Unassigned 



// 

ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 



Appointment Range 
I LT B_A P PT_AL L 
I LTB_APPT_FUTURE 
ILTB_APPT_NONE 
ILTB APPT DEFAULT 



I LX_RANGE_ALL // All appointments 

ILX_RANGE_FUTURE // Future-dated appointments 

ILX_RANGE_NONE // Not applicable 

ILX RANGE DEFAULT // Use system default 



// 

ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 



General attributes 



ILTB 
ILTB" 
ILTB' 
ILTB" 



ATT 

"att" 
"att" 
"att' 



ILWIN 
ACTIVE 
"WIN PAD 

"lite 



0X00000001L 
0x00000002L 
0x00000004L 
Ox00000008L 



// Running under ILWIN 

// Active 

// Running under WinPad 

// Running under Lite 



// 

ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 



Application attributes 
ILTB_ATT_VAR_SECTS 0x000000 10L 
ILTB_ATT_INSERT Ox00000020L 
I LT B_AT T_U P DAT E 0x0000004 0L 

ILTB ATT NOTIFY 0x00000080L 



// Variable number of sections 

// Insert -capable application 

// Update -capable application 

// Not i f y-capable application 
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ffdef ine 


ILTB 


ATT 


MERGE 




OxOOOOOlOOL 


// 


ffdef ine 


iltb" 


"att 


"todo 


I LX_ATT TODO 


// 


ffdef ine 


iltb" 


"att" 


"groups 


ILX ATT GROUPS 


// 


ffdef ine 


iltb" 


"att' 


SELKEY 




0x0O0OO8O0L 


// 


ffdef ine 


iltb" 


"att* 


"forcenote 




OxOOOOlOOOL 


// 


ffdef ine 


iltb" 


"att' 


"DOC NAME 




0x00002000L 


// 


ffdef ine 


iltb" 


"att" 


"noselect 




0x00004000L 


// 


ffdef ine 


iltb" 


~ATT 


"noimport 




0x00008000L 


// 


ffdef ine 


iltb" 


"att* 


~ZO0MEXT 


ILX ATT ZOOMEXT 


// 


ffdef ine 


iltb" 


"att* 


"disconn 




0x00020000L 


// 


ffdef ine 


iltb" 


"att* 


~SINGLEFILE 




0x00040000L 


// 


ffdef ine 


iltb" 


"att" 


"REM FILE 




0x00080000L 


// 


ffdef ine 


iltb" 


"att" 


"ramcard 




OxOOlOOOOOL 


// 


ffdef ine 


iltb" 


"att" 


"SHOWNONE 




0x0O200000L 


// 


ffdef ine 


iltb" 


"att* 


"iNSTREM 




Ox00400000L 


// 


ffdef ine 


iltb" 


"att* 


ILXWIN 32 




0xOO8O0OOOL 


// 


ffdef ine 


iltb" 


"att" 


HASOPTIONS 




OxOlOOOOOOL 


// 


ffdef ine 


iltb" 


"att* 


SYNC CAPABLE 


Ox02000000L 


// 


ffdef ine 


iltb" 


"att" 


"TARMUSTEXIST 


0x04000OO0L 


// 


ffdef ine 


iltb" 


"att* 


MUST FAN B4U 


0x080000O0L 


// 


ffdef ine 


iltb" 


"att" 


TOTAL REBUILD OxlOOOOOOOL 


// 


ffdef ine 


iltb" 


"att" 


SYSNEW 6 




0x20000000L 


// 


ffdef ine 


iltb" 


"att" 


SYSNEW 7 




0x40000000L 


// 


ffdef ine 


iltb" 


"att" 


"SYSNEW 8 




0x80000000L 


// 



// 

ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 

// 

ffde f ine 
ffdef ine 
ffdef ine 
ffdef ine 
#def ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
^define 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 

/* 

* Note: 
+ 



Configuration attributes 



*■ 



ILTB 
ILTB" 

iltb" 
iltb" 
iltb" 



ATT 
ATT' 

att' 
att' 
"att' 



Field at 
ILTB_ATT 
ILTB_ATT 
ILTB_ATT 
ILTB_ATT 
ILTB_ATT 
ILTB_ATT 
ILTB_ATT 
I LTB_ATT 
ILTB_ATT 
ILTB_ATT 
ILTB_ATT 
ILTB_ATT 
ILTB_ATT 
ILTB_ATT 
ILTB_ATT 
ILTB_ATT 
ILTB_ATT 
ILTB_ATT 
ILTB_ATT 
ILTB_ATT 
ILTB_ATT 
ILTB_ATT 
ILTB_ATT 
ILTB_ATT' 
ILTB_ATT 
ILTB_ATT 
ILTB_ATT 
ILTB_ATT 
ILTB ATT 



SELECTED 
"REVERSED 
CHANGED 
^BASECON 

Jnormcon 

tributes 
_ FLOAT 
_VIEW 
_DE FAULT 
_COMBINED 
_NAME 
_COMPANY 
_DATEFLD 
_ DONE FLAG 
_MUSTMAP 
_WARNMAP 
_MU LTLINE 
_KEEPHONE 
_ALARM RELATED 
_STARTDATETIME 
_ENDDATETIME 
_KEY_FIELD 
_HASH_FIELD 
_VAL_R E QUIRED 
_NO_RECONCILE 
_PRIORITY 
_FUNCTIONCODE 
_HIDDEN_FIELD 
_TAGGED 
INSENSITIVE 



OxOOOOOOlOL 
0x00000020L 
0x00000040L 
0x00000080L 
OxOOOOOlOOL 



OxOOOOOOlOL 
0x00000020L 
I LX_ATT_DE FAU LT 
0x00000080L 
OxOOOOOlOOL 
Ox00000200L 
0x00000400L 
ILTB_ATT_DATEFLD 
0x00000800L 
OxOOOOlOOOL 
Ox00002000L 
0x00004000L 
0x00008000L 
OxOOOlOOOOL 
Ox00020000L 
0x00040000L 
Ox00080000L 
OxOOlOOOOOL 
0x00200000L 
0x00400000L 
0x00800000L 
OxOlOOOOOOL 
Ox02000000L 



// Selected configuration 

// Systems are reversed 

/ / Configuration has changed 

// Template configuration 

// Normal configuration 



// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 

Ox04000000L // 
COMPARE_STRIPPED Ox08000000L // 
FLDNEW_3 OxlOOOOOOOL // 

FLDNEW_4 0x20000000L // 

FLDNEW_5 0x4 0000000L // 

FLDNEW 6 0x80000000L // 



Floating field attribute 

Display field attribute 

Default phone number 

Combined field 

Default Name field 

Default Company field 

Appointment Date field 

To Do done flag: see note below 

Require field to be mapped 

Warn if field is not mapped 

Multi-line field 

Keep all phone components 

Alarm-related field (eg a Date) 

START date or time (see type) 

END date or time {see type) 

Key field for reconciliation 

Hash code this field for lookup 

Field must have a value 

No reconciliation on this field 

Field is a "priority" field 

e.g. Sharp TEL1 

Don f t display field to user 

Put IL "decor at ions" here 

for case -independent compares 

strip before comparing 
Attribute not yet assigned 
Attribute not yet assigned 
Attribute not yet assigned 
Att ribute not yet assigned 



the field list for every "MAIN" section {i.e. a section that has 
subtype==ILX_SUBSECT_MAIN==0) should have exactly one field that has 
the ILTB_ATT_TAGGED attribute. In addition to holding "real" native 
data, a "TAGGED" field may contain an IntelliLink-made TAG. 

In particular the section subtype code is stored in this field. 

For example if description^" Staff Meeting" and subtype-23, we may 
construct a "decorated" description of "Staff Meeting {23}". 

The ILTB_ATT_TAGGED attribute is attached to an ordinary 
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* user-visible field, not to the hidden field called n _subType". 

* Note: I LT B_ATT_ DON E FLAG is intentionally defined to ILTB_ATT_DATEFLD. 

* The reuse of the bit is possible because these fields will never exist 

* in the same section. 
+ / 

// Map attributes 

#define I LTB_ATT_BAS EMA P OxOOOOOOlOL // Template field map 

#define ILTB_ATT_NORMAP Ox00000020L // Normal field map 

// Section attributes 

ffdefine I LT B_AT T_ PA D_N AM E S OxOOOOOOlOL // Pad file names 

ffdefine ILTB_ATT_TEMPLATE Ox00000020L // Section template 

ffdefine ILTB_ATT_EDIT_LABELS 0x00000040L // User can change field names 

ffdefine ILTB_ATT_ADD_FIELDS 0x00000080L // User can add new fields 

ffdefine I LT B_ATT_A D D_S ECT S OxOOOOOlOOL // User can add section names 

ffdefine I LT B_ATT_ PCCAR D_RAM 0x00000200L // Use PC Card RAM vs Main 

ffdefine ILTB_ATT_WARNMERGE Ox00000400L // Warn user on merge 

ffdefine ILTB_ATT_ASKFIELDS Ox00000800L // Ask translator for field list? 

ffdefine ILTB_ATT_TWOPASS OxOOOOlOOOL // Two-pass translation 

ffdefine ILTB_ATT_NOFANNING 0x00002000L // Do not fan repeating items 

ffdefine ILTB_ATT_NOMAPPING 0x00004000L // Does not support field mapping 

ffdefine ILTB_ATT_SEC_PARENT 0x00008000L // Section is a "parent" section 

ffdefine I LTB_ATT_SEC_CHILD OxOOOlOOOOL // Section is a "child" section 

ffdefine ILTB_ATT_SEC_USESRC 0x00020000L // Use source fields in new file 

ffdefine ILTB_ATT_DEL_OUTRANGE 0x00040000L // SYNC: delete out-of-range items 

ffdefine ILTB_ATT_RENAME_SECTS 0x00080000L // User can rename sections 

ffdefine ILTB_ATT_SECNEW_2 OxOOlOOOOOL // Attribute not yet assigned 

ffdefine ILTB_ATT_SECNEW_3 Ox00200000L // Attribute not yet assigned 

ffdefine ILTB_ATT_SECNEW_4 Ox00400000L // Attribute not yet assigned 

// Reconciliation options 

ffdefine ILTB_REC_REPLACE ILX_OPT_REPLACE // Replace conflicting items 

ffdefine ILTB_REC_IGNORE ILX_OPT_IGNORE // Ignore conflicting items 

ffdefine I LTB_REC_NOTI FY ILX_OPT_NOTIFY // Notify user of conflicts 

ffdefine ILTB_REC_INSERT ILX_OPT_INSERT // Add conflicting items 

ffdefine I LTB_R£C_UPDATE ILX_OPT_UPDATE // Update existing items 

ffdefine ILTB_REC_MERGE ILX_OPT_MERGE // Merge new items (Sharp) 

ffdefine I LTB_REC_CANCEL ILX_OPT_ACCEPT_l // Cancel translation 

ffdefine ILTB_REC_VERI FY ILX_OPT_ACCEPT_2 // Recheck for conflicts 

#define ILTB_REC_NONE ILX_OPT_NONE // No reconciliation 

ffdefine ILTB_REC_DELETE I LX_OPT_DELETE // Remove item 

ffdefine ILTB_REC_DELTA_ACK I LX_OPT_DELTA_ACK // a FastSync Unload Action Code 
// Section Types 

ffdefine ILTB_SEC_APPT 0 // Appointment 

ffdefine ILTB_SEC_DB 1 // Database 

ffdefine ILTB_SEC_DOCUMENT 2 // Word processing document 

ffdefine ILTB_SEC_MEMO ILTB_SEC_DOCUMENT // Memo {now WP document) 

ffdefine I LTB_SEC_PHONE 3 // Phone Book 

ffdefine ILTB_SEC_TODO 4 // To-Do List 

ffdefine ILTB_SEC_GROUPS 5 // Phone Groups 

ffdefine ILTB_SEC_OUTLINE 6 // Outline 

ffdefine ILTB_SEC_CALL 7 // Calls 

ffdefine ILTB_SEC_SPREAD 8 // Spreadsheet 

ffdefine ILTB_SEC_EXPENSE 9 // Expense 

// Todo Range 

ffdefine I LT B_TODO_ALL I LX_RANGE_ALL // All items 

ffdefine I LT B_T ODO_N OT DON E ILX_RANGE_FUTURE // Incomplete items 

ffdefine ILTB_TODO_NONE ILX_RANGE_NONE // Not applicable 

^define I LTB_TODO_ DEFAULT I LX_RANGE_DE FAU LT // Use system default 

/ / System Class 

ffdefine ILTB_CLASS_ANY 1 // Any mapping supported 

ffdefine ILTB_CLASS_EXCLUDE 2 // Exclude mapping to self 

ffdefine ILTB_CLASS_HPPIM 3 // "Cougar" application 

ffdefine ILTB_CLASS_SIMON 4 // Simon phone 

ffdefine ILTB_CLASS_BOSS 5 // Casio BOSS family 

ffdefine ILTB_CLASS_WIZARD 6 // Sharp Wizard family 

ffdefine ILTB_CLASS_PSION 7 // Psion family 

// pii e Attributes 

ffdefine I LTB_FI LE_LE FT 0x0001 // Left file is present 
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ffdefine ILTB_FILE_RIGHT 0x0002 // Right file is present 

// System Types 



iffle tine 


ILTB_ 


_TYPE 


ft r\ 

_APP ■ 


*-* 

0 


II 


Desktop application 


Jfdet ine 


ILTB 


TYPE 


_CASI0 1 


1 


II 


Casio Series 


4000-5000 


il ~-J — £ i _ 

ffdefine 


ILTB_ 


_TY pe_ 


_CASI0_2 


2 


II 


Casio Series 


7000-9000 


ffdef ine 


ILTB_ 


_typc 


HP95LX 


3 


II 


HP 95LX 




ffdef ine 


ILTB_ 


_TYPE_ 


HP100LX 


4 


II 


HP 100LX 




ffdef me 


ILTB_ 


_TYPE_ 


PSION 


5 


II 


Psion Series 


3 


ffdef ine 


ILTB_ 


type] 


"sharp_i 


6 


II 


Sharp Series 


5000-7000 


ffdef ine 


ILTB_ 


_TYPE_ 


_SHARP_2 


7 


II 


Sharp Series 


7600/7620 


#def ine 


ILTB_ 


_TYPE_ 


_SHARP_3 


8 


II 


Sharp Series 


8000-8200 


*f ae i me 


ILTB 


TYPE 


SHARP 4 


9 


II 


Sharp Series 


8600/YO-610 


ffdef ine 


ILTB 


_TYPE 


SHARP 5 


10 


g J 

II 


Sharp Series 


9600 


ftde i l ne 


ILTB 


JTYPE 


ZOOMER 1 


11 


II 


Zoomer "DOS" 




idetme 


ILTB 


TYPE 


ZOOMER 2 


12 


II 


Zoomer "native" 


sae r i ne 


TITO 

1 LTo 


_TYPE 


FRANKLIN 


1 3 


II 


Franklin's Tower 


ffa e l i n e 


T T TO 
1 Lt 1 D 


TV DC 




i 4 


1 1 


Sha rp Zaurus 




ffdef ine 


iltb" 


"type" 


"CASIO 3 


15 


II 


Casio SF-R10/20 


ffdef ine 


ILTB" 


"type" 


"CASIO 4 


16 


II 


Casio 5300B 




ffdef ine 


ILTB" 


"type" 


"CASIO 5 


17 


II 


Casio 7900 




ffdefine 


iltb" 


"type 


CASIO 6 


18 


II 


Casio CSF-7950 (color) 


ffdef ine 


iltb" 


"type 


"CASIO 7 


19 


II 


Casio NX-4000 


(pen) 


^define 


iltb" 


"type" 


'SHARP 6 


20 


II 


Sharp 5500 


#def ine 


iltb 


"type 


"OMNIGO 100 


21 


II 


HP Omnigo 100 




ffdef ine 


iltb" 


"type 


NEW 3 


22 


II 


Future expansion 


ffdef ine 


iltb" 


"type 


NEW 4 


23 


II 


Future expansion 



/* 

+ >» Note that when you extend the above list, be sure to update 

* >>> the integrity check in the tabled utility! ! ! ! 
* + 1 



// Field Map Table data types 

typedef struct { 

ILTB_ID appID; 

ILTB_ID sectionID; 

INT16 fieldNum; 

INT16 listSum; 

INT32 listFset; 

char common; 
} ILTB NDX; 



// Field index entry 

// Application ID 

// Section ID 

// Field count 

// List CHECKSUM value 

// List offset in file 

// Default field list? 



typedef struct { 
INT16 listNum; 
ILTB_NDX ndx[ll ; 

} ILTB FLDNDX; 



// Field index record 
// Number of field lists 
// Field index 



typedef ILTB FLDNDX IL DIST * ILTB P FLDNDX; // Pointer to field index 



typedef struct { 

ILTB_ID sourcelD; 

ILTB_ID srcSectID; 

ILTB_ID targetID; 

I LTB_ID tarSectID; 

ILTB_ID mapID; 
} ILTB XRF; 



// Field list cross-reference 

// Source application ID 

/ / Source section ID 

// Target application ID 

// Target section ID 

// Map ID 



typedef struct { 
INT16 mapNum; 
I LTB_XRF xref [1] ; 

} ILTB MAPXRF; 



// Field xref record 

// Total number of field maps 

// Field map cross-reference 



typedef ILTB_MAPXRF IL_DIST * ILTB_PMAPXRF; // Pointer to xref record 



typedef struct { 

ILTB_ID sourceList; 

ILTB_ID targetList; 

char name [ ILX_MAX_FLDNAME ] ; 

UINT32 attribs; 

INT16 maplndexil] ; 
} ILTB MAP; 



/ / Field map record 

// Source list index 

// Target list index 

// Name of field map 

// Map attributes 

// Map index number 



typedef ILTB MAP IL DIST * ILTB PMAP; 



// Pointer to map record 
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typedef struct { 




// 


Field list header 


T MT 1 f i plHMum* 
X P» 1 J. O LIcIUmUIII/ 




/ / 


Mnmhp r f f i 0 1 He in 1 i et 
V* U 1IUJ L <w L LIClUo X 1 1 li oL 


ILTB_ID appID; 




// 


Application ID 


TTTR Tn QPrf 1 nnTn* 








char~name[ILX MAX FLDNAME]; 




// 


Field list name 


UINT32 attribs; 




// 


Field list attributes 


ILX FIELD field[l] ; 




// 


Field descriptor 


} ILTB_FLDLST; 








typedef ILTB_FLDLST IL_DIST *ILTB_ 


PFLDLST; 


// 


Pointer to field list record 


// Section Table data types 








typedef struct ( 




// 


Section Record 


ILTB_ID SectionID; 




// 


Section ID 


ILTB_SEC SectionType; 




// 


Section Type 


ILTB ACC AccessType; 




// 


Access Type 


char DefaultExt [ ILTB_MAX_EXT ] ; 




// 


Default File Extension 


char PadChar; 




// 


Fi le Name Pad Cha racter 


char Name [ ILTB_MAX_NAME] ; 




// 


Section name 






f f 


OtTL L lull k^KJU^Z 


char File [ILTB _ MAX FILES] [ILTB 


MAX_SLOT] ; 


II 


File names 


ILTB_ATTRIB FileAttrib; 




II 


File attributes 


ILTB_ATTRIB SectionAttrib; 




II 


Section Attributes 


INT16 SectionSubType; 




II 


Section Sub-type code 


char filler[ILTB MAX SEC FREE] ; 




II 


Free space 


} ILTB_SECREC; 








typedef ILTB_SECREC IL_DIST *ILTB_ 


PSECREC; 


II 


Pointer to Section Record 



// System Table data types 

typedef struct { 

INT16 SysClass; 

ILTB_ID SysID; 

ILTB_TYPE SysType; 

char SysName [ ILTB_MAX_NAME ] ; 

ILTB_ACC AccessType; 

char SecTi t le [ ILTB_MAX_NAME ] ; 

char XlateName [ ILTB_MAX_DRVNAME] ; 

char XporName [ ILTB_MAX_DRVNAME] ; 

ILTB_REC ReconcileOpt; 

ILTB_APPT ApptRange; 

ILTB_TODO TodoRange; 

char AppLoc[ILTB_MAX_PATH] ; 

ILX32_16PAD(pad_01, 195) 

INT16 ComPort; 

INT16 SectionType [ILTB_NUM_SECTIONS] ; 
ILTB_ATTRIB SysAttrib; 
ILTB_ID ImportCharMapID; 
ILTB ID ExportCharMapID; 



// System Record 

// System class 

// System ID Number 

// System Type 

// System Name 

/ / Access Type 

// Section Title 

// Translator Name 

// Transporter Name 

// Reconciliation Option 

// Appointment Range 

// To-Do Range 

// Application Location 

// Padding for long file names 

// Communication Port 

// Supported Section Types 

// System Attributes 

// Char map table ID for import 

// Char map table ID for export 



// Free space, must occur before Section below. 

char filler[ILTB MAX SYS FREE]; 



INT16 SectionCount; 
ILTB_SECREC Section [1]; 
} ILTB SYSREC; 



// Section Count 
// Sections 



typedef ILTB_SYSREC IL_DIST + ILTB_PSYSREC; // Pointer to System Record 



// 

typedef 
ILTB 
ILTB" 
ILTB" 
ILTB" 
ILTB" 
ILTB" 
ILTB" 



Configuration Table data types 
struct { 
ID ConfigID; 
SEC SectionType; 
TAG SourceTag; 
TAG TargetTag; 
"ID MapID; 
"ID FilterlD; 
ATTRIB State; 



} ILTB CONREC; 



// Configuration Record 

/ / Configuration ID 

// Section Type 

// Source tag 

// Target tag 

// Field Map ID 

// Filter ID 

// Configuration State 



typedef ILTB_CONREC IL_DIST + ILTB_PCONREC; // Pointer to Config Record 



// INI file options 

typedef struct { 
INT16 ComPort; 



// INI file options 
// Filer com port 
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char CDFSep; 

char Editor-Name [_MAX_PATHJ ; 
char LogFileName[_MAX_PATH) ; 
BOOL16 CDFMapOnly; 
BOOL16 CDFNames; 

BOOL16 Checked i I LTB_MAX_CHECKSj ; 
BOOL16 ConfirmNew; 
BOOL16 Conf irmOverwrite; 
BOOL16 ConfirmXlate; 
B00L16 Disconnect; 
BOOL16 ExitAfterXlate; 
BOOL16 HideMain; 
BOOL16 LogFile; 
BOOL16 PurgeLog; 
BOOL16 SaveWork; 
BOOL16 WarnMerge; 
ILTB_ID PrimeSys; 
ILTB_ID SecndSys; 
ILTB_TYPE DevType; 
ILTB OPTIONS; 



// CDF separator character 

// Name of text editor 

// Name of log file 

// Use only mapped CDF fields? 

// First CDF record names? 

// List of checked sections 

// Confirm file creation? 

// Confirm file overwrite? 

// Confirm before translation? 

// Disconnect after merge? 

// Exit after translation? 

// Hide main window? 

// Produce log file? 

// Always purge log? 

// Save work files? 

// Warn user before merge? 

// Primary system ID 

// Secondary system ID 

// Filer device type 



typedef ILTB_OPTIONS IL_DIST +ILTB_POPTIONS; // Pointer to INI options 



/ / Access macros 

#define NDX_PRI JTAG { ndx, i) \ 
( (ndx[i] .State & I LTB_ATT_REVERSED) ? 
ndx[i] .TargetTag : ndx[i] .SourceTag) 



// Function prototypes 

int GetlniOptions 

( ILTB_POPTIONS option, 

IL_PSTR ilDir ) ; 
int PutlniOptions 

( ILTB_POPTIONS option, 

IL PSTR ilDir ) ; 



\ 



#define N DX_SN D_TAG ( ndx , i) \ 
( (ndxfi] .State & ILTB_ATT_REVERSED) ? \ 
ndx[i] .SourceTag : ndx[i] .TargetTag) 



// Retrieve system options 

// Pointer to options data 

// Pointer to install directory 

// Write out system options 

// Pointer to options data 

// Pointer to install directory 



ffendif // ILTBL 
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/* 

* Name: ILX.H 

* Purpose: Header file for translator API 

* Author: Copyright (c) IntelliLink Corporation, 1992-1995 

* V 

#if !defined( IL*) 

ffdefine ILX // Signal header inclusion 

// Make sure the resource compiler only sees the ILX_ERR codes 

ffifndef RC_INVOKED 

ffinclude "iltypes.h" // Common IntelliLink types 

ffinclude "ilxtr.h" // Definitions shared with ILTR 

/* 

* ILX header version control Please increment the version number by one 

* for EVERY checked-in change to ILX.H — Added 6/19/96 

+ * i 

// Version number of this header to be updated for each checkin 

Hdefine ILX_CURRENT_VERSION 102 // corresponds to TLIB version 

// Macros for testing ILX version number 

ffdefine ILX_VERSION_IS_AT_LEAST (ver ) { ILXGL_version ver) 
ffdefine ILX_VERSION_IS_PRIOR_TO(ver ) ( ILXGL_version < ver) 

// The resource compiler needs to see the following error codes 

#endif // RC_INVOKED 

/* 

* Error codes. 



*/ 



ffdefine 


ILX 


OK 




0 


// 


Operation successful 


ffdef ine 


ILX 


NOTOK 


1 


// 


Operation failed 


ffdefine 


ILX" 


ERR 


APP 


2 


// 


Invalid application- handle 


ffdefine 


ILX 


"err" 


OPT 


3 


// 


Invalid reconciliation option 


ffdef ine 


ILX 


"err" 


PIM 


4 


// 


Invalid application type 


ffdefine 


ILX 


"err" 


DOWN 


5 


// 


Translation engine shut down 


ffdefine 


ILX 


"err" 


UP 


6 


// 


Translation engine running 


ffdef ine 


ILX 


"err" 


'nofile 


7 


// 


Source file does not exist 


ffde f ine 


ILX 


"err" 


"nodir 


8 


// 


Target dir does not exist 


ffdef ine 


ILX 


"err" 


SAME 


9 


// 


Source is also target file 


ffdef ine 


ILX 


"err" 


DUPSECT 


10 


// 


Duplicate section name 


ffdefine 


ILX 


"err" 


NOMEM 


11 


// 


Unable to allocate memory 


#def ine 


ILX~ 


"err" 


FILES 


12 


// 


File names not specified 


ffdefine 


ILX 


"err" 


MAP ■ 


13 


// 


Invalid field map ID 


ffdef ine 


ILX 


"err" 


"io 


15 


// 


File IO error 


ffdefine 


ILX 


"err" 


FIELD 


16 


// 


Invalid field specification 


ffdef ine 


ILX 


"err" 


RANGE 


17 


// 


Inval id appointment range 


ffdef ine 


ILX 


"err" 


LOG 


18 


// 


Unable to access log file 


ffdef ine 


ILX" 


"err" 


"engdll 


19 


// 


Error accessing engine DLL 


ffdef ine 


ILX~ 


"err" 


TRDLL 


20 


// 


Error accessing translate DLL 


ffdef ine 


ILX* 


"err" 


BOOL 


21 


// 


Invalid boolean value 


ffdef ine 


ILX 


"err" 


VALTYPE 


22 


// 


Invalid value type 


ffdef ine 


ILX 


"err" 


VALUE 


23 


// 


Invalid option value 


ffdefine 


ILX 


"err" 


MAPDLG 


24 


// 


Unable to show mapping dialog 


ffdef ine 


ILX 


"err" 


CANCEL 


25 


// 


User has pressed CANCEL 


ffdefine 


ILX 


"err" 


SESSION 


26 


// 


Unable to get session handle 


ffdefine 


ILX~ 


"err" 


"code 


27 


< // 


Error code not found 


ffdefine 


ILX~ 


"err" 


MAPFILE 


28 


// 


Unable to access map file 


ffdef ine 


ILX" 


"err" 


"noapps 


29 


// 


No applications found 


ffdef ine 


ILX 


"err" 


"iNVFILE 


30 


// 


Invalid file name 


ffdefine 


ILX 


"err" 


"dbdll 


31 


// 


Unable to load database DLL 


ffdefine 


ILX 


"err" 


"pmode 


32 


// 


Not running in protected mode 


ffdefine 


ILX" 


"err" 


"nodde 


33 


// 


Unable to start DDE app 


ffdef ine 


ILX 


"err" 


"noddeinit 


34 


// 


Unable to initialize DDE 


ffdefine 


ILX 


"err" 


"XLATE 


35 


// 


General translation error 


ffdef ine 


ILX~ 


"err" 


"OVFLOW 


36 


// 


File overflow condition 


ffdef ine 


ILX 


"err" 


"badfile 


37 


// 


Unable to open or access file 


ffdef ine 


ILX 


"err" 


"active 


38 


// 


Engine DLL already active 


ffdef ine 


ILX 


"err" 


"inactive 


39 


// 


Engine DLL not active 


ffdefine 


ILX 


"err" 


"comdll 


40 


// 


Unable to access. comm DLL 


^define 


ILX~ 


err" 


"connect 


41 


// 


Unable to connect to device 


ffdefine 


ILX~ 


err" 


"COM PORT 


42 


// 


Unable to set com port 
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ffdefine I LX_ERR 

ffdefine ILX_ERR 

ffdefine ILX_ERR 

ffdefine ILX_ERR 

ffdefine ILX_ERR' 

ffdefine ILX_ERR 

ffdefine ILX_ERR' 

ffdefine ILX_ERR' 

ffdefine ILX_ERR" 

ffdefine ILX_ERR' 

ffdefine ILX_ERR' 

ffdefine ILX_ERR~ 

ffdefine ILX_ERR~ 

ffdefine ILX_ERR 

ffdefine ILX_ERR' 

ffdefine ILX_ERR' 

ffdefine ILX_ERR" 

ffdefine ILX_ERR" 

ffdefine ILX_ERR" 

ffdefine ILX_ERR" 

ffdefine ILX_ERR* 

ffdefine ILX_ERR _ 

ffdefine ILX_ERR~ 

ffdefine ILX_ERR~ 

ffdefine ILX_ERR~ 

ffdefine ILX_ERR~ 

ffdefine ILX_ERR~ 

ffdefine ILX_ERR~ 

ffdefine ILX_ERR~ 

#define ILX_ERR" 

ffdefine ILX_ERR~ 

ffdefine ILX_ERR~ 

ffdefine ILX_ERR~ 

ffdefine ILX ERR~ 



METERDLG 
"FILEGET 

FILEPUT 
~NOSECT 

"section 

"iNVSECT 
~I NT ABLE 
~OU TABLE 

"badparam 
"nodata 
nomapping 

"iNVREQ 

"password 
"nomoredates 

~MAXRECORDS 

"badfldmapsize 
"fldmapentryoutofrange 

"INUSE 

"filetype 
~com_nofile 
~com_nodir 
"c0m_n0s pace 
"com_inuse 

|C0M_N0RAM 
~COM_NODISK 
"INREC 
~OUTREC 

~com_sharp 

"cant_use_iltif 

~insuff_access_rights 

"bad_sync_option 

"cant_delbak 

'file format 

"mustmap 



43 


// 


44 


// 


45 


// 


46 


// 


47 


// 


48 


// 


49 


// 


50 


// 


51 


// 


52 


// 


53 


// 


54 


// 


55 


// 


62 


// 


63 


// 


64 


// 


65 


// 


66 


// 


67 


// 


68 


// 


69 


// 


70 


// 


71 


// 


72 


// 


73 


// 


74 


// 


75 


// 


76 


// 


77 


// 


78 


// 


79 


// 


80 


// 


81 


// 


82 


// 



No section lists exist 
Invalid section handle 
Section does not exist 



No data to process 
No fields are mapped 
Invalid request 
Invalid password 
No Calendar slots 

Exceeded allowed Cardfile records 
No match on field map size 
Field map fails sanity check 
File is in use or locked 



is in use 



User must first map fields 



/ + 

* Always use error code #83 from within the ILERROR macro. 



ffdef ine 


ILX 


ERR 


INTERNAL 


83 


// 


Internal err; see ILERRORS . LOG 


ffdefine 


ILX" 


"err" 


"dbopenfailed 


84 


// 


Unable to access app. database 


ffdef ine 


ILX" 


"err" 


_NO_DB_APP 


85 


// 


Unable to access DB application 


ffdef ine 


ILX" 


~err" 


NO NEWFILE 


86 


// 


New file cannot be created 


ffdefine 


ILX 


"err" 


API FAILED 


87 


// 


API initialization failed 


ffdef ine 


ILX" 


"err" 


NETFAILED 


88 


// 


Network access failed 


ffdef ine 


ILX 


"err* 


"nologon 


89 


// 


Application logon failure 


ffdef ine 


ILX 


"err" 


"getprocaddress 


90 


// 


Get ProcAddress failed 


ffdefine 


ILX 


"err" 


"what fields source 


91 


// 


Source WhatFields failed 


ffdefine 


ILX 


"err" 


~WHAT FIELDS TARGET 


92 


// 


Target WhatFields, failed 


ffdefine 


ILX~ 


"err" 


"device 


93 


// 


Unable to access remote device 


ffdef ine 


ILX 


"err" 


"DEVICE READ 


94 


// 


Unable to read remote device 


ffdef ine 


ILX 


"err" 


"device write 


95 


// 


Unable to write remote device 


fldef ine 


ILX 


"err" 


~SOURCE_SESSION_BEGIN 


96 


// 


SourceXlator ILBeginSession ERR 


ffdefine 


ILX 


"err" 


JTARGET_SESSION BEGIN 


97 


// 


TargetXlator ILBeginSession ERR 


ffdefine 


ILX 


"err" 


_ MCW NOT UP 


98 


// 


Magic Cap (MCW) not running 


ffdef ine 


ILX~ 


"err" 


"no magicxlate 


99 


// 


No Magic Xlate (MCW only) 


ffdef ine 


ILX 


"err" 


"no mcw owner 


100 


// 


MCW not personalized 


ffdefine 


ILX 


"err" 


"tblreadonly 


101 


// 


System table is read-only 


ffdefine 


ILX 


"err" 


"app version 


102 


// 


can't access app; wrong version 


#def ine 


ILX~ 


"err" 


"invalid file 


103 


// 


Invalid file format, too few fields 


ffdefine 


ILX~ 


"err - 


"resync 


104 


// 


User wants to re-sync from scratch 


// 


The 


resource compiler does not 


need 


to see the remainder of this header 



ffifndef RC INVOKED 



// Special handling for C++ code 

ffifdef cplusplus 

extern "C" { 
ff endi f // cplusplus 

/* 

* Limits and sizes . 



ffdefine ILX_MAX_APPNAME 26 // Size of application name 

ffdefine ILX_MAX_DPR MAX_DIR // Max size of directory name 

ffdefine ILX MAX DRIVER 9 // Size of driver name 
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ftde f ine 


ILX 


_MAX 


_EXT 


30 




// 

r f 


Size of file extensirm 


ff de f i ne 


ILX" 


"max 


"fldname 


31 




l f 


C i 70 r^f f i o 1 W n 3 mo 
'J 1 "J 1. LiclU 1 1 d tile 


ftdefine 


ILX" 


"max' 


~FNAME 


MAX 


FILE NAME 


If 

f f 


Size of filp n^mp anH ovt- 


ffdef ine 


ILX" 


"max" 


"path 


MAX 


path" 


II 


Max size of path name 


ffdef ine 


ILX] 


"max" 


~PIMTYPES 


10 




// 


Max number of PIM types 


«H o f \ no 

ff ae l i ne 


tt y" 

i. LiA 




dd r CTV 


L f 




1 1 


Size of field prefix 


ftdefine 


ILX" 


"max" 


"PSWD 


25 




II 


Size of password string 


ffdef ine 


ILX~ 


"max" 


"section 


26 




II 


Size of sect ion name 


ftdefine 


ILX" 


"max" 


"typedesc 


21 




II 


Size of type description 


ftdefine 


ILX" 


"max" 


USERDIR 


32 




II 


Max size of user dir. name 



System table names . 



ftdefine ILX_STR_WIN16_TABLE 
ftdefine ILX STR WIN32 TABLE 



"tables. itb" 
"tb!32.itb" 



// 16-bit table name 
// 32-bit table name 



/ 



* Various system and section attributes 



/ 



ftdefine ILX_ATT 
ftdefine I LX_ATT 
ftdefine I LX_ATT 
ftdefine ILX ATT' 



DEFAULT 
GROUPS 
TODO 
"ZOOMEXT 



0x00000040L 
0x00000400L 
Ox00000200L 
OxOOOlOOOOL 



// Default phone number 

// Groups -capable application 

// Todo-capable application 

/ / Zoomer extensions 



/ 



Flag bits in the Flags member of the GLOBAL DATA STRUCTURE. 
NOTE: the * APPEND_TO_LOGS ' flag is typically left un-set by the 
calling App so that the first translate task in a session or 
multi-session operation causes logs to start over afresh. The engine 
then sets * APPEND_TO_LOGS 1 for subsequent translate tasks in the same 
session or multi-session operation. 



/ 



ftdefine ILX__FLAG_APPENDJTO_LOGS 
ftdefine I LX_FLAG_MU LTISESSI ON_LOGS 
ftdefine I LX_FLAG_DISABLE_SST_TAGGING 
ftdefine ILX FLAG DISABLE SST FILTERS 



OxOOOOOOOlL 
0x00000002L 
Ox00000004L 
0x00000008L 



/* 

* Set the next flag before establishing an ILX session whose sole purpose 

* is to do Field Mapping ... no translation. Translators' ILBeginSession 

* functions may do less work when this flag is set. 

/ 

ftdefine ILX_FLAG_FIELD_MAPPING_ONLY 0x0000001 0L 

/* 

* Set the next flag before when performing translation in "unattended" mode, 

* ie, the user is not physically present. The user may, for example, be 

* dialing in remotely and cannot respond to ANY dialogs. Therefore NO 

+ dialogs or message boxes should be raised when this flag is set. 

* +/ 

ftdefine ILX FLAG UNATTENDED MODE 0x00000020L 



/ 



* Set this flag if ILX16.EXE should not be removed during shutdown 
+ processing. This flag was introduced in support of Intellisync 

* for Pilot. It avoid starting and removing ILX16 repeatedly for 

* each individual section. 



ftdefine ILX FLAG KEEP ILX16 UP 



/ 



Ox00000040L 



/ 



* Set this flag if the UI has already validated the file and/or database 

* name, and when the validation rules are not known to the ILX engine. 
+ „ 

ftdefine ILX FLAG NO FILE VALIDATION Ox00000080L 



/ 



/ 



+ The ILX_FLAG_FIRST_DOTRANSLATE flag is set in begin. c and cleared in 

* xlate.c at the conclusion of the first 'doTranslate * call in a session. 

* This controls the setting of ILTR FLAG FIRST XLATE. 



ftdefine ILX FLAG FIRST DOTRANSLATE 



/ 



OxOOOOOlOOL 
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* Set this flag to cause an IMPORT operation to call the Chooser. 

* v 

ffdefine ILX_FLAG_IMPORT_SELECTED 0x00000200L 

/* 

* Set this flag to cause ILX_MapILTRErrorCode to pass on any ILTR_ERR code 

* for which there" is no explicit mapping to a known ILX_ERR code. This 

* allows the ILX caller to take action on ILTR_ERR codes which are unknown 

* to the engine and which the engine has no need to understand. 

* v 

ffdefine ILX_FLAG_PASS_ILTR_ERR_CODES 0x00000400L 

/* 

* Set this flag if the UI has already confirmed whether the user wishes 

* to update the field list for a handheld device. 

* V 

ffdefine I LX_FLAG_NO_REMOTE_CON FI RM 0x00000800L 

/* 

* Enumerated types. 

* */ 



typedef enum 
( 

ILX_ACT_NONE 
I LX_ACT_T RAN S LAT E 
ILX_ACT_MERGE 
) ILX ACTION; 



0, 

1, 

2 



// REQUEST TYPE 

// No action 

// Translate 

// Merge 



typedef enum 
{ 

I LX_ENV_NORMAL , 
ILX_ENV_WINPAD, 
ILX_ENV_LITE, 
I LX_ENV_MAGI CXCHANGE , 
ILX_ENV_ACHATES 
} ILX ENV; 



// ENVIRONMENT TYPE 

/ / Normal environment 

// WinPad environment 

// Lite environment 

// Magic Xchange environment 

// Intel Achates environment 



typedef 


INT16 ILX BOOL; 




ft 


BOOLEAN VALUES 


#def ine 


ILX FALSE 


0 


ff 


False 


ffdef ine 


ILXJTRUE 


1 


ff 


True 


typedef 


INT16 ILX ACCESS; 




ff 


ACCESS TYPES 


#def ine 


ILX_ACCESS_NONE 


0 


ff 


Not applicable 


#def ine 


ILX ACCESS DDE 


1 


ff 


Dynamic Data Exchange 


ffdef ine 


ILX ACCESS DBASE 


2 


ff 


dBASE database 


ffdef ine 


ILX ACCESS FILE 


3 


ff 


File access 


ffdefine 


ILX ACCESS PDX 


4 


ff 


Paradox database 


ffdefine 


ILX_ACCESS_CDF 


5 


ff 


Ascii file type 


ffdefine 


ILX ACCESS ODBC 


6 


ff 


ODBC database 


ffdef ine 


ILX ACCESS NEW1 


7 


If 


Unassigned 


ffdef ine 


ILX ACCESS NEW2 


8 


If 


Unassigned 



typedef 


INT16 ILX OPTION; 




// 


RECONCILIATION OPTIONS 


ffdef ine 


ILX OPT REPLACE 


0 


// 


Replace old item with new 


ffdefine 


ILX OPT IGNORE 


1 


// 


Ignore new item 


#def ine 


ILX OPT NOTIFY 


2 


// 


Prompt user for resolution 


ffdefine 


ILX OPT INSERT 


3 


// 


Insert duplicate item 


ffdef ine 


ILX OPT UPDATE 


4 


// 


Update existing item 


ffdef ine 


ILX OPT MERGE 


5 


// 


Merge new items (Sharp) 


ffdefine 


ILX OPT ACCEPT 1 


6 


// 


Accept item from first file 


ffdef ine 


ILX OPT ACCEPT 2 


7 


// 


Accept item from second file 


ffdef ine 


ILX OPT NONE 


8 


// 


No option selected 


#def ine 


ILX OPT DELETE 


9 


// 


Remove existing item 


ffdef ine 


ILX_OPT_DELTA_ACK 


10 


// 


a FastSync Unload Action Code 


typedef 


INT16 ILX PIM; 




// 


PERSONAL INFORMATION MANAGERS 


ffdefine 


ILX PIM APPT 


0x0001 


// 


Appointment Book 


ffdef ine 


ILX_PIM DATA 


0x0002 


// 


Database 


ffdef ine 


ILX PIM DOCUMENT 


0x0004 


// 


Word Processing Document 


ffdef ine 


ILX PIM MEMO ILX 


PIM DOCUMENT 


// 


Obsolete, changed to Document 


ffdef ine 


ILX PIM PHONE 


0x0008 


// 


Phone Book 


ffdef ine 


ILX PIM TODO 


0x0010 


// 


To do list 


ffdef ine 


ILX PIM GROUPS 


0x0020 


// 


Phone groups 


ffdef ine 


ILX_PIM OUTLINE 


0x0040 


// 


Outline 
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ffdef ine 
ffdefine 
ffdef ine 
ffdefine 

// 

typedef 
ffdef ine 
ffdef ine 
ffdefine 
ffdef ine 

typedef 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
#def ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 

typedef 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 

// 

typedef 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffde f ine 



ILX PIM CALL 


0x0080 


// 


Calls 


ILX PIM SPREAD 


0x0100 


// 


Spreadsheet 


ILX PIM EXPENSE 


0x0200 


// 


Expense 


ILX_PIM_ALL 


Oxf f ff 


// 


All 


Use ILX R^NGE values 


when calling ILX SetApptRange 


INT16 ILX RANGE; 




// 


APPOINTMENT RANGE 


ILX RANGE ALL 


0 


// 


All 


ILX RANGE FUTURE 


1 


// 


Future only 


ILX RANGE NONE 


2 


// 


None 


ILX RANGE DEFAULT 


3 


// 


Use system default 


INT16 ILX TERM; 




// 


FIELD TERMINATORS 


ILX TERM COLON 


t . i 

* 


// 


Colon 


ILX TERM COMMA 


i t 
r 


// 


Comma 


ILX_TERM_EOS 


•\0' 


// 


End of field 


ILX TERM PERIOD 


• 


// 


Period 


ILX TERM SEMI 


i . i 


// 


Semicolon 


ILX TERM SPACE 


t 1 


// 


Space 


ILX TERM TAB 


\t 


/ / 


Tab 


ILX TERM EOL 


Oxf f 


// 


End of line 


ILX TERM DASH 




// 


DASH 


ILX_TERM_X 


•x' 


// 


x (phone extension ) 


INT16 ILX_TYPE; 




// 


FIELD TYPES 


ILX TYPE TEXT 


* A 1 


// 


Alphanumeric field 


ILX TYPE BOOL 


' B 1 


// 


Boolean field 


ILX TYPE DATE 


'D' 


// 


Date field 


I LX_TYPE_NUMBER 


' N 1 


// 


Number field 


ILX TYPE PHONE 


i pi 


// 


Phone field 


ILX TYPE TIME 


i fp t 


// 


Time field 


ILX TYPE BINARY 


1 Y * 


// 


Binary field 


Currently assigned sub-section type 


codes in ILX SECTION 


BYTE ILX SUB SECTION; 




// 


SUB-SECTIONS in ILX_SECTION 


ILX SUBSECT MAIN 


0 


// 


Main section, not a sub-section 


ILX SUBSECT EVENT 


1 


// 


Event, anniversery, special day 


ILX SUBSECT HOLIDAY 


2 


// 


Holiday, vacation day 


ILX SUBSECT BUSCARD 


3 


// 


Business card 


ILX SUBSECT TEL2 


4 


// 


TEL2, secondary phone book 


ILX SUBSECT TEL3 


5 


// 


TEL3, tertiary phone book 


ILX SUBSECT USER1 


6 


// 


USER1, user defined data 


ILX SUBSECT USER2 


7 


// 


USER2, user defined data 


ILX SUBSECT USER3 


8 


// 


USER3, user defined data 


ILX SUBSECT CALL 


9 


// 


Call, sub-section of To do 


ILX SUBSECT UNDATED 


10 


// 


Undated To do 


ILX SUBSECT NESTMEMO 


11 


// 


Nested memos (real outlines) 


ILX SUBSECT TELTODO 


12 


// 


ToDo in Telephone section 


ILX_SUBSECT_BITMAP 


13 


// 


Bitmap memo 


ILX SUBSECT BITMAPEVT 


14 


// 


Bitmap event 


ILX SUBSECT REMIND2 


15 


// 


Win Link (only) Reminder 2 


ILX SUBSECT DATABASE 


16 


// 


Unnamed subtype 


ILX SUBSECT NEW 1 ILX 


SUBSECT DATABASE 


// OBSOLETE name, use DATABASE 


ILX_SUBSECT NEW 2 


17 


// 


Unnamed subtype 


ILX SUBSECT NEW 3 


18 


// 


Unnamed subtype 



/ 



* When setting the ILX_VAL_DATE_RANGE_START and ILX_VAL_DATE_RANGE_END 

* values, supply absolute date as number of days since 1900, or use 



* ILX DATE RANGE UNLIMITED. 



7 



ffdefine ILX DATE RANGE UNLIMITED (0) 



typedef enum 
{ 

ILX_STATE 
ILX_STATE~ 
ILX_STATE~ 
} ILX STATE;" 



DOWN 
\jP 

ACTIVE 



0x0000, 
0x0001, 
0x0002 



// ENGINE STATES 

// Engine is not started 

// Engine is started 

// Session is active 



typedef enum 
{ 

ILX_TBL_APPLOC, 
ILX_TBL_COMPORT, 
ILX TBL DOCNAMES 



// TABLE OPTION TYPES 

// Application location 

// COM port for device 

// Use document names 
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I LX_T B L_MO DN AM E , 
ILX_TBL_RAMCARD, 
I LX_TBL_RECONCI LE , 
I LX_TBL_SYSTY PE , 
ILX_TBL_FILEXTS, 
I LX_TBL_SYSCLASS , 
I LX_TBL_APPT RANGE , 
ILX_TBL_TODORANGE, 
I LX_T B L_MAIN_SYST EM , 
ILX_TBL_MAIN_CLASS, 
ILX_TBL_PRODUCT_ID, 
ILX_TBL_SYS_ACCESS_TYPE, 
I LX_T B L_S Y N C_C A P AB L E , 
ILX_TBL_BUNDLED, 
ILX_TBL_SEC_FILENAME 
ILX TBLOPT; 



// Translator module name 

// Use RAM card on device 

// Reconciliation option 

// System type 

// File extensions 

// System class 

/ / Default appointment range 

// Default todo range 

// Main system 

// Main class 

// Product ID 

// System access type 

// Systen Sync Capable? 

// Bundled product? 

// Filename for section 



typedef enum 
{ 

I LX_VAL_AP PTRANGE , 
I LX_VAL_ASCI INAMES, 
I LX_VAL_ASC 1 1 SE P, 
ILX_VAL_COMPORT, 
I LX_VAL_DATE_RANGE_START , 
ILX_VAL_DATE_RANGE_END, 
I LX_VAL_DOCNAMES, 
ILX_VAL_ENVIRON, 
I L X_VAL_ FAN R E PEAT , 
I LX_VAL_HE L PCONTEXT , 
I LX_VAL_H ELPFILE, 
ILX_VAL_HELPOPEN, 
I LX_VAL_KE EPFILES, 
I LX_VAL_ LOG FILE, 
I LX__VAL_ PAS SWOR D , 
ILX_VAL_RAMCARD, 
ILX_VAL_REMFILE, 
ILX_VAL_SESSIONID f 
I LX_VAL_SYNCHRON IZE, 
ILX_VAL_TODORANGE, 
I LX_VAL_VWR HELP, 
I LX_VAL_CB PROGRESS , 
I LX_VAL_T I ME R I NT E R VAL , 
ILX_VAL_CANCELREQUEST, 
I LX_VAL_TOTAL_I TEMS , 
ILX_VAL_STAY_CONNECTED, 
I LX_VAL_COMMHEL PCONTEXT, 
ILX_VAL_SOURCE_XTRA_DATA, 
ILX_VAL_TARGET_XTRA_DATA, 
I LX_VAL_HWI N DOW , 
I LX_VAL_USETABLE, 
ILX_VAL_ISCONNECTED, 
I LX_VAL_ FLAG S , 
I LX_VAL_SOURCE_WHAT FIELDS, 
I LX_VAL_TARGET_WHAT FIELDS , 
I LX_VAL_OKT P_T HRESHOLD, 
ILX_VAL_DIALOG_FONT 
\ ILX VALUE; 



// VALUE TYPES 

// Appointment range 

// ASCII field names in file 

// ASCII field separator 

// COM port for device 

// Use long absolute date 

// Use long absolute date 

// Use document names 

// Engine environment 

// Fan out repeating types? 

// Help context number 

// HELP file name 

// Help context for Open File 

// Keep intermediate files 

// Create log file 

// File or user password 

// Use RAM card on device 

// Force file removal 

// Session ID 

// TRUE for synchronization 
// To Do range 
// Use Viewer help system 
// Progress/Error Callback 
// Milliseconds 

// Set to TRUE to CANCEL xlate 

// Total items processed 

// Stay connected after transfer? 

// Help context number for Comm 

// Source Translator xtra data 

// Target Translator xtra data 

// Change "startup" window handle 

// Use values in system table 

// Is handheld connected? 

// 32 miscellaneous flag bits 

// Enable Source WhatFields? 

// Enable Target WhatFields? 

// OKToProceed dialog threshold 

// Font to use in dialogs 



/ 



* Data types. 



/ 



typedef 
typedef 
typedef 
typedef 
typedef 



INT16 ILX_HAPP; 

INT16 ILX_HSECTION; 

UINT32 ILX_ATTR; 

INT16 ILX_ID; 

UINT32 ILXTR HAPPSESSION; 



typedef struct 
{ 

char szlnstallDir [ ILX_MAX_DIR) 
char szPswd [ ILX_MAX_PSWD] ; - 
char szAppFile [ILX_MAX_PATH] ; 
ILX_HAPP hApp; 
IL_HWIN hParentWnd; 
ILXTR_SYNC_OPTION nSynchronize 



// APPLICATION HANDLE 
// SECTION HANDLE 
// ATTRIBUTE TYPE 
// IDENTIFIER TYPE 
// SESSION HANDLE 

// SESSION PARAMETERS 

// IntelliLink directory 

/ / User password 

// Application file name 

// Application handle 

// Parent window handle 

// Synchronize flag 
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INT32 IDateRangeStart; 
INT32 IDateRangeEnd; 
UINT32 Flags; 
WORD hSessionID; 
} ILXTR_INITPARMS, *ILXTR_PINITPARMS; 

typedef struct 
{ 

ILX_HAPP hApp; 
char name [ ILX_MAX_APPNAME ] ; 
ILX_BOOL blsDevice; 
ILX_BOOL bHasFiles; 
ILX_PIM capable; 
ILX_ATTR attribs; 
) ILX_APP, IL_DIST *ILX_PAPP; 

typedef struct 
( 

ILX_HSECTION hSection; 
ILX_PIM nType; 
char name [ ILX_MAX_APPNAME] ; 
char code[ILX_MAX_SECTION] ; 
char ext [ILX_MAX_EXT] ; 

// The following byte has been 

#ifdef ILX_USE_OBSOLETE_PADCHAR 

char padChar; 
lelse 

BYTE subsection; 
ffendif 

ILX_ATTR attribs; 
} ILX_SECTION, IL_DIST * ILX_PSECTION; 

typedef struct 
{ 

char name [ILX_MAX_FLDNAME] ; 
INT16 itemNo; 
INT16 maplndex; 
char label { ILX_MAX_FLDNAME] ; 
ILX_TYPE type; 
INT32 width; 
I LX_TERM delimit; 
char prefix [ ILX_MAX_PREFIX] ; 
char typeDesc [ ILX_MAX_TYPEDESC] ; 
INT16 order; 
INT16 assoc; 
ILX_ATTR attribs; 
} ILX_FIELD, IL_DIST *ILX_PFIELD; 

typedef struct 
{ 

ILX_ID nMapId; 

char szMapName [ILX_MAX_FLDNAME] ; 
ILX_BOOL blsDefault; 
} ILX_MAPLIST f IL_DIST *ILX_PMAPLIST; 

// Translator module HANDLE data t 

typedef struct 

{ 

IL_HINST hXlator; 
int n Internal ID; 

} IL HXLATOR, IL DIST *IL PHXLATOR; 



// Starting date range 

// Ending date range 

// Miscellaneous flags 

// Session ID 



// SYSTEM STRUCTURE 

// System handle 

// System name 

// Is this a device? 

// Does system have files? 

// Capabilities attributes 

// System attributes 



// SECTION STRUCTURE 

// Section handle 

// Section type 

// Section name 

// Section code 

// Default file extension 

reassigned from padChar to subsection 

// File name pad character 

// Section sub-type code 

// Section attributes 



// FIELD STRUCTURE 

// User visible name 

// Item number within field 

// Index to mapped field 

// Internal field label 

// Field type 

// Maximum length 

// Terminating delimiter 

// Optional field prefix 

// Optional type description 

// Sort order of field 

// Index of associated field 

// Field attributes 



// FIELD MAP LIST 

// Field map ID 

// Field map name 

// Is this default map? 



// Translator HANDLE 

// Xlator or engine instance 
// Translator ID {must be zero) 



/* 

* ILX Globals — Note that there are now TWO structures which make up the 

* ILX global data, the "standard" globals and the "extended" globals. The 

* extended globals structure is allocated by ILX_Startup and freed by 

* ILX_Shutdown. The extended area is reached as follows: 

* (_ilx_globals->pExt->n Data Value) 
+ 

* However, as with all references to ILX globals, access to the extended 

* globals should always use the access macros (eg, ILXGL nDataValue). 
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// Available slack bytes in standard global structure for new fields 

fldefine I LX_MAX_ FREE 26 

// Available .slack bytes in extended global structure for new fields 

ffdefine ILX MAX FREE EXT 256 



// jlx EXTENDED GLOBALS STRUCTURE 

typedef struct 
{ 

char szUserDir [ ILX_MAX_USERDIR] ; 
/* 



// EXTENDED GLOBAL STRUCTURE 
// User (directory) name 



* If you extend this structure, count the bytes, and adjust (down!) 

* ILX_MAX_FREE_EXT above to keep size consistent with previous releases. 



char FreeSpace [ ILX_MAX_FREE_EXTJ ; 
} ILX EXTG, IL DIST* ILX PEXTG; 



// Free space 



/ 



// ILX STANDARD GLOBALS STRUCTURE 

typedef struct 
{ 

/ + 

* Engine settings and general options 



// STANDARD GLOBAL STRUCTURE 



int 


wrc; 


// 


Translator return code 


ILX 


ACTION action; 


// 


Action requested 


ILX" 


BOOL bFanRepeat; 


// 


Fan out recurring items? 


ILX 


"BOOL bFirstXlate; 


// 


First translation? 


ILX 


BOOL keepFiles; 


// 


Save intermediate files? 


ILX" 


BOOL log; 


// 


Create log file? 


ILX~ 


BOOL remFi le; 


// 


Remove file before import? 


ILX 


ENV nEnviron; 


// 


Engine environment 


ILX 


RANGE apptRange; 


// 


Appointment range 


ILX* 


RANGE todoRange; 


// 


Todo range 


ILX" 


STATE engineState; 


// 


Engine state 



/ 



/* 

+ Directories and files. 



int nCurDrive; 

char szCurDir [ILX_MAX_DIR] ; 

char szDir [ILX_MAX_DIR] ; 

char szPswd[ILX_MAX_PSWD) ; 

char szSourceFilel [ ILX_MAX_PATH ] ; 

char szSourceFile2[ILX_MAX_PATH] ; 

char szTargetFile [ILX_MAX_PATH] ; 

IL_HANDLE hTable; 

/ + 

* Systems and sections. 



ILX_HAPP hSourceApp; 
ILX_HAPP hTargetApp; 
ILX_HSECTION hSourceSect; 
ILX_HSECTION hTargetSect; 
IL_HANDLE hSourceAppRec; 
IL_HANDLE hSourceSectRec; 
IL_HANDLE hTa rgetAppRec; 
IL_HANDLE hTargetSectRec; 



v 

// Current drive 

// Current working directory 

// IntelliLink working directory 

// File/user password 

/ / Source file name 1 

// Source file name 2 

// Target file name 

// Handle to table 



+/ 

// Handle to source system 

// Handle to target system 

// Handle to source section 

// Handle to target section 

// Handle to source system 

// Handle to source section 

// Handle to target system 

// Handle to target section 



/ + _ 

* Application-specific settings from initialization file. 
+ 

char AsciiSep; 
ILX BOOL AsciiNames; 



// Ascii field separator 
// Names as first Ascii record? 



/* 

* Help information . 



UINT32 nHelpContext; // Help context number 

UINT32 nHelpOpen; // Help context for File Open 
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char szHelpFile [ ILX_MAX_FNAME] ; 
ILX_BOOL bVWRHelp; 



/ 



// HELP file name 
// Use VWR help? 



* Communication settings 
*■ . 



7 



int nFileList; - 


// 


Number of files in list 


ILX_BOOL bConnected; 


// 


Is device connected? 


ILX_BOOL bDocument; 


// 


Use Document names? 


ILX BOOL bRamCard; 


// 


Use RAM card on device? 


IL_HINST hCommDLL; 


// 


Communication DLL 


IL HINST hEngineDLL; 


// 


Handle to engine DLL 


IL HINST hOtherSrcDLL; 


// 


Handle to other source DLL 


IL HINST hOtherTarDLL; 


// 


Handle to other target DLL 


IL_HANDLE hFileList; 


// 


Handle to file list 


WORD nComPort; 


// 


Communication port 



/ 



* Windows and handles. 



7 



IL_HINST hlnstance; 
IL_HWIN hLineWin; 
IL_HWIN hMapWin; 
IL_HWIN hWindow; 
WORD hSessionID; 



// Instance handle 

// Line drawing window handle 

// Field mapping window handle 

// Parent window handle 

// Session ID 



/* 

* Synchronization settings. 

* To specify unlimited date range, use I LX_DATE_RANGE_UN LIMITED (-1) 

* for both Start and End. 

* v 

INT32 IDateRangeStart; // Earliest appointment date 

I NT 32 IDateRangeEnd; // Latest appointment date 

ILXTR_SYNC_OPTION nSynchronize; // Short int; see ilxtr.h 

/ + 

* System error code (non-ILX errors). 

+ + / 

int nXlatorError; // Translator error code (ILTR) 

int nSystemError; // Application error code 

/* 

* Optional appl i cat ion -spec i f ied callback for Progress & Error reporting 
* */ 

IL_CBPROGRESS cbProgress; // Progress-reporting callback 

UINT uTimerlnterval; // In milliseconds ( ZERO = 55) 

ILX_BOOL bCancelRequest; // TRUE to request cancelation 

INT16 nXlateDataErrs; // Number of Data errors 

IL_HWIN hProgWin; // Handle for Progress Window 

/* 

* Count of records processed. 

* + / 

INT32 ITotalRecords; // Total records processed 

ILX_BOOL bStayConnected; // Stay connected after transfer? 

// Communications prompt help context number 

UINT32 nCommHelpContext; // Help context number 

// Type of handheld connected to 

INT16 nConnectedType; // Handheld type 

/ + 

* Handles for current {internal or external) source/ target translators. 

* Added 3/31/95 by Bob -- I LX_MAX_FREE adjusted from 68 to 64 (16-bit). 

* + 1 

IL_HXLATOR hSourceDLL; // Xlator handle of source DLL 

IL_HXLATOR hTargetDLL; // Xlator handle of target DLL 

/* 

* Pointers intended to be used to pass any additional translator specific 

* data from the Userlnterface to a specific translator. The fields are 

* typed as void pointers to indicate and allow them to point to. any 

* data the UI and translator need. 

* Added 4/19/96 by DaveMc — I LX_MAX_FREE adjusted from 64 to 56. 
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+ v 

void * pSourceXtraData; // Pointer to extra source data 

void * pTargetXtraData; // Pointer to extra target data 

/* - 

* Flag bllseTable causes option settings to be taken directly from 

* the system Table, whenever possible. This means that options such 

* as the reconciliation, RAM card, and document options {for example) 

* will be taken from the system record rather than the ILX setting. 

* The default value of this option is set to ILX_TRUE. 

* V 

ILX_BOOL bUseTable; // Take settings from table? 

/* 

* Miscellaneous engine flags word, use ILX_FLAG_xxxx ffdefines. 

* Added 1/24/96 by DavidB — I LX_MAX_FREE adjusted from 54 to 50. 

* v 

UINT32 Flags; // Misc. Flag Bits 

/ + 

* Handles to application session returned from call to callback 

* function ILBeginSession . Reduced ILX_MAX_FREE to 42 bytes. 

* v 

ILXTR_HAPPSESSION hSrcAppSession; // Source session handle 

ILXTR_HAPPSESSION hTa rAppSession; // Target session handle 

/* 

* Boolean settings to drive whether or not field lists should be 

* dynamically updated. I LX_MAX_FREE to 38 bytes 

* v 

ILX_BOOL bSrcWhatFields; // Source system whatfields 

ILX_BOOL bTarWhatFields; // Target system whatfields 

/* 

* Pointer to callback function used to ask user's permission before 

* trampling over his or her data. I LX_MAX_FREE to 34 bytes 

* + 1 

UINT32 OKTPJThreshold; // OKToProceed dialog threshold 

/* 

* Font to be used drawing controls in dialogs. ILX_MAX_FREE to 32 bytes 
* v 

HFONT hDialogFont; 

/* 

* Handle/pointer to ILX "Extended" globals. I LX_MAX_FREE to 26 bytes 

+ V 

IL_HANDLE hExt; // Handle for ILX ext. globals 

ILX_PEXTG pExt; // Pointer to ILX ext. globals 

/* 

* ILX header version number. ILX_MAX_FREE to 24 bytes 
+ / 

INT16 version; // set to ILX_CURRENT_VERSION 

/* 

* If you extend this structure, count the bytes, and adjust (down!) 

* ILX_MAX_FREE above to keep size consistent with previous releases. 

+ + 1 

char szFiller [ILX_MAX_FREE] ; // Free space for expansion 

} ILXJ3LOBALS, IL_DIST * ILX_PGLOBALS; 

/* 

* Function prototypes . 

* When running under MS-Windows, the global data space must be 

* allocated within the calling application to ensure reentrancy. 

* This is accomplished by declaring and passing a pointer to the 

* global data space to each function. The additional parameter 

* passed to the DLL version of ILX is hidden in macro definitions 

* supplied for each function. The actual DLL function names are 

* prefixed with 'd 1 to distinguish them from the macros. 
v 



/ 
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HIGH level API functions. 

These functions are called to initiate IntelliLink/Lite. These can 
be used in conjunction with Low-level functions. Note that none of 
the High-level functions require access to the global data structure 
nor access the IntelliLink engine DLL. 



int IL_DECL ILX_DcTExport 

( IL_HWIN hParentWnd, 
IL_PSTR pEngineDir, 
ILX_HAPP hSourceApp, 
ILX_HAPP hTargetApp, 
ILX_PIM nTypes ) ; 

int IL_DECL ILX_DoImport 

( IL_HWIN hParentWnd, 
IL_PSTR pEngineDir, 
ILX_HAPP hSourceApp, 
ILX_HAPP hTargetApp, 
ILX_PIM nTypes ) ; 

int IL_DECL ILX_DoSynch 

( IL_HWIN hParentWnd, 
IL_PSTR pEngineDir, 
ILX_HAPP hSourceApp, 
ILX_HAPP hTargetApp, 
ILX_PIM nTypes ) ; 

ILX_HAPP IL_DECL ILX_GetAppHandle 
{ IL_PSTR pEngineDir, 
IL_PSTR pAppName ); 

ILX_HAPP I L_DECL ILX_GetAppHandleEx 
{ IL_PSTR pTableName, 
IL_PSTR pEngineDir, 
IL_PSTR pAppName ); 

int IL_DECL ILX_GetAppList 
{ IL_HANDLE phTable, 
IL_PSTR pEngineDir, 
ILX_PIM nTypes, 
ILX_HAPP hExcludeApp, 
IL_HANDLE IL_DIST *hAppList, 
ILPINT nAppList ) ; 

int IL_DECL ILX_Get AppList Ex 
( IL_PSTR pTableName, 
IL_HANDLE phTable, 
IL_PSTR pEngineDir, 
ILX_PIM nTypes, 
ILX_HAPP hExcludeApp, 
IL_HAN DLE IL_DIST *hAppList, 
ILPINT nAppList ); 

int IL_DECL ILX_UseDllVersion 
( ILX BOOL bUseDll ) ; 



I / Initiate Export operation 

// Handle to parent window 

// IntelliLink directory 

// Handle to source system 

// Handle to target system 

// Section types to include 

// Initiate Import operation 

// Handle to parent window 

// IntelliLink directory 

// Handle to main system 

// Handle to selected system 

// Section types to include 

// Initiate Synch operation 

// Handle to parent window 

// IntelliLink directory 

// Handle to main system 

// Handle to selected system 

// Section types to include 

// Get application handle 

// IntelliLink directory 

// Pointer to system name 

// Get application handle 

// System table name 

// IntelliLink directory 

// Pointer to system name 

// Get qualified system list 

// Pointer to table handle or NULL 

// IntelliLink directory 

// Section types to include 

// Handle to excluded system 

// Handle to returned system list 

// Number of systems in list 

// Get qualified system list 

// System table name 

// Pointer to table handle or NULL 

// IntelliLink directory 

// Section types to include 

// Handle to excluded system 

// Handle to returned system list 

// Number of systems in list 

// Use DLL or EXE version? 

// Use DLL version? 



* LOW level API functions. 

+ These functions are used when the caller provides a full user 

v interface component to drive translation. All Low-level functions 

* require access to the global data structure and reference the 

* IntelliLink engine DLL. 



int IL_DECL ILX_dAddSect ion 

( ILX_PGLOBALS _i lx_globa Is, 
ILX_HAPP hApp, 
IL_PSTR pSectionName, 
ILX_PIM nType, 
ILX_HSECTION *phSection ); 
int IL_DECL ILX_dBeginSession 

( ILX_PGLOBALS _ilx_globals ); 
int IL_DECL ILX_dEndSession 

( ILX_PGLOBALS _ilx_globals ); 
int I L_DECL ILX_dCal lGet Password 

{ ILX_PGLOBALS _ilx_globals, 
IL_PSTR pszTransName, 
IL_PSTR pszAppFile, 
IL_PSTR pszSectName, 
IL_PSTR pszPassword ); 
int IL_DECL ILX_dFlipApps 

( ILX_PGLOBALS _ilx_globals ); 
int IL_DECL ILX_dFullBackup 



/ 



// Add new system section 

// Pointer to global data 

// Handle to system 

// Pointer to section name 

// Section type 

// Returned section handle 

// Initiate communicat ion session 

// Pointer to global data 

/ / Terminate communication session 

// Pointer to global data 

// Call translator I LGet Password 

// Pointer to ilx globals 

// Pointer to translator name 

// Pointer to app. file name 

// Pointer to app. section name 

// Pointer to password buffer 

// Exchange Source/Target handles 

// Pointer to global data 

// Call thru to COMM for full backup 
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( ILX_PGLOBALS _ilx_globals, 
ILX_HAPP hApp, 
INT16 nSysClass, 
int nComPort ); 
int IL_DECL ILX_dFullRestore 

< ILX_PGLOBALS _ilx_globals, 
ILX_HAPP fiApp, 
int nComPort ); 
int IL_DECL ILX_dGetErrorText 

( ILX_PGLOBALS _i lx_globals , 
int nErrorCode, 
IL_PSTR pText, 
int nText ) ; 
int IL_DECL ILX_dGetFieldMap 

{ ILX_PGLOBALS _ilx_globals, 
IL_HANDLE IL_DIST *hSrcList, 
IL_HANDLE IL_DIST *hTarList, 
ILPINT nSrcList, 
ILPINT nTarList, 
int nType ) ; 
int IL_DECL ILX_dGet FileName 

( ILX_PGLOBALS _i lx_globa Is, 
ILX_HAPP hApp, 
ILX_HSECTION hSection, 
int nlndex, 
IL_PSTR pFileName, 
int nFileNameLen ); 
int IL_DECL ILX_dGetSectionList 

{ ILX_PGLOBALS _i lx_globa is , 
ILX_HAPP hApp, 
ILX_PIM nTypes, 
IL_HANDLE IL_DIST *hSectList, 
ILPINT nSectList ) ; 
int IL_DECL ILX_dGetValue 

( ILX_PGLOBALS _i!x_globals, 
ILX_VALUE nType, 
long *piValue ) ; 
int IL_DECL ILX_dMerge 

{ ILX_PGLOBALS _i lx_globa Is , 
ILX_OPTION nReconcile, 
IL_PSTR pLogFile, 
ILX_BOOL bMapFields }; 
int IL_DECL ILX_dPutFieldMap 

( ILX_PGLOBALS _ilx_globals, 
IL_HANDLE hSrcList, 
IL_HANDLE nTarList, 
int nSrcList, 
int nTarList } ; 
int IL_DECL ILX_dReadTable 

( ILX_PGLOBALS _ilx_globals, 
ILX_HAPP hApp, 
ILXJTBLOPT nOption, 
long *lValue ) ; 
int IL_DECL I LX_dRemoveSect ion 

( ILX_PGLOBALS _ilx_globals, 
ILX_HAPP hApp, 
ILX_HSECTION hSection ); 
ILX_HAPP IL_DECL ILX_dRemoveSystem 
( ILX_PGLOBALS _ilx_globals, 
IL_PCSTR pEngineDir, 
ILX_HAPP hSystem, 
ILX_BOOL bDeleteXlator) ; 
int IL_DECL ILX_dRenameSection 

{ ILX_PGLOBALS _ilx_globals, 
ILX_HAPP hApp, 
ILX_HSECTION hSection, 
IL_PSTR pSectionName ); 
ILX_PIM IL_DECL ILX_dSectionToPIM 
( ILX_PGLOBALS _ilx_globals, 
int nSectionType ) ; 
int IL_DECL ILX_dSelectApps 

{ ILX_PGLOBALS _ilx_globals, 
ILX_HAPP hSrcApp, 
ILX_HAPP hTarApp ) ; 
int IL DECL ILX dSelectFiles 



// Pointer to global data 

// Handheld system to backup 

// System class of handheld 

/ / Comport to use for I/O 

// Call thru to COMM for full restore 

// Pointer to global data 

// Handheld system to restore 

// Comport to use for I/O 

// Return error text 

// Pointer to global data 

// ILX error code 

// Pointer to returned text 

// Size of text buffer 

// Get field lists and map 

// Pointer to global data 

// Pointer to source list handle 

// Pointer to target list handle 

// Pointer to source field count 

// Pointer to target field count 

// Request type 

// Get last data file name 

// Pointer to global data 

// System handle 

// Section handle 

// Index of file in list 

// Pointer to returned file name 

// Size of file name buffer 

// Get list of sections 
.// Pointer to global data 

// System handle 

// Section types to include 

// Pointer to section list handle 

// Pointer to number of sections 

// Get miscellaneous options 

// Pointer to global data 

// Option type 

// Pointer to option value 

// Merge two files into one 

// Pointer to global data 

// Reconciliation option 

// Pointer to log file name 

// Show field map dialog? 

// Replace field list and map 

// Pointer to global data 

// Handle to source field list 

// Handle to. target field list 

// Number of source fields 

// Number of target fields 

// Read system table 

// Pointer to global data 

// Application handle 

// Option type 

// Returned option value 

// Delete system section 

// Pointer to global data 

// System handle 

// Section handle 

// Remove system from tables 

// Pointer to global data 

// IntelliLink directory 

// System ID to be removed 

// Delete xlator file also? 

// Rename system section 

// Pointer to global data 

// System handle 

// Section handle 

// New section name 

// Convert section to PIM type 

// Pointer to global data 

// Section type to convert 

// Select source & target systems 

// Pointer to global data 

/ / Handle to source system 

// Handle to target system 

// Set source & target file names 
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( ILX_PGLOBALS _ilx_globals, 
IL_PSTR pSrcFilel, 
IL_PSTR pSsrcFile2, 
IL_PSTR pTarFile i ; 
int IL_DECL ILX_dSelectSections 

{ ILX_PGLOBALS _ilx_globals f 
ILX_HSECTfON hSrcSection, 
ILX_HSECTION hTarSection ); 
int IL_DECL ILX_dSet Fi leName 

( ILX_PGLOBALS _ilx_globals, 
ILX_HAPP hApp, 
ILX_HSECTION hSection, 
int nlndex, 
IL_PSTR pFileName ); 
int IL_DECL ILX_dSetVa lue 

( ILX_PGLOBALS _ilx_globals, 
ILX_VALUE nType, 
long IValue ) ; 
int IL_DECL ILX_dShowFieldMap 

{ ILX_PGLOBALS _ilx_globals ); 
int IL_DECL ILX_dShutDown 

( ILX_PGLOBALS _ilx_globals ); 
int IL_DECL ILX_dStartUp 

( ILX_PGLOBALS _ilx_globals, 
IL_PSTR pDir, 
IL_HWIN hParentWnd ); 
int IL_DECL ILX_dStartUpEx 

{ ILX_PGLOBALS _ilx_globals, 
IL_PSTR pDir, 
IL_HWIN hParentWnd, 
IL_PSTR pszUserlD ) ; 
int IL_DECL ILX_dTranslate 

{ ILX_PGLOBALS _ilx_globals, 
ILX_OPTION nReconcile, 
IL_PSTR pLogFile, 
ILX_BOOL nMapFields }; 
INT16 IL_DECL ILX_dTranslateDataEr rors 

( ILX_PGLOBALS _ilx_globals ); 
int IL_DECL ILX_dUpdateTable 

( ILX_PGLOBALS _ilx_globals, 
ILX_HAPP hApp, 
ILX_TBLOPT nOption, 
long IValue ) ; 



// Pointer to global data 

// Source file name 

// Second source file name (Merge) 

// Target file name 

// Select system sections 

// Pointer to global data 

// Handle to source section 

// Handle to target section 

// Get last data file name 

// Pointer to global data 

// System handle 

// Section handle 

// Index of file in list 

// Pointer to returned file name 

// Set miscellaneous options 

// Pointer to global data 

// Option type 

// Option value 

// Display field mapping dialog 

// Pointer to global data 

// Shut down translation engine 

// Pointer to global data 

// Start up translation engine 

// Pointer to global data 

// Engine directory or NULL 

// Handle to parent window 

/ / ILX_dSta rtup extended version 

// Pointer to global data 

// Engine directory pointer 

// Handle to parent window 

// User ID string or NULL 

// Translate source to target 

// Pointer to global data 

// Reconciliation option 

// Pointer to log file name 

// Show field mapping dialog? 

// Data errors druing last xlate? 

// Pointer to global data 

// Update system table 

// Pointer to global data 

// Application handle 

// Option type 

// Option value 



/* 

+ Extended API functions (added 4/15/95) . These functions provided 

* support for creating and deleting custom field maps. They also 

* provide support for saving and loading field map contents from 
+ arbitrary disk files. 

+ + 1 



ILX_ID IL_DECL ILX_dGetActiveFieldMap 
( ILX_PGLOBALS _ilx_globals ); 

int IL_DECL ILX_dGetFieldMapEx 

( ILX_PGLOBALS _ilx_globals, 
ILX_ID nMapId, 

I L_HANDLE IL_DIST +phSrcFlds, 

IL_HANDLE IL_DIST *phTarFlds, 

ILPINT pnSrcCount, 

ILPINT pnTarCount, 

int nQualif y ) ; 
int IL_DECL ILX_dGetFieldMapList 

( ILX_PGLOBALS _ilx_globals, 

IL_HANDLE IL_DIST * phMapList, 

ILPINT pnMapCount ); 
int IL_DECL ILX_dLoadFieldMapFile 
( ILX_PGLOBALS _ilx_globals, 

int nType, 

IL_PSTR pszFileName, 
IL_PSTR pszMapName, 
ILX_ID *pnMapId ) ; 
int IL_DECL ILX_dMergeEx 

( ILX_PGLOBALS _ilx_globals f 
ILX_ID nMapId, 
ILX_OPTION nReconcile, 
IL_PSTR pLogFile, 



// Get active field map 

// Pointer to global data 

// Get field map (extended} 

// Pointer to global data 

// Field map ID to get 

// Pointer to source list handle 

// Pointer to target list handle 

// Pointer to source field count 

// Pointer to target field count 

// Request qualifier 

// Get list of field maps 

// Pointer to global data 

// Pointer to list handle 

// Pointer to list item count 

// Load field map from file 

// Pointer to global data 

// Section type to load 

// Pointer to file name 

// Name of new field map 

// Pointer to field map ID 

// Merge two files into one 

// Pointer to global data 

// Field map ID to use 

// Reconciliation option 

// Pointer to log file name 
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ILX_BOOL bMapFields ); 
ILX_ID IL_DECL ILX_dNewFieldMap 

( ILX_PGLOBALS _ilx_globals, 
ILX_ID nBaseMapId, 
IL_PSTR pszMapName ); 
int IL_DECL ILX_dPutFieldMapEx 

( ILX_PGLOBALS _ilx_globals, 
ILX_ID nMapId, 
IL_HANDLE hSrcFlds, 
I L_HAN DLE hTarFlds, 
int nSrcCount, 
int nTarCount ) ; 
ILX_BOOL IL_DECL ILX_dRemoveFieldMap 
{ ILX_PGLOBALS _i lx_globals , 
ILX_ID nMapId ) ; 
ILX_BOOL IL_DECL ILX_dSaveFieldMapFile 
( ILX_PGLOBALS _i lx_globals , 
ILX_ID nMapId, 
IL_PSTR pszFileName ); 
ILX_BOOL IL_DECL ILX_dSelect FieidMap 
( ILX_PGLOBALS _i lx_globals, 
ILX_ID nMapId, 
ILX_BOOL bSet ) ; 
int IL_DECL ILX_dTranslateEx 

{ ILX_PGLOBALS _i lx_giobals , 
ILX_ID nMapId, 
ILX_OPTION nReconcile, 
IL_PSTR pLogFiie, 
ILX BOOL nMapFieids ); 



// Show field map dialog? 

// Create new field map 

// Pointer to global data 

// ID of base field map 

// Pointer to field map name 

// Write field map (extended) 

// Pointer to global data 

// Field map ID to save 

// Handle to source fields 

// Handle to target fields 

// Number of source fields 

// Number of target fields 

// Remove field map 

// Pointer to global data 

// Field map ID to remove 

// Save field map to file 

// Pointer to global data 

// Field map ID to save 

// Pointer to file name 

/ / Set active field map 

// Pointer to global data 

// Field map ID to activate 

// Set or clear flag? 

// Translate source to target 

// Pointer to global data 

// Field map ID to use 

// Reconciliation option 

// Pointer to log file name 

// Show field mapping dialog? 



/* 

* Macro to declare DLL global data in application data space. 

* v 

ffdefine I LX_DECL_GLOBALS ILX_GLOBALS _ilx_globals 

/* 

* Macros to access error codes. 

*■ - _ * i 

ffdefine ILX_GetLastXlatorError ( ) (_i lx_globals . nXlatorError ) 
ffdef ine ILX_GetLastSystemEr ror < ) (_ilx_globals . nSystemError ) 

/ + 

* Macros for DLL function calls. 

+ */ 

#def ine ILX_AddSection { a, b, c, d ) \ 

ILX_dAddSection ( &_ilx_globals, a, b, c,d ) 
ffdefine ILX_BeginSession ( ) \ 

ILX^dBeginSession ( &_ilx_globals } 
ffdef ine ILX_Call Get Password { a, b, c,d ) \ 

ILX_dCallGetPassword ( &_ilx_globals, a, b, c,d ) 
#define ILX_EndSession ( ) \ 

ILX_dEndSession ( &_i lx_globals ) 
#define I LX_F1 ipApps ( ) \ 

ILX_dFlipApps ( &_ilx_globals ) 
#define ILX_Ful IBackup ( a , b, c ) \ 

I LX_d Full Backup ( &_ilx_globals, a, b, c ) 
ffdefine ILX_FullRestore ( a, b) \ 

ILX_d Full Restore ( &_i lx_globals , a , b } 
ffdefine ILX_GetErrorText (a, b, c) \ 

ILX_dGetErrorText ( &_i lx_globa Is , a, b, c ) 
ffdefine ILX_GetFieldMap ( a , b, c, d, e ) \ 

I LX_dGet FieidMap ( &_i lx_globals , a , b, c,d f e) 
#define ILX_Get FileName ( a , b, c, d, e ) \ 

ILX_dGet FileName { &_ilx_globals, a, b, c, d, e ) 
ffdefine ILX_GetSectionList ( a, b, c,d ) \ 

ILX_dGetSectionList ( &_i lx_globals, a, b, c,d ) 
^define • ILX_GetValue ( a, b) \ 

ILX_dGetValue ( &_ilx_globals, a, b) 
ffdefine ILX_Merge ( a, b, c ) \ 

ILX_dMerge ( &_ilx_globals, a, b, c ) 
ffdefine ILX_Put FieidMap ( a , b, c, d ) \ 

ILX_d Put FieidMap ( i_ilx_globa Is, a , b, c, d ) 
ffdefine ILX_ReadTable ( a , b, c ) \ 

ILX_dReadTable { &_ilx_globals, a, b, c) 
#define ILX RemoveSect ion { a , b ) \ 
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ILX_dRemoveSect ion { &_i lx_globals, a, b) 
ffdefine ILX_RemoveSys tern ( a , b, c ) \ 

ILX_dRemoveSystem( &_i lx_globals, a, b, c) 
ffdefine ILX_RenameSection ( a, b, c) \ 

ILX_dRenameSection ( &_ilx_globa Is, a, b, c ) 
ffdefine ILX_SectionToPIM ( a ) \ 

ILX_dSectionToPIM ( i_i lx_globa Is , a ) 
ffdefine ILX_SelectApps ( a , b ) \ 

ILX_dSelectApps ( &_ilx_globals, a , b) 
ffdefine ILX_Select Fi les ( a , b p c ) \ 

ILX_dSelect Files ( &_ilx_globals, a, b, c } 
ffdefine ILX_SelectSect ions { a, b) \ 

ILX_dSelectSections ( &_ilx_globals, a, b) 
ffdefine ILX_Set FileName { a , b, c,d ) \ 

ILX_dSetFileName(&_ilx_globals, a,b, c,d) 
ffdefine ILX_SetValue ( a , b ) \ 

ILX_dSetValue ( &_ilx_globals, a, b) 
ffdefine ILX_ShowFieldMap { ) \ 

ILX_dShowFieldMap { &_ilx_globals ) 
ffdefine ILX_ShutDown { ) \ 

ILX_dShutDown ( &_ilx_globals} 
ffdefine ILX_StartUp { a, b) \ 

ILX_dStartUp(&_ilx_globals, a,b) 
ffdefine ILX_StartUpEx ( a, b, c ) \ 

ILX_dStartUpEx ( &_ilx_globals, a , b, c ) 
ffdefine ILX_Translate ( a, b, c ) \ 

ILX_dTranslate ( &_ilx_globals , a , b, c} 
ffdefine ILX_TranslateDataErrors ( ) \ 

ILX_dTranslateDataErrors ( &_ilx_globals ) 
ffdefine ILX_UpdateTable { a , b, c ) V 

ILX_dUpdateTable (&_ilx_globals, a,b, c) 



/* 

* Macros for extended functions ( added 4/ 15/95 ) 
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ffdefine ILX_GetActiveFieldMap{ ) \ 

ILX_dGetActiveFieldMap ( &_ilx_globals ) 
ffdefine ILX_Get Fie ldMapEx { a , b, c, d , e, f ) \ 

ILX_dGetFieldMapEx ( &_i lx_globa Is , a , b, c,d, e, f ) 
ffdefine ILX_Get FieldMapList ( a , b ) \ 

ILX_dGetFieldMapList ( &_i lx_globa Is , a , b) 
ffdefine ILX_LoadFieldMapFi le ( a , b, c,d) \ 

ILX_dLoadFieldMapFile ( &_i lx_globals , a , b, c, d ) 
ffdefine ILX_MergeEx ( a , b, c, d ) \ 

ILX_dMergeEx { &_ilx_globals, a , b, c, d } 
ffdefine ILX_NewFieldMap { a , b) \ 

ILX_dNewFieldMap ( &_i lx_globals, a , b ) 
ffdef ine I LX_Put FieldMapEx { a , b, c,d, e) \ 

ILX_d Put FieldMapEx ( &_i lx_globa Is , a,b, c,d,e) 
ffdefine ILX_RemoveFieldMap { a ) \ 

ILX_dRemoveFieldMap { &_ilx_globals, a ) 
ffdefine I LX_SaveFieldMapFi 1 e ( a , b ) \ 

ILX_dSaveFieldMapFile { &_ilx_globals, a,b) 
ffdefine ILX_Select FieldMap { a, b) \ 

I LX_dSelect FieldMap ( &_ilx_globals, a, b) 
ffdefine ILX_TranslateEx (a,b, c,d) \ 

ILX_dTranslateEx ( &_i lx_globals, a, b, c,d ) 

// Special handling for C++ code 

ffifdef cplusplus 

} 

ffendif // cplusplus 
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ffif !defined( ILXAPI) 



/ 



+ Name: ILXAPI.H 

* Purpose: Internal header file for translator API 

+ Author: Copyright (c) IntelliLink, 1992 

+ - 



ffdef ine 



ILXAPI 



// Signal header inclusion 



ffifdef ILWIN 



ff include 


<windows . h> 


// 


ff include 


<windowsx . h> 


// 


ff include 


n ilwin32.h M 


// 


ffinclude 


" ilmacro . h" 




ff include 


"ildde.h" 





ffendif // ILWIN 



// Special handling for C++ code 

ffifdef cplusplus 

extern "C" { 
ffendif // cplusplus 

// DOS time header 
// Lite context numbers 



ffinclude <time.h> 
ffinclude "litehlp.h 



/* 

* Include related header files. 



ffinclude "ilxdlg.h" 
ffinclude "iltr.h" 
ffinclude "ilxerr.h" 
ffinclude "litemsg.h" 
#include "ilsysids.h" 



/ + 

* External variables. 

* v 

extern IL_HINST hDLLInstance; // DLL instance 

extern ILX_BOOL _bUseLi teDl 1 ; // Use DLL version of UI? 

/* 

* Data types. 

* + / 



// 

typedef 
§def ine 
#def ine 
Sde f ine 
ffdef ine 



I/O Direction 

ILTR_DIRECTION 

ILX_IO_IMPORT 

ILX_IO_EXPORT 

ILX_IO_BOTH 

ILX 10 SYNC 



ILX_I0; 
ILTR_IMP0RT 
ILTR_EXP0RT 
ILTR_EXP0RT+1 
ILTR EXP0RT+2 



// Direction type 

// Import 

// Export 

// Import/Export 

// Synchronize 



// Values for 'nPutWhere* member of File List 

ffdefine ILX_PUT_NOWHERE 0 // file is NOT for output 

ffdefine ILX_PUT_TO_SOURCE 1 // file is for output To "Source" (sync only!} 
ffdefine ILX_PUT_TO_TARGET 2 // file is for output To Target 



typedef struct 
{ 

ILX_BOOL bContainsData; 
ILX_BOOL bRamCard; 
INT16 nPutWhere; 
char szRealName [MAX_PATH] ; 
char szTempName [MAX_PATH] ; 
} ILX_FILIST, IL_DIST *ILX_PFILIST; 

typedef struct 
{ 

ILTB_PSECREC pSrcSec; 
ILTB_PSECREC pTarSec; 
ILTB_PSYSREC pSrcApp; 
ILTB_PSYSREC pTarApp; 
} ILX_RECS, IL_DIST *ILX_PRECS; 

typedef struct 



// File list 

// Does file contain data? 

// State of RAM card 

// use ILX_PUT_XXX ffdefines 

// Original file name 

// Temporary file name 

// Record pointers 

// Pointer to source section 

// Pointer to target section 

// Pointer to source system 

// Pointer to target system 

// Header for map files 
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INT1 6 


nSi una ture: 




cue signature 


INT16 


nMa i o rVe rs ion ; 


/ / 


najot version numoe r 


INT16 


nMinorVersion; 


// 


Minor version number 


INT16 


nMapLen; 


// 


Length of map record 


INT16 


nConLen; 


// 


Length of config record 


INT16 


nSrcLen; 


// 


Length of source field list 


INT16 


nTarLen; - 


// 


Length of target field list 


INT32 


nUnused; 


// 


Reserved for future use 



} ILX MAPHDR, IL DIST + ILX PMAPHDR; 



/ + 

* Constant 
+- _ , 

ffdefine ILX 
ffdefine ILX" 
ffdefine ILX* 
ffdefine ILX" 
ffdefine ILX" 
ffdefine ILX* 
ffdefine ILX~ 
ffdefine ILX~ 
ffdefine ILX" 
ffdefine ILX~ 
ffdefine ILX~ 
ffdefine ILX" 
ffdefine ILX~ 
ffdefine ILX~ 

/* : 

* MapField 



s . 

BEGINCB 
~COMM_DLL 

[endcb 

~engine_section 
"export_driver 
"exportwp_driver 
tables_file 
~fil_wildcard 
"help_prop 
"help_file 
import_driver 

"lMPORTWP_DRIVER 
LITE_EXEC 
'MAX FRAG 



"ILBeginSession" // 

"ilecomm.dll" // 

"ILEndSession" // 

ilxeng" // 

ILExport" // 

ILExportWP" // 

tables. itb" // 

ILX*.FIL" // 

HelpNo" // 

ilxlate.hlp" // 

ILImport" // 

ILImportWP" // 

ilxlate . exe" // 

25 // 
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n 



tt 



fi 



tt 



it 



Begin session callback 
Communication DLL name 
End session call back 
Section in WIN. INI 
Export driver 
Export WP driver 
ILTB tables file name 
Wild card for filter files 
Window property for Help 
Default Windows Help file 
Import driver 
Import WP driver 
IntelliLink/Lite executable 
File fragmentation ratio 



field index values for unmapped fields 



ffdefine ILX 
#define ILX" 



UNMAPPED ILTR_UNMAPPED // Unmapped field 

UNMAPPED_BUT_TAGGED ILTR_UNMAPPED_BUT_TAGGED // special value 
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#def ine 
ffdef ine 
ffdefine 
ffifdef 

ffdefi 

ffdefi 
ff else 

ffdefi 

ffdefi 
ffendif / 

// Map file constants 

ffdefine ILX_MAP_SIGNATURE 
ffdefine ILX_MAP_MAJOR_VER 
ffdefine ILX MAP MINOR VER 



I LX_WHAT FI ELDS 
I LX_WHAT FIELDS_EX 
ILX_GETPAS SWORD 
WIN32 

ne ILX_ENGINE_DLL 
ne ILX_LITE_DLL 

ne ILX_ENGINE_DLL 
ne ILX_LITE_DLL 
/ WIN32 



tt 



tt 



ILWhatFields" 

ILWhatFieldsEx" 

ILXGetPassword" 



// Fields identification function 
// Extended version of WhatFields 
// Translator get password proc. 



"ilx32.dll" // 32-Bit Engine DLL 
"illite32.dll" // 32-Bit UI DLL 



"ilxw.dll" 
"ilxlate.dll" 



// 16-Bit Engine DLL 
// 16-Bit UI DLL 



OxOCOE 
1 



// Map file signature 
// Major version number 
// Minor version number 



// 



"DLL" function codes for translator code resources on the Macintosh 



#def ine 


ILX 


CALL 


EXPORT 


100 


// 


ILExport 


ffdef ine 


ILX" 


call" 


"import 


101 


// 


ILImport 


ffdef ine 


ILX~ 


"call" 


"what fields 


102 


// 


ILWhatFields 


ffdef ine 


ILX~ 


"call" 


~WH AT_ F I E L DS EX 


103 


// 


ILWhatFields extended version 


ffdef ine 


ILX~ 


"call" 


~GET PASSWORD 


104 


// 


I LGet Password 


ffdef ine 


ILX" 


"call" 


"BEGIN SESSION 


105 


// 


ILBeginSession 


ffdef ine 


ILX~ 


"call" 


"END SESSION 


106 


// 


ILEndSession 



/* 

* Messages. 

+ 

ffdefine ILX32 FINI TRANS 



/ 



/ 



WM USER + 900 



* Default Help context numbers. 

■*■ 

ffdefine ILX_HELP_CONTEXT I LH_DLG_MAPPING 
#define ILX HELP FILEOPEN ILH DLG COMMONOPEN 



/ 



/ 



Enumerated types. 
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typedef enum 



// Field map requests 
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ILX_MAP_LAST = 0, 

I LX_MA P_DE FAU LT = 1, 

ILX_MAP_VERIFY = 2, 

I LX_MAP_LAST_NO PROMPT = 3 
} ILX MAP; 



// Get last saved field map 

// Get default field map 

// Validate field map only 

// Get last map but no prompt 



/ 



HIGH-LEVEL function type. 



/ 



typedef int (IL_DECL * ILX_PLITEPORT ) 
( IL_HWIN, 
ILX_HAPP, 
ILX_HAPP, 
ILX PIM ); 



// Initiate data transfer 

// Handle to parent window 

// Handle to source system 

// Handle to target system 

// Section types to include 



/ 



* I LWHAT FIELDS and related 



callback function types. 

V 

Get field list { ILWhatFields ) 
Pointer to qualified file name 
ID of character map 
Pointer to table handle 
Pointer to field list handle 
Pointer to field count 
ASCII delimiter character 
Extended ILWhatfields call 
Ptr to WhatFlds Parameter Block 
Translator ILXGetPassword call 
Ptr to params (see ILTR.H) 



typedef int ( IL_DECL IL_DIST +PXLFLDS) 
( IL_PSTR, 
ILTB_ID, 
ILTB_PHNDL, 
I L_HAN DLE IL_DIST *, 
int *, 
char ) ; 

typedef int { IL_DECL IL_DIST 

( ILX_PWFParams J ; 
typedef int { IL_DECL IL_DIST 

( ILX PPswdParams ); 



PXLFLDSALT } 



*PXLGETPSWD) 



// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 



/ 



LOW-LEVEL function types. 



/ 



Add new application section 



typedef 


ILX HSECTION 


(IL_ 


DECL *ILX PADDSECTION) 




( 


ILX PGLOBALS, 






// 


Pointer to global data 




ILX HAPP, 






// 


Application handle 




IL PSTR, 






// 


Pointer to section name 




ILX PIM, 






// 


Section type 




ILX HSECTION 


* ); 




// 


Pointer to returned handle 


typedef 


int (IL DECL 


*ILX 


_PBEGSESSION) 


// 


Begin translation session 


( 


ILX PGLOBALS 


); 




// 


Pointer to global data 


typedef 


int (IL DECL 


*ILX 


_PENDSESSION) 


// 


End translation session 


( 


ILX PGLOBALS 


); 




// 


Pointer to global data 


typedef 


int (IL DECL 


*ILX 


_PFLIPAPPS) 


// 


Reverse source and target 


t 


ILX PGLOBALS 


) ; 




// 


Pointer to global data 


typedef 


int (IL DECL 


*ILX 


_PGETERRTEXT) 


// 


Get text of error code 


( 


ILX_PGLOBALS, 






// 


Pointer to global data 




int, 






// 


ILX error code 




IL_PSTR, 






// 


Pointer to text buffer 




int ) ; 






// 


Length of text buffer 


typedef 


int (IL DECL 


*ILX 


_PGETFIELDMAP ) 


// 


Get field map 


t 


ILX PGLOBALS, 






// 


Pointer to global data 




IL HANDLE IL 


DIST 




// 


Pointer to source list handle 




IL HANDLE IL 


DIST 


r 


// 


Pointer to target list handle 




ILPINT, 






// 


Pointer to source field count 




ILPINT, 






// 


Poitner to target field count 




int ); 






// 


Request qualifier 


typedef 


int (IL DECL 


*ILX 


_PGETFILENAME ) 


// 


Get file name for system 


( 


ILX PGLOBALS, 






// 


Pointer to global data 




ILX HAPP, 






// 


Application handle 




ILX_HSECTION, 






// 


Section handle 




int, 






// 


File name index 




IL_PSTR, 






// 


Pointer to returned file name 




int ) ; 






// 


Length of file name buffer 


typedef 


int (IL DECL 


*ILX 


_PGETSECTIONLIST) 


// 


Get list of sections 


{ 


ILX PGLOBALS, 






// 


Pointer to global data 




ILX HAPP, 






// 


Application handle 




ILX PIM, 






// 


Section types to include 




IL HANDLE IL 


DIST 




// 


Pointer to list handle 




ILPINT ); 






// 


Pointer to section count 


typedef 


int (IL DECL 


*ILX_ 


_PGETVALUE) 


// 


Get opt ion va lue 


{ 


ILX PGLOBALS, 






// 


Pointer to global data 




ILX VALUE, 






// 


Value type 
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long + ) ; 
typedef int { IL_DECL * ILX_PMERGE ) 
( ILX_PGLOBALS, 

ILX_OPTION, 

IL_PSTR, 

ILX_BOOL ) ; 
typedef int { IL_DETCL *ILX_PMERGEX) 
{ ILX_PGLOBALS, 

ILX_ID, 

ILX_OPTION f 

IL_PSTR, 

I LX_BOOL ) ; 
typedef int (IL_DECL + ILX_PPUTFIELDMAP) 
{ ILX_PGLOBALS, 

IL_HANDLE, 

IL_HANDLE, 

int, 

int ); 

typedef int (IL_DECL * ILX_PREADTABLE ) 
( ILX_PGLOBALS, 
ILX_HAPP, 
ILXJTBLOPT, 
long * ) ; 

typedef int (IL_DECL * ILX_PREMOVESECTION ) 
( ILX_PGLOBALS, 
ILX_HAPP, 
ILX_HSECTION ); 
typedef int (IL_DECL * ILX_PRENAMESECTION ) 
( ILX_PGLOBALS, 
ILX_HAPP, 
ILX_HSECTION, 
IL_PSTR ); 
typedef ILX_PIM (IL_DECL +ILX_PTOPIM) 
{ ILX_PGLOBALS, 
int ); 

typedef int (IL_DECL * ILX_PSELAPPS ) 
{ ILX_PGLOBALS, 
ILX_HAPP, 
ILX_HAPP ); 
typedef int { IL_DECL * ILX_PSELFILES ) 
( ILX_PGLOBALS, 
IL_PSTR, 
IL_PSTR, 
IL_PSTR ); 

typedef int (ILJDECL + ILX_PSELSECTIONS) 
{ ILX_PGLOBALS, 
ILX_HSECTION, 
ILX_HSECTION ); 
typedef int (IL_DECL * ILX_PSETFILE ) 
( ILX_PGLOBALS, 
ILX_HAPP, 
ILX_HSECTION f 
int , 

IL_PSTR ); 
typedef int <IL_DECL + ILX_PSETVALUE ) 
( ILX_PGLOBALS, 
ILX_VALUE, 
long ) ; 

typedef int { IL_DECL *ILX_PSHOWFIELDMAP) 

( ILX_PGLOBALS ); 
typedef int (IL_DECL * ILX_PSHUTDOWN ) 

{ ILX_PGLOBALS ); 
typedef int (IL_DECL *ILX_PSTARTUP) 
{ ILX_PGLOBALS, 
IL_PSTR, 
IL_HWIN ); 
typedef int (IL_DECL *ILX_PSTARTUPEX) 
( ILX_PGLOBALS, 
IL_PSTR, 
IL_HWIN, 
IL_PSTR ); 
typedef int (IL_DECL * ILX_PTRANSLATE ) 
( ILX_PGLOBALS, 
ILX_OPTION f 
IL PSTR, 



// Pointer to returned value 

// Perform Merge operation 

// Pointer to global data 

// Reconciliation option 

// Pointer to log file name 

// Show field mapping dialog? 

// Perform Merge operation 

// Pointer to global data 

// Field map ID 

// Reconciliation option 

// Pointer to log file name 

// Show field mapping dialog? 

// Write field map 

// Pointer to global data 

// Handle to source fields 

// Handle to target fields 

// Number of source fields 

// Number of target fields 

// Read data from system table 

// Pointer to global data 

// Application handle 

// Table entry type 

// Pointer to returned entry 

// Remove application section 

// Pointer to global data 

// Application handle 

// Section handle 

// Rename application section 

// Pointer to global data 

// Application handle 

// Section handle 

// New section name 

// Convert section to PIM 

// Pointer to global data 

// Section type 

// Select applications 

// Pointer to global data 

// Source application 

// Target application 

// Select data files 

// Pointer to global data 

// Pointer to source file 1 

// Pointer to source file 2 

// Pointer to target file 

// Select data sections 

// Pointer to global data 

// Source section 

// Target section 

// Set file name 

// Pointer to global data 

// Application handle 

// Section handle 

// File name index 

// Pointer to file name 

// Set option value 

// Pointer to global data 

// Value type 

// Option value 

// Show field mapping dialog 

// Pointer to global data 

/ / Shut down engine 

// Pointer to global data 

// Start up engine 

// Pointer to global data 

// Pointer to run directory 

// Parent window handle 

// Start up engine 

// Pointer to global data 

// Pointer to run directory 

// Parent window handle 

// Pointer to user name or NULL 

// Perform Translate operation 

// Pointer to global data 

// Reconciliation option 

// Pointer to log file name 
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ILX_BOOL ); 
typedef int (IL_DECL * ILX_PTRANSLATEX ) 
( ILX_PGLOBALS, 
ILX_ID, 
ILX_OPTION, 
IL_PSTR, 
ILX BOOL n 



// Show field mapping dialog? 

// Perform Translate operation 

// Pointer to global data 

// Field map ID 

// Reconciliation option 

// Pointer to log file name 

// Show field mapping dialog? 



// 

typedef 

( 

typedef 



Did we find any data errors during translation? 
INT16 (IL DECL *ILX PTRANSLATEDATAERRORS ) 



typedef 



typedef 



typedef 



ILX_PGLOBALS ); 

int { IL_DECL * ILX_PUPDATETABLE ) 

ILX_PGLOBALS, 

ILX_HAPP, 

ILX_TBLOPT, 

long ) ; 

int (IL_DECL +ILX_PFULLBACKUP) 

ILX_PGLOBALS, 

ILX_HAPP, 

INT16, 

int ); 

int (IL_DECL * ILX_PFULLRESTORE ) 

ILX_PGLOBALS, 

ILX_HAPP, 

int ); 

int (IL_DECL *ILX_PCALLGETPASSWORD) 

ILX_PGLOBALS, 

IL_PSTR f 

IL_PSTR, 

IL_PSTR, 

IL PSTR i; 



// Pointer to global data 
// Update system record 
// Pointer to global data 
// Application handle 
// Table option type 
// Option value 

// Create a full backup of device 

// Pointer to global data 

// System ID of device to backup 

// System class of device 

// Com port to use 

// Restore a full backup to device 

// Pointer to global data 

// System ID of device to restore 

// Com port to use 

// Call translator ILGetPassword 

// Pointer to ilx globals 

// Pointer to translator name 

// Pointer to app. file name 

// Pointer to app. section name 

// Pointer to password buffer 



/ 



* EXTENDED function types {added 4/15/95). 

* These functions support creating, deleting, saving, and loading 
+ custom field maps. 



/ 



typedef 



typedef 



typedef 



typedef 



ILX_ID (IL_DECL * ILX_PGETACTIVEMAP ) 
ILX_PGLOBALS ); 

int (IL_DECL * ILX_PGETFIELDMAPEX) 
ILX_PGLOBALS, 
ILX_ID, 

IL_HANDLE IL_DIST *, 
IL_HAN DLE IL_DIST *, 
ILPINT, 
ILPINT, 
int ); 

int (IL_DECL +ILX_PGETMAPLIST) 
ILX_PGLOBALS, 
IL_HANDLE IL_DIST *, 
ILPINT i; 

int { IL_DECL * ILX_PLOADMAPFILE ) 
ILX_PGLOBALS, 
int nType, 
IL_PSTR, 
IL_PSTR, 
ILX_ID * ) ; 

ILX_ID (IL_DECL * ILX_PNEWMAP ) 
ILX_PGLOBALS, 
ILX_ID, 
IL_PSTR ); 

int (IL_DECL *ILX_PPUTFIELDMAPEX) 
ILX_PGLOBALS, 
ILX_ID, 
IL_HANDLE, 
IL_HANDLE, 
int , 
int ); 

ILX_BOOL { IL_DECL *ILX_PREMOVEMAP) 
{ ILX_PGLOBALS, 
ILX_ID ); 

typedef ILX_BOOL (IL_DECL * ILX_PSAVEMAPFILE ) 
ILX_PGLOBALS, 
ILX_ID, 
IL PSTR ) ; 



typedef 



typedef 



typedef 



( 



// Get active field map 

// Pointer to global data 

// Get field map { extended ) 

// Pointer to global data 

// Field map ID to get 

// Pointer to source list handle 

// Pointer to target list handle 

// Pointer to source field count 

// Pointer to target field count 

// Request qualifier 

// Get list of field maps 

// Pointer to global data 

// Pointer to list handle 

// Pointer to list item count 

// Load field map from file 

// Pointer to global data 

// Section type to load 

// Pointer to file name 

// Pointer to field map name 

// Pointer to field map ID 

// Create new field map 

// Pointer to global data 

// ID of base field map 

// Pointer to field map name 

// Write field map (extended) 

// Pointer to global data 

// Field map ID to save 

// Handle to source fields 

// Handle to target fields 

// Number of source fields 

// Number of target fields 

// Remove field map 

// Pointer to global data 

// Field map ID to remove 

// Save field map to file 

// Pointer to global data 

// Field map ID to save 

// Pointer to file name 
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typedef ILX_BOOL (IL_DECL + ILX_PSELECTMAP) // Set active field map 

( ILX_PGLOBALS, // Pointer to global data 

ILX_ID, // Field map ID to activate 

ILX BOOL ); // Set or clear flag? 



* Access macros for ILX GLOBALS structure members. 



* — — — — — 
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T T VfT 
1 LAbL 


s zouu rcetiie^ 


( ilx' 


giobals 


->szSourceFile2 ) 


ff ae i i ne 


T T vr T 
1 LiAoLi 


s z i a rge r 1 1 1 e 


( ilx' 


_globals 


->szTargetFile) 


ff ae line 


T T VP T 
1 Li A (j Li 


UfTl,U1 — 

nidDie 


( ilx' 


giobals 


->hTable) 


ff ae 1 1 ne 


T T V/™ 1 T 


nbou rceApp 


( ilx' 


giobals 


->hSourceApp) 


ff de t me 


T T V/*" T 

1 LXbL 


n I a rget App 


( ilx" 


giobals 


->hTargetApp) 


Haerme 


I LXGL 


hSourceSect 


( ilx" 


giobals 


->hSourceSect ) 


ffdef ine 


I LXGL 


hTa rgetSect 


( ilx" 


giobals 


->hTargetSect ) 


ffdef ine 


ILXGL_ 


hSourceAppRec 


{ ilx' 


_globals 


->hSourceAppRec ) 


ffdef ine 


ILXGL 


hTa rget AppRec 


{ ilx" 


globa Is 


->hTa rget AppRec ) 


& de r ine 


XT W T 

I LXGL 


nSourceSectRec 


{ ilx" 


giobals 


->hSourceSectRec ) 


ffder me 


I LXGL 


nTa rget Sect Rec 


( ilx" 


giobals- 


->hTa rget Sect Rec ) 


ffde l me 


I LXGL 


nGommHeipGont ext 


( ilx globals->nCommHelpContext ) 


ffdef ine 


ILXGL 


nHelpContext 


( ilx 


giobals- 


->nHelpContext ) 


ffdef ine 


ILXGL 


nHelpOpen 


( ilx" 


giobals- 


->nHelpOpen ) 


ffde fine 


ILXGL 


szHelpFile 


{ ilx" 


globa Is- 


->szHelpFile) 


ffdef ine 


XT XT /— ' T 

ILXGL 


bWRHelp 


( ilx* 


_globals- 


->bVWRHelp) 


ffdef ine 


X T VJ T 

ILXGL 


hFi leList 


( ilx" 


giobals- 


->hFileList } 


ffdef me 


ILXGL 


_nFileList 


( ilx" 


giobals- 


->nFileList ) 


ff ae tine 


I LXGL 


DConnect ed 


( ilx" 


giobals- 


->bConnected ) 


ff de t ine 


1 LXGL 


DKamCa rd 


( ilx" 


_globals- 


->bRamCard) 


& ae t ine 


T T V/™* T 

I LXGL 


Duocument 


( ilx" 


giobals- 


->bDocument ) 


ffderine 


X T W /"^ T 

ILXGL 


nCommDLL 


( ilx" 


globals- 


->hCommDLL) 


ff de t ine 


I LXGL 


nhngi neULL 


( ilx" 


globals- 


->hEngineDLL) 


ffde t me 


I LXGL 


nSou rceDLL 


( ilx" 


globals- 


->hSourceDLL) 


ffder me 


ILXGL_ 


_nTargetDLL 


( ilx" 


globals- 


->hTargetDLL) 


ff ae l me 


1 Li AG Li 


ntomro r r_ 


( ilx" 


globa Is- 


->nComPort ) 


ff de t me 


I LXGL 


nWi ndow 


( ilx" 


globals- 


->hWindow) 


ffae 1 1 ne 


t r Yr*T 

1 LiAVjLi 


nnapinii n 


( ilx" 


globals- 


->hMapWin) 


ff ae l ine 


1 LiAGL 


nLinewm 


( ilx" 


globals- 


->hLineWin ) 


ff cj y L i. n G 


TT YHT ~ 

1 Li AO Li 


ninsLance 


( ilx" 


globa Is- 


->hlnstance ) 


ffueiine 


T T vr,T ~ 


noessxonx u 


( ilx" 


globals- 


*>hSessionID) 


tt o ^ l »—i 

tfue t ine 


T T Y^T 
X LiAuLt 


x UaLcKdnyeoLd r l 


( ilx" 


globals- 


->lDateRangeStart ) 


ffue Line 


TT YfIT 
X Li Aw Li 


iUa LcndnycLnu 


( ilx" 


globals- 


->lDateRangeEnd) 


ff ae l l ne 


t t yc:t 

X LiAOLi 


n o y n enronize 


( ilx" 


globals- 


->nSynchronize ) 


ff u e l i n e 


t t yc;t 

X bAwb 


riAia loill ror 


( ilx" 


globals- 


->nXlatorError ) 


ff d e fine 


I LXGL~ 


nSvs f pmR r ro r 


( ilx" 


globals- 


->nSystemError ) 


ffdef ine 


ILXGL~ 


cbProgress 


( ilx" 


globals- 


->cbProgress ) 


§def ine 


ILXGL* 


uTimerlnterval 


[ ilx" 


globals- 


->uTimer Interval } 


f)def ine 


ILXGL 


_bCa nee 1 Request 


[ ilx" 


globals- 


->bCa nee 1 Request ) 


ffdef ine 


ILXGL" 


nXlateDataErrs 


[ ilx" 


globa ls- 


->nXlateDataErrs ) 


ffdef ine 


ILXGL 


h.ProgWin 


[ ilx 


globals- 


->hProgWin) 


ffdef ine 


ILXGL 


lTotalRecords 


[ ilx 


globals- 


•>lTotalRecords ) 


ffdef ine 


ILXGL 


bStayConnected 


[ ilx 


globals- 


->bStayConnected ) 


ffdef ine 


ILXGL 


nConnectedType 


[ ilx 


globals- 


->nConnectedType ) 


ffdef ine 


ILXGL" 


pSourceXt r a Data \ 


[ ilx 


globals- 


'>pSourceXtraData ) 


ffdef ine 


ILXGL - 


pTargetXtraData 


[_ilx] 


globals- 


->pTargetXtraData ) 


ffdef ine 


ilxgl" 


bUseTable 1 


[ ilx 


globa ls- 


■>bUseTable) 


ffdef ine 


ILXGL 


Flags 1 


[ ilx 


globa ls- 


■>Flags ) 


ffdef ine 


ILXGL" 


hSrcAppSession 1 


r _ilx_ 


globals- 


■>hSrcAppSession ) 
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ffde fine 


T T Vi"! 

I LXGL 


_hT a r AppS e s s i o n 


(_i lx 


_globals 


->hTarAppSession) 


ffdef me 


ILXGL_ 


_nOtnerSrcDLL 


(_iix 


_globals 


->hOtherSrcDLL) 


ffde t l ne 


T t vr T 


nutnerTaruLL 


1 1 ix 


_globals 


->hOtherTarDLL) 


»def ine 


ilxgl" 


"bSrcWhatFields 


{ ilx" 


_globals 


->bSrcWhatFields) 


ffdefine 


ilxgl" 


"bTarWhatFields 


( ilx" 


_globals 


->bTarWhatFields ) 


ffdef ine 


ilxgl" 


~OKTP_Threshold 


( ilx' 


_globals 


->OKTP_Threshold) 


ffdef ine 


ilxgl" 


"hDialogFont 


( ilx* 


_globals 


->hDialogFont ) 


ffdef ine 


ilxgl" 


[hExt 


( ilx" 


_globals 


->hExt ) 


»def ine 


ilxgl" 


"pExt 


( ilx" 


_globals 


->pExt) 


ffdef ine 


ilxgl" 


version 


( ilx" 


globals 


->version ) 



* Access macros for EXTENDED ILX GLOBALS structure members. 



ffdefine ILXGL szUserDir 



(_ilx_globals->pExt->szUserDir ) 



/ 



/ 



Macros 



/ 



#define ILX_ENGINE_CHECK( ) \ 

if ( ILXGL_engineState == ILX_STATE_DOWN) \ 
return ILX ERR DOWN; 



/ 



General function prototypes 



void IL_DECL ILX_ClearValues 

{ ILTR_PTRANSL tr ) ; 
int IL_DECL ILX_DisconnectFromHandheld 

( ILX_PGLOBALS _ilx_globals ); 
int IL_DECL ILX_EndDri ver 
{ ILTR_PTRANSL tr, 
int nRc ) ; 
void IL_DECL ILX_FieldName 

( ILX_PFIELD pFldName, 
IL_PSTR pOutName, 
int nOutName ) ; 
void IL_DECL ILX_FreeFieldLists 

( ILTR_PTRANSL tr ) ; 
int IL_DECL ILX_GetAppClass 

( ILX_PGLOBALS _ilx_globals, 
ILX_HAPP hApp, 
ILTB_CLASS *pnSysClass ); 
ILX_PIM IL_DECL ILX_GetCapable 

( ILTB_PSYSREC pRec ); 
int IL_DECL ILX_InitDriver 
{ ILTR_PTRANSL tr ) ; 
ILX_BOOL IL_DECL ILX_IsCapable 
( ILX_PIM nCapable, 
ILTB_SEC nType ) ; 
void IL_DECL ILX_KillStatusMeter 

( ILX_PGLOBALS _ilx_globals ); 
int IL_DECL I LX_LoadCommDLL 

{ ILX_PGLOBALS _i lx_globa Is , 
ILTB_TYPE SysType, 
ILTB_CLASS SysClass, 
int nComPort, 
BOOL16 bConnect ) ; 
int IL_DECL ILX_LoadFieldLists 
( ILTR_PTRANSL tr, 

ILTB_PHNDL phTable ); 
int IL_DECL ILX_LoadTranslator 

( ILX_PGLOBALS _ilx_globals, 
ILTR_PTRANSL tr, 
IL_PSTR pExeFile ) ; 
int IL_DECL ILX_MapILTRErrorCode 

( int nError ) ; 
int IL_DECL ILX_PutLogHeader 

( ILX_PGLOBALS _ilx_globals, 
ILX_ACTION nAction, 
ILX_OPTION nReconcile, 
IL_HFILE IL_DIST *hFile ); 
int IL_DECL I LX_RemoveCommDLL 

{ ILX_PGLOBALS _ilx_globals ); 
int IL DECL ILX RetrieveFieldList 



// Clear certain values from TR 

// Pointer to TR structure 

// Disconnect from handheld 

// Pointer to global data 

// Terminate translator driver 

// Pointer to translation data 

// Return code from translator 

// Format field name for display 

// Pointer to field name 

// Pointer to output field name 

// Size of output field buffer 

// Free ILTR field list tables 

// Pointer to translation record 

// Get system class based on ID 

// Pointer to global data 

// Handle for system 

// Pointer to return value 

// Get system capabilities 

// Pointer to system record 

// Start up translator driver 

// Pointer to translation data 

// Is section type supported? 

// System capabilities 

//' Section type 

// Destroy status dialog 

// Pointer to global data 

// Load communicat ion DLL 

// Pointer to global data 

// System type 

// System class 

// Communication port 

// Initiate connection as well? 

// Load field list/mapping info 

// Ptr to translation structure 

// Ptr to ITB open file handle 

// Call xlator to import or export 

// Pointer to global data 

// Pointer to translation record 

// Appl . executable file name 

// Convert ILTR to ILX error code 

// ILTR error code to convert 

// Write header info to log 

// Pointer to global data 

// Import or export action 

// Reconciliation option 

// Pointer to map file handle 

// Remove communication DLL 

// Pointer to global data 

// Retrieve field list 
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( ILTB_PHNDL phFile, 
ILTB_ID nListID, 
IL_HAN DLE *phFields, 
ILPINT pnFields ); 
int IL_DECL ILX_RetrieveFieldMap 

( ILX_PGLOBALS _ilx_globals, 
ILTB_PHNDC phTable, 
ILTB_ID nMapID, 
ILTB_ID *pnSrcList, 
ILTB_ID *pnTarList, 
I L_HAN DLE *hMap, 
ILTB_PMAP *pMap ) ; 
void IL_DECL ILX_ResetCurrent Di r 

{ ILX_PGLOBALS _ilx_globals ); 
void IL_DECL ILX_SetCurrentDir 

( ILX_PGLOBALS _ilx_globals ); 
int IL_DECL I LX_ShowStatusMeter 
( ILTR_PTRANSL tr, 

ILX_PGLOBALS _ilx_globais ); 
void IL_DECL ILX_Sort Field 

( INT16 ILJ3IST +nTop, 
int ndx, 

ILX_PFIELD pField, 
ILTR_SORT_ORDER nOrder ); 
int IL_DECL ILX_StartApp 
( IL_PSTR pExeFile, 
IL_PSTR pAppName, 
int nExeFile, 
IL_HWIN hParentWnd, 
IL_HINST hParentlnst, 
UINT +hModule ) ; 
int IL_DECL ILXJTellTIFAboutFields 

( ILTR_PTRANSL tr ) ; 
int ILX_ValidateSource 

{ ILTB_PSYSREC pRec, 
IL_PSTR pFileName ); 
int ILX_VaiidateTarget 

( ILTB_PSYSREC pRec, 
IL_PSTR pFileName ) ; 
int ILX_Verif yFileName 

( ILTB_PSYSREC pRec, 
IL_PSTR pFileName }; 
ILX_BOOL IL_DECL ILX_Veri f yFieldMap 
{ ILX_PGLOBALS _ilx_globals, 
ILX_BOOL +bMapOK ); 



// Pointer to table handle 

// Field list ID 

// Pointer to field list handle 

// Pointer to number of fields 

// Get field map from table 

// Pointer to global data 

// Pointer to table handle 

// Map ID 

// Pointer to source list ID 

// Pointer to target list ID 

// Pointer to field map handle 

// Pointer to field map 

// Reset working directory 

// Pointer to global data 

// Set working directory 

// Pointer to global data 

// Show status dialog 

// Pointer to translation data 

// Pointer to global data 

// Perform logical sort on field 

// Pointer to top index 

// Index of current field 

// Pointer to field record 

// Logical sort order 

// Load Windows application 

// Pointer to executable file name 

// Pointer to system name 

// Size of executable file name 

// Window handle 

// Instance handle 

// Module handle 

// Load field names into TIF 

// Pointer to translation record 

// Validate source file name 

// Pointer to base system record 

// Pointer to file name 

// Validate target file name 

// Pointer to base system record 

// Pointer to file name 

// Validate DOS file name 

// Pointer to base system record 

// Pointer to file name 

// Validate field lists and map 

// Pointer to global data 

// Pointer to valid flag 



/ 



* Routines for loading/unloading/calling a 



translator DLL or Code resource. 
v 

// Load translator (.FIL) module 

// Ptr to engine directory name 

// Xlator name from system table 

// Ptr to translator "handle" 

// Unload/ release external xlator 

// Ptr to translator "handle" 

// Setup and call ILWhatFields 

// Ptr to data file name 

// Ptr to prior field list handle 

// Ptr to prior field count 

// Ptr to ilx globals 

// Ptr to system record 

// Ptr to translators xtra data 

// Get ptr to translator function 

// Ptr to translator "handle" 

// Ptr to function name 



int IL_DECL ILX_LoadXlator 

{ IL_PSTR pDirName, 
IL_PSTR pXlatorName, 
I L_PHXLATOR phXlator ); 
void I L_DECL ILX_UnloadXlator 

( IL_PHXLATOR phXlator ); 
int IL_DECL ILX_CallWhatFields 

( IL_PSTR pszAppFile, 
IL_LPHANDLE phFldList, 
ILPINT pnFldCount, 
ILX_PGLOBALS _ilx_globals , 
ILTB_PSYSREC pSystemRec, 
IL_PANY pXtraData J; 

FAR PROC IL_DECL ILX_GetXlateProc 
( IL_PHXLATOR phXlator, 
IL PSTR pProcName ) ; 



/ 



* Windows callback routines. 
* 



/ 



ffifdef ILWIN 



BOOL I L_DECL EXP ILX_DlgFieldMap 
( HWND hDlg, 
UINT nMessage, 
WPARAM wParam, 



/ / Show field mapping dialog 

// Window handle 

// Windows message ID 

// First parameter 
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LP ARAM lParam ); 
BOOL IL_DECL EXP ILX_DlgProgress 
( HWND hDlg, 
UINT nMessage, 
WPARAM wParam, 
LPARAM 1 Pa ram ) ; 

#endif // ILWIN 

// Special handling for C+ + code 

ffifdef cplusplus 

} 

If end if // cplusplus 

#endif // ILXAPI 



// Second parameter 

// Show progress dialog 

// Window handle 

// Windows message ID 

// First parameter 

// Second parameter 
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+ 

+ 
+ 



Name: LOADFLDS.C 

Purpose: Functions to load and initialize Field Lists, Field Mapping, 
Character Mapping info and SST (Section SubType) lists, 
from TABLES. ITB into the tr structure. 

Functions: ILX_LoadFieldLists — Initial load of field info from TABLES. ITB 
ILX_FreeFieldLists — Final deallocation of field information 
ILX_TellTIFAbout Fields — Load source/target fields names to TIF 

Internal: Get FieldLists Loads and initializes field list info. 

FieldListSanityCheck does a sanity check 

LoadCharMap Loads a specific Character Mapping table 

GetSSTList Gets List of Section SubTypes 

TweakSST Decides SST Behavior for current engine run 

HasOneTaggedField — Find TAGGED Field in field list 

PseudoMapTaggedField - Set MapField==ILX_UNMAPPED_BUT_TAGGED 

Bob Daley, Copyright (c) IntelliLink, 1995 

ILX_LoadFieldLists is called ONCE from XLATE . C or XLATEW.C for 
a full Import, Export, or SyncPort cycle. ILX_LoadFieldLists is 
called BEFORE any calls are made to any specific translator. 
ILExport and ILImport make use of the table information left in 
the tr structure by ILX_LoadFieldLists, so that we don't need to 
re-initialize this information from TABLES. ITB for each import 
or Export operation involved in the cycle. ILX_FreeFieldLists 
is called once at the conclusion of the cycle to clean up. 

ILX_LoadFieldLists may also be called from ILX16. When this is 

the case, the source and target system may be reversed, as ILX16 

may be operating in ILTR_PHASE10 or ILTR_PHASE4 0 . 
+ / 



Author : 



Notes : 



ff include "i lxapi . h M 

// Internal functions 

static 



int IL 


DECL GetFieldLists 


// 


Load field list /mapping information 


( 


ILTR PTRANSL tr, 


// 


Pointer to translation structure 




ILTB_PHNDL phTable, 


// 


Pointer to ITB open file handle 




ILTB_ID nSourceSystem, 


// 


Original source system ID 




ILTB_ID nTargetSystem, 


// 


Original target system ID 




ILTB_ID nSourceSection, 


// 


Original source section ID 




ILTB_ID nTargetSection ); 


// 


Original target section ID 


static 








int IL 


DECL FieldListSanityCheck 






( 


ILTR FLDPTR List, 
INT16 Count ) ; 






static 








int IL 


DECL GetSSTList 


// 


Get list of Section SubTypes 


( 


ILTR PTRANSL tr, 


// 


Pointer to translation structure 




ILTB PHNDL phTable, 


// 


Pointer to ITB open file handle 




ILTB_I D sysid, 


// 


ID of system 




ILTB ID secid, 


// 


ID of current section 




BYTE IL DIST *pCurrentSST, 


// 


where to squirrel away current SST 




ILTR_PSSTLIST pList ); 


// 


Ptr to List structure to be filled in 


static 








int IL 


DECL LoadCharMap 


// 


Load specified CharMap table 


( 


ILTB PHNDL phTable, 


// 


Pointer to ITB open file handle 




ILTB ID nCharMapID, 


// 


ITB character map table ID 




ILTR PBUFFER pCharBuff ) ; 


// 


Pointer to CharMap buffer 



static 

int TweakSST { ILTR_PTRANSL tr, BYTE SourceSST, BYTE TargetSST); 



static 

int HasOneTaggedField 

( ILTR_PTRANSL tr, 
ILTR_FLDPTR List, 
ILTR_NDX Toplndex 

static 

int PseudoMapTaggedField 
{ ILTR FLDPTR List, 



) ; 



// Find TAGGED field in field list 

// Pointer to translation structure 

// Ptr to field list 

// Starting point for scan of field list 

// Set MapField==I LX_UNMAPPED_BUT_TAGGED 

// Ptr to field list 
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ILTR NDX Toplndex ) ; 



// Starting point for scan of field list 



Name : 



Purpose : 



* 

* 



Called by: 



Input : 



Return 



ILX_LoadFieldLists 

LoSci and initialize all field list, field mapping, character 
mapping, and SST (Section SubType) lists into the tr structure 
prior to translation. 

ilx_v3/xlate. c/doTranslate 
ilwin/xlatew.c/ DoTranslate 
ilxl6/ilxl6. cpp/ReloadTablelnfo 



tr 

phTable - 



- Pointer to translation structure 

- Pointer to open TABLES . ITB file. 



SUCCESS or ILTR error code 



7 



int IL_DECL 
{ ILTR 
ILTB 

{ 

int 

BOOLEAN 

ILTR_FIELD 

ILTR_FLDPTR 

ILTR_PFLDMAP 

ILTB^ID 

ILTB_ID 

ILTB_I D 

ILTB_ID 

BYTE 

BYTE 



ILX_LoadFieldLists 
_PTRANSL tr, 
_PHNDL phTable ) 

nRc; 

bRepeat ~ FALSE; 
sExtra Field; 
pS, pT; 
pFields; 
nSourceSystem; 
nTarget System; 
nSourceSection; 
nTarget Sect ion ; 
SourceSST; 
TargetSST; 



// Load field list/mapping information 
// Pointer to translation structure 
// Pointer to ITB open file handle 



// Fuction 

// TRUE if 

// Template 

// Pointers 

// Pointer 

// Original 

// Original 

// Original 

// Original 

// Original 

// Original 



return code 

repeat fields need to be added 

for "extra" (hidden) fields 

to source/target field entries 
to ILTR field map structure 

source system 

target system 

source section 

target section 

source sect ion subtype 

target section subtype 



// Complain if running under a stone age app or engine (xlate.c) build 

if (ILTR_VERSION_IS_PRIOR_TO (14} ) 

return ILERROR ( ILTR version, ILTR ERR STONE AGE APP); 



* If the current translation phase is PhaselO or Phase40 then the source 

* and target systems have already been reversed. This can happen when we 

* are called from ILX16. When the source and target are reversed, we need 

* to determine the ORIGINAL source and target of this translation in order 

* to load the field 1 ists properly. 

+ _» + / 

if (ILTR_phase == ILTR_PHASE10 || ILTR_phase == ILTR_PHASE40) 
{ 

// Source and Target are reversed. Get the ORIGINAL source and target 



nSourceSystem 
nTargetSystem 
nSourceSection 
nTargetSection 



ILTR_nTargetID; 
ILTR_nSourceID; 
ILTR_nTarSection; 
ILTR nSrcSection; 



} 

else 
I 



// Source and Target not reversion. Use source and target from tr. 



nSourceSystem 
nTargetSystem 
nSourceSection 
nTa rget Sect ion 



ILTR_nSourceID; 
ILTR_nTargetID; 
ILTR_nSrcSection; 
ILTR nTarSection; 



} 



// Allocate space for the Field Map and Field List table information 

IL_ALLOC_MEM (sizeof ( ILTR_TABLEINFO) , ILTR_hTableInfo, ILTR_pTableInf o ) ; 
if (ILTR_pTableInfo == NULL) 

return ILERROR (sizeof ( ILTRJTABLEINFO) , ILTR_ERR_NOMEM ) ; 

IL_MEMSET ( ILTR_pTableInfo, 0, sizeof ( ILTR_TABLEINFO) ) ; 

// Save the ORGININAL source/target system ID*s. 

ILTR_pTableInfo->nOriginalSourceID = nSourceSystem; 
ILTR_pTableInfo->nOriginalTargetID = nTargetSystem; 
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// Increase count to accommodate _appData and _subType fields 

ILTR_pTableInfo->nExtraFields +« ILTR_EXTRA_FIELDS_ALWAYS; 

// Add extra fields to field count for repeat information fields 

if { ILTR_nFunction == ILTR_APPT | ( 

I LTR_n Function ILTR_TODO I I 

ILTR_nFunction == ILTR_CALL ) 

( 

ILTR_pTableInfo->nExtraFields += ILTR_EXTRA_FIELDS_FOR_REPEAT; 
bRepeat = TRUE; 

} 

// Load and initialize field lists structures from TABLES . ITB file 

nRc = Get FieldLists ( tr, phTable, nSourceSystem, nTa rgetSystem, 

nSourceSect ion, nTargetSection ); 

if (nRc) 

return nRc; 



// Build List of Source SSTs (Section SubTypes) 

nRc = GetSSTList ( tr, phTable, 

nSourceSystem, 

nSourceSect ion, 

&SourceSST, 

&ILTR_pTableInfo->sOriginalSourceSSTList ) ; 

if (nRc) 

return nRc; 



// Build List of Target SSTs (Section SubTypes) 

nRc = GetSSTList ( tr, phTable, 

nTa rgetSystem, 

nTargetSection, 

STargetSST, 

&ILTR_pTableInfo->sOriginalTargetSSTList ) ; 

if (nRc) 

return nRc; 



/ + 

* If SST isn't already disabled, decide how SST shall behave for the 

* current engine run. The decision is based on ILTR_Flags and 

* Source & Target Section SubTypes and existence and mapped/unmapped 

* status of Source & Target TAGGED Fields. Unmapped Tagged fields may 

* be tweaked to appea r pseudo-mapped i f pseudo-mapping is not prohibited . 

* V 

if ( ( ILTR_Flags & ILTR_DISABLE_SST_TAGGING) == 0) 
{ 

nRc = TweakSST (tr, SourceSST, TargetSST); 
if (nRc) 

return nRc; 

} 



// Establish pointer to ILTR_FLDMAP structure 

pFields = &ILTR_pTableInfo->sFieldMap; 

// Establish field list "template" for all "extra" (hidden) fields 

sExt ra Field . ItemNo = 1; 

sExtra Field. Type = (char) I LX_T Y PE_BINARY ; 

sExtraField. Width = 0; 

sExtraField.Term = ILX_TERM_EOS; 

sExtraField. Att ribs = ILTB_ATT_HIDDEN_FIELD I ILTB_ATT_NO_RECONCILE; 
/* 

* All of the standard hidden fields (appData & Repeat basic+excl) 

* are implicitly "mapped" in the sense that the data in these fields 

* is carried across from Source to Target. But in field info structure 

* we mark these fields with 1 ILX_UNMAPPED' because we don't need a 

* field number to keep track of the implicit mapping . 

+ + / 

sExtraField. MapField = ILXJJNMAPPED; 

sExtraField . Assoc = 0; 

sExtraField. Index = -1; 

sExtraField. NextField = -1; 

sExtraField . PriorField = -1; 

sExtraField. Label[0] = * \0 * ; 

sExtraField. TypeDescfO] = '\0 f ; 

sExtraField. IntName[0] = *\0'; 
IL STRCPY (sExtraField. ExtName, "-"); 
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// G et pointer to first extra field list item (after last "real" item) 

pS = &pFields->pSource [pFields->nSource] ; 
pT = ApFields->pTarget(pFields->nTargetl ; 

// Add the extra field for application data ("_appData") to source list 

IL_STRCPY {sExtraField. IntName, I LT R_A P P_ DATA ) ; 
*pS++ = sExtraField; 
*pT++ = sExtraField; 

// Add repeat fields only if we've establised these fields are needed 

if (bRepeat) 
{ 

// A dd the "basic" repeat field ( "_repBasic" ) to source list 

IL_STRCPY {sExtraField. IntName, ILTR_REP_BASIC) ; 
*pS+ + = sExtraField; 
*pT++ = sExtraField; 

// Add tne "Exclusion List" repeat field ("_repExcl") to source list 

IL_STRCPY (sExtraField. IntName, ILTR_REP_XDATE ) ; 
*pS++ « sExtraField; 
+ pT+ + = sExtraField; 



// Add tne ex tra field for SST ("_subType") to source list 

IL_STRCPY (sExtraField. IntName, ILTR_SUB_TYPE } ; 
sExtraField. Type = (char) ILX_TYPE_NUMBER; 

sExtraField. Attribs = I LTB_ATT_HI DDEN_FIELD | ILTB ATT KEY FIELD; 

*pS++ = sExtraField; 
*pT++ = sExtraField; 

// Load the character mapping tables 

nRc = LoadCharMap ( phTable, ILTR_nSourceExportCharMapID, 

&ILTR_pTableInfo->sSourceExportCharMap ) ; 

if (nRc) 

return ILTR_ERR_NOCHARMAP; 

nRc = LoadCharMap ( phTable, ILTR_nSourceImportCharMapID, 

&ILTR_pTableInfo->sSourceImportCharMap ) ; 

if (nRc) 

return ILTR_ERR_NOCHARMAP; 

nRc = LoadCharMap .( phTable, ILTR_nTargetExportCharMapID, 

&ILTR_pTableInfo->sTargetExportCharMap ) ; 

if (nRc) 

return ILTR_ERR_NOCHARMAP; 

nRc = LoadCharMap ( phTable, ILTR_nTargetImportCharMapID, 

&ILTR_pTableInfo->sTargetImportCharMap ) ; 

if (nRc) 

return ILTR_ERR_NOCHARMAP; 

// All done. Return success 

return SUCCESS; 



} 



/ + 

* Name: ILX_FreeFieldLists 

+ Purpose: Free the field list and CharMap information allocated by 

* ILX_LoadFieldLists 

* Input: tr Pointer to translation structure 

* Return : void 

* v 

void IL_DECL ILX_FreeFieldLists // Free ILTR field list/mapping information 

{ ILTR_PTRANSL tr ) // Pointer to translation structure 

{ 

// Ignore the call if there is nothing to be freed 

if (ILTR_VERSION_IS_PRIOR_TO (14) II ILTR_pTableInfo == NULL) 
return; 



// Free the source and target field lists 

if ( ILTR_pTableInfo->sFieldMap. pSource) 

IL_FREE_AND_2ERO ( ILTR_pTableInfo->sFieldMap. hSource, 
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ILTR_pTableInfo->sFieldMap. pSource ) ; 
if { ILTR_pTableInfo->sFieldMap.pTarget ) 

IL_FREE_AND_ZERO ( ILTR_pTableInf o->sFieldMap . hTa rget , 

ILTR_pTableInfo->sFieldMap.pTarget ) ; 

// Free the Export and Import Character Maps 

if ( ILTR_pTablSInfo->sSourceExportCharMap. buffer) 

I L_ FRE E_AN D_Z E RO ( ILTR_pTabieInf o->sSourceExportCharMap . handle, 

ILTR_pTableInfo->sSourceExportCharMap. buf f er ) 
if ( ILTR_pTableInfo->sSourceImportCharMap. buffer) 

IL_FREE_AND_ZERO { ILTR_pTableInfo->sSourceImportCharMap. handle, 

ILTR_pTableInfo->sSourceImportCharMap. buffer ) 
if ( ILTR_pTableInfo->sTargetExportCharMap. buf fer ) 

IL_FREE_AND_ZERO ( ILTR_pTableInfo->sTargetExportCha rMap. handle, 

ILTR_pTableInfo->sTargetExportCharMap. buffer ) 
if ( I LTR_pTabl el nfo->sTa rget Import Cha rMap. buffer) 

I L_ FRE E_AN D_Z E RO ( ILTR_pTableInf o->sTargetImportCharMap . handle, 

ILTR_pTableInfo->sTargetImportCharMap. buffer ) 

// Finally, free the table information structure 

IL FREE AND ZERO (ILTR hTablelnfo, ILTR pTablelnfo); 



/* 

+ Name: ILX_TellTI FAbout Fields 

* Purpose: Load either the source or target field names into TIF, 

* Input: tr Pointer to translation structure 

* phTable — Pointer to open TABLES. ITB file. 

* Return: SUCCESS or ILTR error code 



int IL DECL ILX Tel 1TI FAbout Fields // 



( ILTR_PTRANSL tr } // 

{ 

#ifdef ILTI F_IN_ENGINE 

ILTR_NDX i; // 

int nRc; // 

ILTR_NDX nList; // 

ILTR FLDPTR pList; // 



V 

Load source/target field names into TIF 
Pointer to translation structure 



Loop/index variable 
Fuction return code 

Number of source/target fields in list 
Pointer to source or target field list 



// set up field lists for current ILTR_nSource/ILTR_nTarget settings 

nRc = ILSetupTables (tr); 
if (nRc) 

return nRc; 

// Get pointer and field count for export or import translator 

if (ILTR_phase == ILTR_PHASE05 ) 
{ 

// Use field list of exporting translator 

nList = ILTR_pTableInfo->sFieldMap. nSource; 
pList = ILTR_pTableInfo->sFieldMap.pSource; 

} 

else 
{ 

// Use field list of importing translator 

nList - ILTR_pTableInfo->sFieldMap. nTarget; 
pList = ILTR_pTableInfo->sFieldMap.pTarget; 

} 

// Add the number of special extra fields to the field count 

nList += ILTR_pTableInfo->nExtraFields; 

// T ell TIF about all "top level" fields 

for (i =0; i < nList; ++i) 
{ 

// Skip any sub-fields 

if (pList [i] .ItemNo != 1) 
continue; 

// Provide TIF field descriptor 

nRc = ILTIFDef FieldN (tr, i, 0); 
if (nRc != SUCCESS) 
return nRc; 
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) 

/*-- 

* When finished telling TIF about Target Fields {which is always 

* done after telling TIF about Source Fields), tell TIF that we're 

* entirely done telling it about fields. This causes TIF to 

* analyze all "the field info, which may well lead to detection 

* of a fatal error condition. . . 

* V 

if (ILTR_phase « ILTR_PHASE10 ) 
{ 

nRc = ILTIFStartNextPhase(tr, TI F_PHASE_DONE_SETTING_THINGS_UP) ; 
if (nRc != SUCCESS) 
return nRc; 

} 

// Fields successfully defined to TIF. Free the field list tables 

ILFreeTables (tr ) ; 

tfendif // ILTIF_IN_ENGINE 

// All done. 

return SUCCESS; 

} 



/ 



+ 

+ 
+ 

+ 

+ 

*■ 



Name : 
Purpose 

Caller: 
Input : 



Return : 
Note : 



GetFieldLists 

Load and initialize field list and field mapping information 
into the tr structure prior to translation. 

ILX_LoadFieldLists 

tr Pointer to translation structure 

phTable Pointer to open TABLES. ITB file. 

nSourceSystem Original source system ID 

nTargetSystem Original target system ID 

nSourceSection — Original source section ID 

nTargetSection -- Original target section ID 

SUCCESS or ILTR error code 

Code adapted from ILFldLoadMap by Mike Blanchette (LOADMAP.C) . 



/ 



static 

int IL_DECL GetFieldLists 
( ILTR_PTRANSL tr, 
ILTB_PHNDL phTable, 
ILTB_I D nSourceSystem, 
ILTB_ID nTargetSystem, 
ILTB_ID nSourceSection, 
ILTB_ID nTargetSection 

{ 



) 



// Load field list/mapping information 

// Pointer to translation structure 

// Pointer to ITB open file handle 

// Original source system ID 

// Original target system ID 

// Original source section ID 

// Original target section ID 



ILTR_NDX 


i; 


// 


Loop variable 






int 


error = SUCCESS; 


// 


Return code 






int 


f ieldCount; 


// 


Field count 






int 


len ; 


// 


Record length 






int 


memSi ze ; 


// 


Memory size 






int 


ndx; 


- // 


Field index 






int 


rc - SUCCESS; 


// 


Return code 






ILTB ID 


sourceFldID; 


// 


field list ID of source 


list in 


file 


ILTB ID 


targetFldID; 


// 


field list ID of target 


list in 


file 


IL HANDLE 


hMap; 


// 


Handle to field map 






IL HANDLE 


hSource; 


//- 


Handle to source field 


list 




IL HANDLE 


hTarget; 


// 


Handle to target field 


list 




ILTB PMAP 


pMap « NULL; 


// 


Pointer to map record 






ILTR PFLDMAP 


pFields; 


// 


Pointer to ILTR field map structure 


ILTB PFLDLST 


pSource = NULL; 


// 


Pointer to source field 


list 




ILTB PFLDLST 


pTarget = NULL; 


// 


Pointer to target field 


list 





// Establish pointer to ILTR Table info copy of ILTR_FLDMAP structure 

pFields = &ILTRj?TableInfo->sFieldMap; 



// 



Initialize variables. 
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pFields 


->nSource 


= pFields 


->nTarget 


- 0; 


pFields 


->ShowSource 


= pFields 


->ShowTarget 


= -1; 


pFields 


->TopSource 


= pFields 


->TopTarget 


= -1; 


pFields 


->ApptDate 


= -1; 






pFields 


->pSource 


= pFields- 


->pTarget 


= NULL; 


pFields- 


->nMapStatus 


- 0; 






pFields- 


->sName rO] 


= 1 \0 1 ; 







* Find a suitable field map ID in ITB tables file if no Map ID is 

* specified in the translation structure. 



if ( ! ILTR_nMapID) 
{ 

if ( ! (ILTR_nMapID = ILTBFindMapID ( phTable, 

nSourceSystem, nSourceSection, 
nTargetSystem, nTargetSection, 
&ILTR reversed ) ) ) 

{ 

error = ILERROR (0, ILTR_ERR_NOMAP) ; 
goto errorExit; 

} 

} 

// Now obtain the map record length. 

len = ILTBGetMapRecLen (phTable, ILTR_nMapID) ; 

if (! len) 

{ 

error = ILERROR (0, ILTR_ERR_BADMAP) ; 
goto errorExit; 

I 

// Allocate sufficient memory to load map record in memory. 

I L_ALLOC_MEM {len, hMap, pMap); 

if {pMap == NULL) 

{ 

error = ILERROR (len, ILTR_ERR_NOMEM ) ; 
goto errorExit; 

} 

// Read the map record. 

if (ILTBGetMapRec (phTable, ILTR nMapID, NULL, pMap, len)) 
{ 

error = ILERROR (0, ILTR_ERR_BADMAP) ; 
goto errorExit; 

} 

// Check if systems are reversed in this field map. 

if ( ILTBGetFldAppID (phTable, pMap->sourceList ) == nSourceSystem) 

ILTR_reversed = FALSE; 
else 

ILTR_reversed = TRUE; 

// Note the map name and number of mapped fields. 

IL_STRCPY (pFields->sName, pMap->name) ; 

fieldCount = ILTBGet FldFieldNum (phTable, pMap->sourceList ) ; 

// s et tne source anc | target field list ID's based on order. 

if ( ILTR_reversed) 
{ 

sourceFldID = pMap->targetList; 
targetFldID = pMap->sourceList ; 

} 

else 
{ 

sourceFldID = pMap->sourceList ; 
targetFldID = pMap->targetList ; 

} 

// Determine the size of the field list. 

len = ILTBGetFldRecLen (phTable, sourceFldID); 

if (! len) 

{ 

error = ILERROR (0, ILTR_ERR_BADMAP) ; 
goto errorExit; 
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} 

// Allocate memory required to hold all source fields 

IL_ALLOC_MEM (len, hSource, pSource); 

if (pSource == NULL) 

( 

error = ILERROR (len, ILTR_ERR_NOMEM) ; 
goto errorExit; 

) 

// Now read the field list into memory. 

if ( ILTBGetFldRec (phTable, sourceFldID, pSource, len) ) 
{ 

error = ILERROR {0, ILTR_ERR_BADMAP) ; 
goto errorExit; 

} 

// Post the field associations in the source fields. 

for (i =0; i < fieldCount; i++) 
{ 

if ((ndx = pMap->map!ndex|i] ) != ILX UNMAPPED) 



{ 



i f ( ILTR_reversed ) 

pSource->f ield [ndx] .maplndex = i; 
else pSource->f ield [ i ]. maplndex = ndx; 



/ 



* Now allocate memory for the source list in a format that will actually 

* be used by the translators. Also allocate room for "extra" fields. 


pFields->nSource = pSource->f ieldNum; 
memSize = sizeof (ILTR_FIELD) * 

(pFields->nSource + ILTR_pTableInfo->nExt ra Fields ) ; 
IL_ALLOC_MEM ( memSize, pFields->hSource, pFields->pSource ) ; 
if (pFields->pSource == NULL) 
{ 

error = ILERROR (memSize, ILTR_ERR_NOMEM) ; 
goto errorExit; 



7 



} 

IL_MEMSET (pFields->pSource, 0, memSize); 



// Process all source fields 

for (i = 0; i < pFields->nSource 
{ 



i++) 



Copy all fields from input record to output buffer. 

= pSource->f ield [ i ] . itemNo; 

(char) pSource->f ield [ i ) .type; 



// 

pFields->pSource [ i 
pFields->pSource [ i 
pFields->pSource [ i 
pFields->pSource { i 
pFields->pSource { i 
pFields->pSource [ i 
pFields->pSource [ i 
pFields->pSource [ i 
pFields->pSource [ i 



. ItemNo 
.Type 
.Width . 
.Term 
. Att ribs 
.MapField 
. Assoc 
. Index 
. Next Field 
. PriorField 



pFields->pSource [ i 
IL_STRCPY (pFields->pSource [i] 
I L_STRCPY ( pFields->pSource { i ] 
IL_STRCPY ( pFields->pSou rce [ i ] 
IL_STRCPY (pFields->pSource [ i ] 



= pSource->f ield [ i 
= pSource->f ield ( i 
= pSource->f ield [ i 
= pSource- >f ield [ i 
= pSource->f ield [ i 
= -1; 
= -1; 
= -1; 
. IntName, 
. ExtName, 
. Label , 
. TypeDesc, 



.width; 
. del imit ; 
. att ribs ; 
. maplndex ; 
. assoc; 



pSource ->f ield [ i ] . label ) ; 
pSource-> field [ i ] . name ) ; 
pSource->f ield [ i 1 .prefix) ; 
pSource->f ield ( i ] . typeDesc ) ; 



> 



// Locate insertion point and post next/prior field indexes. 

ILFldlnsert ( &pFields->TopSource, i, pFields->pSource ) ; 



// Do a quick sanity-check of the source field list 

rc = FieldListSanityCheck (pFields->pSource, pFields->nSource ) ; 
if (rc != SUCCESS) 

{ 

error = ILERROR (rc, I LTR_ERR_BADMAP ) ; 
goto errorExit; 

} 



Free the source list record. 
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if ( pSource ) 
{ 

IL_FREE_MEM (hSource, pSource); 
pSource = NULL; 

) 

// Determine the size of the target field list. 

len = ILTBGet FldRecLen (phTable, targetFldID); 
if (! len) 

{ 

error = ILTR_ERR_BADMAP; 
goto errorExit; 

} 

// Allocate memory required to hold all target field descriptors. 

I L_ALLOC_MEM {len, hTarget, pTarget); 

if (pTarget == NULL) 

( 

error = ILTR_ERR_NOMEM; 
goto errorExit; 

> 



// Now read target field list into memory. 

if ( I LTBGet FldRec (phTable, targetFldID, pTarget, len)} 
{ 

error « ILTR_ERR_BADMAP; 
goto errorExit; 

} 



// Post the field associations in the target fields 

for (i = 0; i < fieldCount; i++) 
{ 

if {(ndx = pMap->map!ndex[i] ) != ILXJJNMAPPED) 



{ 



if ( ILTR_reversed ) 

pTarget->f ield [ i ] . maplndex = ndx; 
else pTarget->f ield [ ndx ]. maplndex = i; 



/ 



Now allocate memory for the target list in a format that will actually 
be used by the translators. Also allocate room for "extra" fields. 



pFields->nTarget = pTarget->f ieldNum; 
memSize = sizeof { ILTR_FIELD) * 

(pFields->nTarget + ILTR_pTableInfo->nExtraFields ) ; 
I L_ALLOC_MEM {memSize, pFields->hTarget, pFields->pTarget ) ; 
if (pFields->pTarget == NULL) 
{ 

error = ILTR_ERR_NOMEM; 
goto errorExit; 



/ 



} 

IL_MEMSET {pFields->pTarget, 0, memSize); 

// Process all source fields. 

for (i = 0; i < pFields->nTarget; i++) 
{ 



Copy all fields from 



pFields->pTarget [ i 
p Fi elds ->pTar get [ i 
pFields->pTarget [ i 
pFields->pTarget [i 
pFields->pTarget [i 
pFields->pTarget [ i 
pFields->pTarget [i 
pFields->pTarget [i 
pFields->pTarget [ i 
pFields->pTarget [ i 
IL_STRCPY 
IL STRCPY 



. ItemNo 
.Type 
.Width 
.Term 
.Attribs 
.MapField 
.Assoc 
. Index 
.NextField 
. Prior Field 



input record to output buffer. 
- pTarget->f ield { i ] . itemNo; 

(char) pTarget->field(i] .type; 



pTarget->f ield [i 

pTarget->field[i 

pTarget->f ield [ i 

pTarget->f ield [ i 

pTarget->f ield [i 

-1; 

-1; 



. width; 
. del imi t ; 
.attribs ; 
. maplndex; 
. assoc; 



IL 
I L 



-1; 

(pFields->pTarget { i] . IntName, pTa rget->f ield [ i ] . label ) ; 
(pFields->pTarget [ i J .ExtName, pTarget->f ield [ i ] .name) ; 



STRCPY (pFields->pTarget [i] .Label, pTarget->f ield [ i ] .prefix) ; 
STRCPY {pFields->pTarget [i] .TypeDesc, pTa rget->f ield { i ) .typeDesc) 



Locate insertion . point and post next /prior field indexes . 
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ILFldlnsert UpFields->TopTarget, i, pFields->pTa rget ) ; 



// Do a quick sanity-check of the target field list 

rc = FieldListSanityCheck ( pFi elds->pTa rget , pFields->nTa rget ) ; 

if (rc != SUCCESS) 

{ 

error = ILERROR (rc, ILTR_ERR_BADMAP) ; 
goto errorExit; 

} 

errorExit : 

// Free dynamic memory before leaving. 

if (pMap) 

IL_FREE_MEM (hMap, pMap); 
if (pSource) 

IL_FREE_MEM (hSource, pSource); 
if (pTarget) 

IL_FREE_MEM (hTarget, pTarget); 

// Return with error code (default == SUCCESS) . 

return (error ? error : rc); 

) // GetFieldLists 



/* 

* Name: FieldListSanityCheck — called from GetFieldLists 

+ 

+ 

static 

int IL_DECL FieldListSanityCheck (ILTR FLDPTR List, INT16 Count) 
{ 

INT16 PrevItemNo = -99; 
INT16 ThisItemNo; 
INT16 i; 

for (i - 0; i < Count; i++) 
{ 

ThisItemNo = List [ i ]. ItemNo; 

if (List [i] .Attribs & ILTB_ATT COMBINED) 

{ 

// All combined fields must have ItemNo==l 

if (ThisItemNo == 1) 

PrevItemNo = 1; 
else 

return ILERROR ((int) i, ILTR ERR BADMAP); 
} " " 

// A regular (NOT combined) field with ItemNo==l is OK anywhere, 

// but let's make sure it isn't followed by a field with ItemNo <> 1 

else if (ThisItemNo == 1) 
PrevItemNo = -99; 

// if ItemNo is NOT 1, demand a smooth upward succession of Item Nums 

else if (ThisItemNo == PrevItemNo + 1) 
PrevItemNo = ThisItemNo; 

// Else complain about out-of-sequence itemNo. . . 

else 

return ILERROR ((int) i, ILTR ERR BADMAP); 

} 

return SUCCESS; 
) // FieldListSanityCheck 



/* 

* Name : LoadCharMap 

* Purpose: Load requested character mapping table if one is specified and 

* provided. Otherwise, load the default character mapping table. 

* Caller: ILX LoadFieldLists 
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. +■ 



+ 

* Input : phTable — Pointer to ITB open file handle 

* CharMap — Character map ID 

* pBuffer — Pointer to ILTR_BUFFER structure to hold CharMap 

* Return: SUCCESS, FAILURE, or ILTB error code 

* Author: Bob Daley, Copyright (c) IntelliLink, 1995 

+ „___■__________. _ 

static 

int IL_DECL LoadCharMap // Load specified CharMap table 

( ILTB_PHNDL phTable, // Pointer to ITB open file handle 

ILTB_ID nCharMapID, // ITB character map table ID 

ILTR_PBUFFER pCharBuff ) // Pointer to CharMap buffer 

{ 

int i; // Temporary loop/index variable 

int iRc; // Function return code 

int nMemSize; // Number of bytes to be allocated 

IL_HANDLE hCharMap; // Handle for CharMap record buffer 

ILTB_PCHARMAPREC pCharMap « NULL; // Pointer to CharMap record buffer 

// Allocate memory for character mapping table. 

nMemSize = ILTB_CHARMAP_CHARS * sizeof (char); 

I L_ALLOC_MEM (nMemSize, pCharBuf f->handle, pCharBuf f->buf fer ) ; 
if (pCharBuf f->buf fer == NULL) 
return ILTR_ERR_NOMEM; 

// Initialize null CharMap table in case no CharMap provided. 

for (i = 0; i < ILTB_CHARMAP_CHARS; i++) 
pCharBuf f->buf fer [i] = i; 

// If no CharMap ID provided, simply return success. 

if (nCharMapID — 0) 
return SUCCESS; 

// Make sure we have a valid CharMap ID. 

if (! ILTBIsCharMapRec (phTable, nCharMapID)) 
{ 

// Simply ignore error if this ITB file doesn't support CharMaps. 

iRc - ILTBLastError (phTable); 
if (iRc == ILTB_ERR_VERSION) 
return SUCCESS; 

// Not an "ITB file version" issue. We have a bad CharMap ID. 

return ILTR_ERR_NOCHARMAP; 

} 

// Get the record length for this CharMap ID. 

nMemSize = ILTBGetCharMapRecLen (phTable, nCharMapID); 
if (nMemSize == 0) 

return ILTR_ERR_MAPFILE; 

// Allocate memory for the FULL CharMap record. 

IL_ALLOC_MEM (nMemSize, hCharMap, pCharMap); 
if (pCharMap == NULL) 

return ILTR_ERR_NOMEM; 

// Read in the complete CharMap record. 

iRc = ILTBGetCharMapRec (phTable, nCharMapID, pCharMap, nMemSize); 

if (iRc) 

{ 

iRc = I LTR_ERR_NOCHARMAP; 
goto CleanUpAndReturn; 

} 

// Initialize the Character Mapping table from the CharMap record data 

for (i = 0; i < I LTB_CHARMAP_CHARS ; i++) 

pCharBuf f->buf fer [ i ] = pCha rMap->cChars [ i ] ; 

/ / All done, indicate successful completion . 

iRc = SUCCESS; 

// Clean up and return status. 

CleanUpAndReturn : 
if (pCharMap) 

IL_FREE_MEM (hCharMap, pCharMap}; 
return iRc; 
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} 



/ 



Name: GetSSTList 



Purpose: Build list of all SSTs (Section SubType), for the specified 
system, for the current Section Type { ILTR_nFunct ion ) . 



* Caller: ILX_LoadFieldLists 
+ 

* Return: SUCCESS or ILTR error code 
■*■ 

* Author: David Boothby, Copyright (c) IntelliLink, 1996 
+ 

static 

int IL_DECL GetSSTList ( ILTR_PTRANSL tr, 

ILTB_PHNDL phTable, 

ILTB_ID sysid, 

ILTB_ID secid, 

BYTE IL_DIST *pCurrentSST, 

ILTR_PSSTLIST pList ) 

{ 

ILTB_SEC SectionType = ILTR_nFunction; 
int rc; 
int nLen; 
int i; 

IL_HANDLE hSysRec = IL_NULL_HANDLE; // Handle to system record 
ILTB_PSYSREC pSysRec = NULL; // Pointer to system record 

// initialize count of subtypes 

pList->sstCount = 0; 



7 



// Get size of complete system record 

nLen = I LTBGetSysRecLen (phTable, sysid); 
if ( ! nLen ) 

return ILERROR (nLen, I LTR_ERR_ILTB_ERROR ) ; 

// Allocate buffer to read system record into 

IL_ALLOC_MEM (nLen, hSysRec, pSysRec); 
if (pSysRec == NULL) 

return ILTR_ERR_NOMEM; 

// Read complete system record 

rc - ILTBGetSysRec (phTable, sysid, pSysRec, nLen); 

if (rc != ILTB_OK) 

{ 

IL_FREE_MEM (hSysRec, pSysRec) ; 

return ILERROR ( rc, ILTR_ERR_I LTB_ERROR ) ; 

} 

/ / Find the desired section in system record 

for (i ~ 0; i < pSysRec->SectionCount ; i++) 
{ 

// Is this one of the desired sections? 

if (pSysRec->Section ( i ]. SectionType SectionType) 
I 

// Make sure section is active 

if ( ! (pSysRec->Section [ i ] . Sect ionAtt rib & ILTB_ATT_ACTIVE ) ) 
continue; 



// Copy SubType of current section 

if (pSysRec->Sect ion [ i ]. Sect ionID == secid) 

*pCurrentSST = (BYTE) pSysRec->Section [ i ] . SectionSubType; 

// skip if list is already FULL. Could complain here! ! 

if (pList->sstCount >= ILTR_MAX_SST_COUNT ) 
continue ; 



// Add this section's subtype to the SST List 

pList->sstList [pList->sstCount++] = 

(BYTE). pSysRec->Section [i ] .SectionSubType; 
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IL_FREE_MEM (hSysRec, pSysRec) ; 
return SUCCESS; 

} 



/ + 

* Name: TweakSST 
+ 

* Purpose: Decide how SST shall behave for the current engine run 
+ 

* Caller: ILX LoadFieldLists 



* Method: Make sure that all pre-requisites are met for applying the 

* SST mechanism. If not, turn it off. If any tagged fields 

* are unmapped, and if pseudo-mapping isn't prohibited, then 

* tweak the in-memory field map to make such fields be 

* pseudo-mapped . 



+ 



Pseudo-mapped fields have MapField==ILX_UNMAPPED_BUT_TAGGED. 
Almost all IntelliLink modules are duped into believing that 
pseudo-mapped fields are truly MAPPED. But TIF and 
the ILTR/f ldget . c/ILFldGetEx function are wiser. 



* Return: SUCCESS or ILTR error code 
* 

* Author: David Boothby, Copyright (c) IntelliLink, 1996 
* 

static 

int TweakSST ( ILTR_PTRANSL tr, BYTE SourceSST, BYTE TargetSST) 
{ 

ILTR_PFLDMAP pFields = &ILTR_pTableInfo->sFieldMap; 
int sHas - FALSE; 
int tHas - FALSE; 
int nRc; 

// Verify that at least one Section SubType (Source or Target) is MAIN. 

if { (SourceSST != ILX_SUBSECT_MAIN ) 

&& (TargetSST ILX_SUBSECT_MAIN ) ) 

{ 

// Neither Source nor Target is MAIN; turn off SST 

ILTR_Flags |= ( ILTR_DISABLE_SST_TAGGING | ILTR_DISABLE_SST_FILTERING) ; 
return SUCCESS; 

} 

// Make sure Source Field List has a Tagged Field if it needs one 

if (SourceSST == ILX_SUBSECT_MAIN } 
{ 

// Check for Tagged Field; make sure it's mapped if required 

sHas = HasOneTaggedField (tr, pFields->pSource, pFields->TopSource ) ; 

if (sHas == FALSE) 

{ 

// Source lacks required [mapped] tagged field; turn off SST 

ILTR_Flags |= { ILTR_DISABLE_SST_TAGGING I I LTR_DISABLE_SST_FILTERING ) ; 
return SUCCESS; 

} 

else if (sHas != TRUE && sHas != I LTR_ERR_NOT MAPPED) 
return sHas; // abnormal error 

} 

// Make sure Target Field List has a Tagged Field if it needs one 

if (TargetSST == ILX_SUBSECT_MAIN ) 
{ 

// Check for Tagged Field; make sure it's mapped if required 

tHas = HasOneTaggedField (tr, pFields->pTa rget , pFields->TopTarget ) ; 

if (tHas == FALSE) 

{ 

// Target lacks required [mapped) tagged field; turn off SST 

ILTR_Flags |= ( ILTR_DISABLE_SST_TAGGING | ILTR_DISABLE_SST_FILTERING ) ; 
return SUCCESS; 

1 

else if (tHas != TRUE && tHas != I LTR_ERR_NOT MAPPED) 
return tHas; // abnormal error 

} 

// If Source needs pseudo-mapping, do it now 
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if (sHas == I LTR_ERR_NOT MAPPED) 
{ 

nRc - PseudoMapTaggedField (pFields->pSource, pFields->TopSource ) ; 
if (nRc != SUCCESS) 
return nRc; 

) 

// if Target needs pseudo-mapping, do it now 

if (tHas I LTR_ERR_NOT MAPPED) 
{ 

nRc = PseudoMapTaggedField (pFields->pTarget, pFields->TopTarget ) ; 
if (nRc != SUCCESS) 
return nRc; 

} 

// All set. SST mechanism is enabled and ready to run. 

return SUCCESS; 

) 



/* 

* Name: HasOneTaggedField 



Purpose: Scan field list looking for TAGGED fields. There should be 

either zero or one of them. Complain if there are more than 1 
Also complain if a sub-item is TAGGED. The TAGGED attribute 
should only be applied to top-level fields. 

Check whether tagged field is mapped or not and decide outcome 

* based on that and on whether pseudo-mapping is allowed or not. 
* 

* Caller: TweakSST 



+ 



+ 



Return: TRUE if one mapped tagged field is found 

FALSE if no tagged fields are found or if tagged field 

is unmapped and pseudo-mapping is prohibited 
I LTR_ERR_NOT MAPPED if pseudo-mapping is allowed and 

one unmapped tagged field is found 

* ILTR_ERR_TOO_MANY_TAGGED if more than one tagged field is found 
+ ILTR_ERR_SUB_ITEM_TAGGED if a tagged sub-item is found. 

* Author: David Boothby, Copyright (c) IntelliLink, 1996 

— — — + 1 

static 

int HasOneTaggedField ( ILTR_PTRANSL tr, ILTR_FLDPTR List, ILTR NDX Toplndex) 
{ 

ILTR_NDX cur = Toplndex; // Index to current field 

ILTR_NDX taggedField = -1; // Index to tagged field, when found 

// Find ALL tagged fields in list (there shouldn't be more than one) 

while (cur ! - -1) 

{ 

if ( List [curj . Attribs & I LTB_ATT_TAGGE D ) 
{ 

if (taggedField != -1) 

// Found more than one tagged field. That's bad. 

return ILTR_ERR_TOO_MANY_TAGGED; 

if (List [cur] . ItemNo == 1) 

// Found FIRST tagged field. Remember it. 

taggedField = cur; 
else 

// Found a tagged field that isn't a top-level field! 

return I LT R_E R R_S U B_ I T EM_T AGGE D ; 

} 

cur = List [cur] .NextField; 

} 

if (taggedField == -1) 

// Didn't find any tagged fields. 

return FALSE; 

if (List[taggedField] .MapField != ILXJJNMAPPED) 

// Top-level tagged field is mapped. 

return TRUE; 
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// Check to see if any sub-items of tagged field are mapped 

cur = List (taggedField ]. Next Field; 

while (cur != -1 } 

{ 

if ( List [cur] . ItemNo 1) 

/* r 

* ItemNo~l means that we've stepped beyond the last sub-item of 

* the tagged field; look no further for mapped sub-items. 



break; 



if {List [cur] .MapField != ILXJJNMAPPED} 

// Tagged field has a mapped sub-item. That's good enough! 

return TRUE; 



cur - List [ cur ]. Next Field; 

} 



// Tagged field is UNMAPPED. Is that OK? 

if ( ILTR_Flags & ILTR_DISABLE_SST_I F_UNMAPPED) 

// Pseudo-mapping prohibited, so an unmapped tagged field has same 

// affect on SST operation as would absolute lack of a tagged field 

return FALSE; 

else 

// Pseudo-mapping allowed; indicate that it is needed! 

return ILTR ERR NOTMAPPED; 



/* 



+ 

*■ 



Name : 
Purpose 

Caller : 
NOTE: 



Return 
Author 



PseudoMapTagged Field 

Find and pseudo-map the first TAGGED field in a given field list 
by changing its MapField setting to ILX_UNMAPPED_BUT_TAGGED. 

TweakSST 

Caller is responsible for verifying that the first TAGGED field 
in the field list is UNMAPPED before calling this function. 

It isn't sensible to have more than one TAGGED field in a 
Field List, but we don't check for that aberration here. 

SUCCESS or ILTR error code 



David Boothby, Copyright (c) IntelliLink, 1996 



static 

int PseudoMapTaggedField (ILTR_FLDPTR List, I LTR_NDX Toplndex) 
{ 



/ 



ILTR NDX cur = Toplndex; 



// Index to current field in List 



// scan Field List until we succeed or hit end of list 

while ( cur ! - -1 ) 
{ 

if (List [cur] .Attribs & I LTB_ATT_TAGGED) 
{ 

// found TAGGED field; psuedo-map it. 

List [cur] .MapField = ILX JJNMAPPED_BUT_TAGGED; 
return SUCCESS; 

} 



cur = List [cur ]. Next Field; 



// bad news: hit end of list 

return ILERROR (-1, ILTR_ERR_INTERNAL_ERROR) ; 

} 
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/* 

* Name: XLATE.C 

* Purpose: Perform complete translation operation 

* Author: Mike Blanchette, Copyright (c) IntelliLink, 1994 
* 

* Entrypoints : ILX_dTranslate and ILX_dTranslateEx 

* ~~ 

* Local Functions : 

* GetReady 

* LoadComml f Needed 

* CheckOrShowFieldMap 

* Set_ILTR_Members 

* Set_trFlags 

* StartLogFile 

* Init Progress Display 

* Per formTranslations 

* SetPhaseParams 

* MapTIFReturnCode 

ILX_ILTI FInit 

* ILX_ILTIFClose 

* ILX_ILTIFSyncInit 

* ILX_ILTIFSyncFinishUpAndClose 

* ILX_ILTIFStartNextPhase 

Tel lTIFAbout Fields 

* ILX_ILTIFCloseFileInitially 

* I LX_I LT I FReope n Fi 1 e 

* doTranslate v 

* Choose_V3_V4_Or_Sync 

* SyncFromScratchI f Files AreNew 

* do_Phase05_Setup 

* do_PhaselO_ExportFromTarget 

* Label Progress Bars 

* do_Phase20_ExportFromSource 
+ do_Phase30_ImportIntoTarget 

* do_Phase4 0_Import IntoSource 

* do_SyncFinishUp 

* Get Remote Input File 

* Pre FetchTarget File 

* FindTempFile 

* RemoveTa rgetFileJustOnce 

* FlHookProc 

* KillFlHookProc 

* MakeFlHookProc 

* Notes: 

* This file contains the core routines necessary to perform 

* a full translation operation. The translator modules must 

* have been loaded before the call to ILX_dTranslate. 

+ v 

^include "ilxapi.h" // Main API header 

// Global variables 

#ifdef ILWIN 

// Windows only variables 

unsigned long _nHelpContext ; // Help context number 

char _szHelpFile[ILTB_MAX_PATH) ; // Help file name 

ILX_BOOL _bVWRHelp; // Use Viewer Help? 

HHOOK hHook=0; // Handle to Hook 



// Windows only "hook" 

LRESULT CALLBACK FlHookProc 
( int nCode, 
WPARAM wParam, 
LP ARAM lParam ) ; 
static void KillFlHookProc 

{ void ) ; 
static int MakeFlHookProc 
{ HINSTANCE hlnst ) ; 

Ifendif // ILWIN 



// Message hook 

// Input event 

// Unused 

// Address of MSG structure 

/ / Remove Fl Hook 

// Unused 

// Create Fl Hook 

// Instance handle 



// Handheld temp files 
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static char szTempRemoteSource [MAX_PATHJ ; 
static char szTempRemoteTarget [MAX_PATH1 ; 

// Local symbolic constants 

tfdefine MAX FILE PREFIX 3 



// Macros 

#define CHECK FOR SHARP WIZARD ( nClass , n) 



{ 



} 



if (nClass == ILTB_CLASS_WIZARD) 
n = ILX ERR COM SHARP; 



\ 
\ 
\ 
\ 



ffdefine EXIT WITH ERROR ( n } { nRc = n; goto Exit; } 



// Function prototypes for local routines 

static int GetReady 

( ILX_PGLOBALS _ilx_globals, 

ILX_PRECS prz, 

ILTR_PTRANSL tr, 

ILX_OPTION nOption ); 

#ifdef ILWIN 

static int LoadCommlf Needed 

( ILX_PGLOBALS _ilx_globals, 
ILX_PRECS prz, 
ILTR_PTRANSL tr ) ; 

ffendif 

static int CheckOrShowFieldMap 

( ILX_PGLOBALS _ilx_globals, 
ILX_PRECS prz, 
ILX_ID nMapId, 
ILX_BOOL bShowMap ); 

static int Set_ILTR_Members 

( ILX_PGLOBALS _ilx_globals, 
ILX_PRECS prz, 
ILTR_PTRANSL tr ) ; 

static UINT32 Set_trFlags 

( ILX_PGLOBALS _ilx_globals, 
ILX_PRECS prz ) ; 

static int StartLogFile 

{ ILX_PGLOBALS _ilx_globals, 
ILTR_PTRANSL tr, 
IL_PSTR pLogName ); 

ffifdef ILWIN 

static int Init ProgressDisplay 
{ ILX_PGLOBALS _i lx_globals , 
I LTR_PTRANSL tr ); 

#endif 

static int Per formTranslat ions 

( ILX_PGLOBALS _ilx_globals, 
ILX_PRECS prz, 
ILTR_PTRANSL tr, 
UINT32 trFlags, 
int EnvAttribs ); 



static int Set PhaseParams 

( ILX_PGLOBALS _i lx_globa Is , 
ILX_PRECS prz, 
ILTR_PTRANSL tr, 
int Envi ronmentAtt ribs , 
char phase ) ; 

static int doTranslate 

( ILX_PGLOBALS _ilx_globals, 
ILX_PRECS prz, 
ILTR_PTRANSL tr, 
UINT32 trFlags, 



// Set ILTR params for current phase 

// Global data 

// ptr to set of ptrs to system records 

// Translation structure 

// Environmental System Attributes 

// one of the ILTR__PHASEnn #defines 

// Perform Import and Export pair 

// Global data 

// ptr to set of ptrs to system records 

// Translation structure 

// initial value for ILTR Flags 
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int EnvAttribs ); // Environmental System Attributes 



static int Choose_V3_V4_Or_Sync 
{ ILX_PRECS prz, 
ILTR_PTRANSL tr ); 

static void SyncFromScratchlf FilesAreNew 
( ILX_PGLOBALS _ilx_globals, 
ILX_PRECS prz, 
ILTR_PTRANSL tr ) ; 

static int do_Phase05_Setup 

( ILX_PGLOBALS _ilx_globals, 
ILX_PRECS prz, 
ILTR_PTRANSL tr, 
int EnvAttribs ) ; 

static int do_PhaselO_ExportFromTarget 
{ ILX_PGLOBALS _ilx_globals, 
ILX_PRECS prz, 
ILTR_PTRANSL tr, 
int EnvAttribs } ; 



Uifdef ILWIN 
#ifndef WIN32 

static void LabelProgressBars 
( ILX_PGLOBALS _ilx_globals, 
ILTR_PTRANSL tr, 
IL_PSTR szSourceFile, 
IL_PSTR szTargetFile, 
ILTB_ACC nSourceAccessType, 
ILTB_ACC nTargetAccessType ); 

#endif 
#endif 



// Global data 

// Translation structure 

// Pointer to Target sysrec 



// Global data 

// Translation structure 

// Pointer to Target sysrec 

// Remote File Name 

// Is this source or target? 

// Locate temporary file name 

// Global data 

// Original file name 

/ / Returned file name 

// Does file already exist? 

// one of the ILX PUT XXX #defines 



static int do_Phase20_Export FromSource 
{ ILX_PGLOBALS _ilx_globals, 
ILX_PRECS prz, 
ILTR_PTRANSL tr, 
int EnvAttribs ); 

static int do_Phase30_Import IntoTarget 
( ILX_PGLOBALS _ilx_globals, 
ILX_PRECS prz, 
ILTR_PTRANSL tr, 
int EnvAttribs J ; 

static int do_Phase4 O_lmport IntoSource 
{ ILX_PGLOBALS _ilx_globals, 
ILX_PRECS prz, 
ILTR_PTRANSL tr, 
int EnvAttribs ); 

static int do_SyncFinishUp 
{ ILTR_PTRANSL tr }; 

static int PreFetchTarget File 

( ILX_PGLOBALS _ilx_globals, 
I LTR_PTRANSL tr, 
ILTB_PSYSREC pTarSys }; 

static int GetRemotelnput File 

( ILX_PGLOBALS _ilx_globals, 
ILTR_PTRANSL tr, 
ILTB_PSYSREC pSys, 
IL_PSTR szRemoteFileName, 
int nPutWhere ) ; 

static int FindTempFile 

( ILX_PGLOBALS _ilx_globals, 
IL_PSTR lpOriginal, 
IL_PSTR lpTemp, 
ILX_BOOL *bExist, 
INT16 nPutWhere ) ; 
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static int RemoveTarget FileJustOnce 

( ILX_PGLOBALS _ilx_globals, // Global data 

ILTR_PTRANSL tr ); // Translation structure 

/* = 

* Name: ILX_dTranslate 

* Purpose: Perform complete translation operation 

* Parameters: 

* _ilx_globals - Pointer to global data 

* nOption - Reconciliation option 

* pLogFile - Pointer to log file name 

* bMapFields - Show Field Mapping dialog box? 

* Returns: ILX_OK or error code 

* V/ 

int IL_DECL ILX_dTranslate ( ILX_PGLOBALS _ilx_globals, 

ILX_OPTION nOption, 
IL_PSTR pLogName, 
ILX_BOOL bShowMap ) 

{ 

// Call extended function without a field map ID 

return ( ILX_dTranslateEx {_i lx_globals, 0, nOption, pLogName, bShowMap)}; 

} 

/* 

* Name: ILX_dTranslateEx 

* Purpose: Perform complete translation operation 

* Parameters : 

+ _i lx_globals - Pointer to globa 1 data 

* nMapID - Map ID or zero for default map 

* nOption - Reconciliation option 

* pLogFile - Pointer to log file name 

* bMapFields - Show Field Mapping dialog box? 

* Returns: ILX_OK or error code 

+ _ _ * I 

int IL_DECL ILX_dTranslateEx ( ILX_PGLOBALS _ilx_globals, 

ILX_ID nMapId, 
ILX_0PTI0N nOption, 
IL_PSTR pLogName, 
ILX_BOOL bShowMap } 

{ 

int nRc; 

char szLoc[ILTB_MAX_PATH] ; // Application location 

ILTR_TRANSL trs; // Translation information 

ILTR_PTRANSL tr = &trs; // pointer to trs 

ILX_RECS rz; // set of ptrs to system records 

ILX_PRECS prz - &rz; // ptr to set of ptrs to system records 

UINT32 tr Flags; // translation flags for doTranslate 

int EnvAttribs ; // Environmental System Attributes 

// do sanity checking and lay the groundwork 

nRc => GetReady (_ilx_globals, prz, tr, nOption); 
if (nRc != SUCCESS ) 
goto Exit; 

#ifdef ILWIN 

// load the ILCOMM DLL if necessary 

nRc = LoadCommlf Needed (_i lx_globals , prz, tr ) ; 
if (nRc != SUCCESS) 
goto Exit; 

ffendif 

// Check or Show Field Map 

nRc = CheckOrShowFieldMap (_ilx_globals, prz, nMapId, bShowMap); 
if (nRc SUCCESS) 
goto Exit; 



* Figure out what Environment Attribute bits, if any, we'll 

* need to OR into the ILTR_nAttribs at each stage of translation. 

* */ 

switch ( ILXGL_nEnvi ron } 
{ 

case ILX ENV WINPAD: EnvAttribs = ILTB ATT WINPAD; break; 
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case I LX_ENV_AC HATES : 
case ILX_ENV_LITE: 

case ILX_ENV_MAGICXCHANGE: EnvAttribs = I LTB_ATT_LITE; break; 

case I LX_ENV_NORMAL : EnvAttribs = 0; break; 

default: // unknown environment type 

nRc = ILERROR ( ILXGL_nEnvi ron, ILX_ERR_INTERNAL) ; 
goto Exit; 

} 

// Set "tr" attribs (w/o source/target system attribs for now) 

ILTR_nAttribs = EnvAttribs; 

// Set fieldmap ID in "tr" structure 

ILTR_nMapID = nMapId; 

// Copy various parameters into the "tr" structure 

nRc = Set_ILTR_Members (_ilx_globals, prz, tr); 
if (nRc != SUCCESS) 
goto Exit; 

// Set the "trFlags" variable (which eventually becomes ILTR_Flags) 

trFlags = Set_trFlags (_ilx_globals, prz); ~ 

// Create or append to logfile, if logging is enabled 

nRc = StartLogFile (_ilx_globals, tr, pLogName); 
if (nRc != SUCCESS) 
goto Exit; 

// Initialize driver for translation 

nRc = ILX_InitDriver (tr); 
if (nRc != SUCCESS) 
goto Exit; 

ffifdef ILWIN 

// Set up status meter that will be used to show progress 

nRc = InitProgressDisplay (_ilx_globals, tr) ; 
if {nRc != SUCCESS) 
goto Exit; 

ffendif 

// Make one or more calls to "doTranslate" 

nRc = PerformTranslations (_ilx_globals, prz, tr, trFlags, EnvAttribs) ; 

/* 

* Check to see if we need to update the application location fields 

* for either source or target system. If the user was prompted to 

* change the application location, we want to reflect the latest 

* location in the system record. If the location was changed, 

+ function ILX_LoadTranslator will have placed the changes in the 

* SrcLoc and TarLoc members of the ILX_RECS structure. 
* v 

if (nRc == ILX_OK) 
{ 

// Is there a source application location? 

if (IL_STRLEN ( prz->pSrcApp->AppLoc ) ) 
{ 

// Get the current source location value 

nRc = ILX_dReadTable ( _ilx_globals, 

prz->pSrcApp->SysID, 

ILXJTBL_APPLOC, 

( long * ) szLoc ) ; 

// Update it only if changed 

if (nRc == ILX_0K && IL_STRCOMP (szLoc, pr z->pSrcApp->AppLoc ) ) 
{ 

nRc = ILX_dUpdateTable ( _ilx_globals, 

prz->pSrcApp->SysID, 
ILX_TBL_APPLOC, 

(long) prz->pSrcApp->AppLoc ); 

} 

} 
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// Is there a target application location? 

if ( IL_STRLEN (prz->pTa rApp->AppLoc ) ) 
{ 

// Get the current target location value 

nRc = ILX_dReadTable ( _i lx_globals, 

prz->pTarApp->SysID, 

ILX_TBL_APPLOC, 

{ long * ) szLoc ) ; 

// Update it only if changed 

if (nRc == ILX_OK && IL_STRCOMP (szLoc f prz->pTarApp->AppLoc) ) 
{ 

nRc = ILX_dUpdateTable ( _ilx_globals f 

prz->pTarApp->SysI D, 
ILX_TBL_APPLOC, 

(long) prz->pTarApp->AppLoc ]; 

} 

} 

} 

Exit : 

ILX_EndDriver (tr, ILTR_rc ) ; 

ffifdef ILWIN 

KillFlHookProc {); 
ffendif 

if ( (nRc != SUCCESS) 

&& (nRc != ILX_ERR_CANCEL) 
&& (nRc != I L X_ E R R_N 0 DAT A ) ) 

{ 

/ + 

* Record error details in ILERR0RS.LOG. 

* Please do not remove or ffifdef this code. 

* */ 

ILERROR ( _ilx_globals->nSystemError, 

(int) (tr == NULL ? -1 : ILTR_phase) ); 
ILERROR ( ilx globals->nXlatorError, nRc); 



// Reset first translate flag so we create the progress bar only once 

ILXGL_bFirstXlate = FALSE; 

// Save and return status 

ILXGL_wrc = nRc; 
return nRc; 

} // ILX dTranslateEx 



/ 



GetReady (called from ILX dTranslateEx) 



7 



static int GetReady 

( ILX_PGLOBALS _ilx_globals, 
ILX_PRECS prz, 
ILTR_PTRANSL tr, 
ILX_OPTION nOption ) 



{ 



int nRc = SUCCESS; 
ILX_ACCESS nAccess; 
int tmp; 

ILX_BOOL bResetOption = FALSE; 

ffifdef ILWIN 

_hHook=0; 
# end if 



/ / Access type 

// Reset reconcile option? 



// Have no handle to Fl Hook yet 



/*■ 
+ 



Force global error code to indicate error until we successfully 

complete translation. This error code is used in END to determine 

whether we should proceed with remote data transfer to the handheld 

If any errors have occurred here, then data transfer will not occur 
v 
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ILXGL_wrc = ILX_NOTOK; 

// Clear the translation record 

IL_MEMSET (tr, '\0», sizeof < I LTRJTRANSL )) ; 

(f"TTT"vrf et ?? faU ^ °P eration to TRANSLATE unless called from MERGE 
if (ILXGL_action != ILX_ACT_MERGE ) r ° m MERGE 

ILXGL_action = I LX_ACT_T RAN S LAT E ; 

^"T77rrv^r ke SUre that session been activated 

ii I . ULXGL_engineState & ILX STATE ACTIVE) } 
return ILX_ERR_INACTIVE; ~ 

ifT^xr^h/"" ^ hat , source target applications have been set 

if ( !ILXGL_hSourceApp || IILXGL hTarqetApp) 
return ILX_ERR_APP; 

If^TLxr^hQ SUre c that source and target sections have been set 
if ( !ILXGL_hSourceSect || IILXGL hTargetSect) 
return ILX_ERR_SECTION; 

// Get pointer to system and section records 

^r^ P c rC c PP = ' ILTB _ p SYSREC) GlobalLock ( ILXGL hSourceAppRec i • 
P "r> P T rC f eC = ! ILTB - PSEC ^CJ GlobalLock (ILXGL-hSourceSectRecl- 
prz->pTarApp = ( ILTB_PSYSREC| GlobalLock ( ILXGL~hTargetAppRec? 
prz-> P TarSec = ( ILTB_PSECREC, GlobalLock (ILXGL>«;^ 

/ + 

* tulST fUe , name to the section code if this is a device 
that does not support files. 

4p 



* v 



nAccess = prz->pSrcSec->AccessType; 
if {nAccess == ILX_ACCESS_NONE ) 

IL_STRCPY (ILXGL_szSourceFilel, prz->pSrcSec->Code ) ; 



? X r r namS if USing DDE to communication with application 

else if (nAccess ILX_ACCESS_DDE ) application 

ILXGL_szSourceFilel [ 0] = , \0 I ; 
/* 

* Make sure that source file has been set when the access tvoe 

* is not set to DDE or NONE access type 
* v 

^ lf A f ILXGL ! ;^o X - AC ^f S T?nf && nACCeSS != ILX ACCESS NONE ) 
ir ( lLXGL_szSourceFilel [ 0 j == '\0M ~ ~~ 

return ILX_ERR FILES; 



/ 



I ftlr^ fUS namS t0 the section code ^ this is a device 
that does not support files. 

4* 



* v 



nAccess = prz-> P Ta rSec->AccessType; 
if (nAccess == ILX_ACCESS_NONE ) 

IL_STRCPY (ILXGL_szTargetFile, P rz->pTarSec->Code) ; 

LiZZ'V* ^ lear . the file name is using DDE to access application data 
else if (nAccess == ILX_ACCESS_DDE ) ^ on aata 

ILXGL_szTarget File [0] = 'XO'; 

* if^ot^t'tf ooE rg " et fUe has been set when the tVP. 

* -V 

lf ii^vrf ! = ILX - ACCESS _DDE « "Access != ILX ACCESS NONE) 
if ULXGL_szTargetFile[0] == '\0') ~ 
return ILX_ERR_FILES; 

if (ILXGL_nSynchronize == ILXTR SYNC NO) 

• //— as a DEMO-staging convenience, allow a back door way to 
// do synchronization y 

If P (tmp e < P i r Oo| ieInt( " ilWln "' " S y nchroni «", ILXTR_SYNC_NO); 
ILXGL_nSynchronize = ( ILXTR_SYNC_OPTION ) tmp; 
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// as a DEMO-staging convenience, allow INI file to override the 

// conflict resolution option specified by the calling app. 

tmp = GetProf ilelnt ( "ilwin", "ILCRoption", 100); 
if {tmp < 100) 

nOption = (ILX OPTION) tmp; 



// Validate the option setting 

if {ILXGL_nSynchronize == ILXTR_SYNC_NO) 
{ 



if 



} 

else 
( 

/ 



( nOption 
nOption 
nOption 
nOption 
nOption 
nOption 
nOption 
nOption 
nOption 



ILX_OPT_REPLACE 

ILX_OPT_IGNORE 

ILX_0PT_N0TIFY 

ILX_OPT_INSERT 

I LX_OPT_ACCE PT_1 

ILX_OPT_ACCEPT_2 

ILX_OPT_UPDATE 

ILX_OPT_DELETE 

ILX OPT NONE) 



&& 
&& 
&& 
&& 

&& 



return ILX ERR OPT; 



// weird hack for Intel 



Fix up CR option if it isn 
nization. You can get ADD 
ILX OPT INSERT {preferred)' 



' t speci f ied correctly for Synch ro- 
_ACROSS behavior either by speci f ying 
or ILX OPT UPDATE {tolerated). 



/ 



if {nOption == ILX_OPT_UPDATE) 
nOption = ILX OPT INSERT; 



// TIFSCRO ADD ACROSS 



if ( {nOption != ILX_OPT_IGNORE ) 
&& (nOption != I LX_0 PT_NOT I FY ) 
&& (nOption != ILX_OPT_INSERT ) 
&& (nOption != ILX_OPT_ACCEPT_l ) 
&& {nOption != ILX_OPT_ACCEPT_2 ) 
return ILX ERR OPT; 



// TIFSCRO_LEAVEJJNRESOLVED 

// TIFSCRO_NOTIFY 

// TIFSCRO_ADD_ACROSS 

// TIFSCRO_TARGET_WINS 

// TIFSCRO SOURCE WINS 



/ + 

* Override the supplied reconciliation option if the caller has 

* specified that system table options should be used and we are 

* NOT performing a synchronization operation. For synchronization 

* we ALWAYS use the caller's reconciliation option which is NOT 

* equivalent to the normal import/ export conflict settings. 
+ . 1 

if (ILXGL_bUseTable && ILXGL_nSynchronize =« ILXTR_SYNC_NO) 

nOption — prz->pTa rApp->Reconci leOpt ; 
else 
{ 

/* 

* Here we validate that the requested reconciliation option is 

* supported by the selected target system. This is to avoid 

v the problem of the caller always specifying the reconciliation 

+ option to NOTIFY, for example, without recognizing that not 

* all translators support this option. If the specified option 

* is not available with the selected target system, then we 

* revert the reconcile option that the default value in the 

* system record . 

+ * i 

switch ( nOption ) 
{ 

case ILX_OPT_REPLACE: 

break; 
case ILX_OPT_IGNORE: 

break; 
case ILX_OPT_NOTIFY: 

if ( ! {prz->pTarApp->SysAttrib & ILTB_ATT_NOTI FY ) ) 
bResetOption = TRUE; 

break; 
case ILX_OPT_INSERT: 

if ( ! (prz->pTarApp->SysAttrib & ILTB_ATT_INSERT } ) 
bResetOption = TRUE; 

break; 
case ILX OPT UPDATE: 
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if ( ! (prz->pTarApp->SysAttrib & ILTB_ATT_UPDATE ) ) 
bResetOption = TRUE; 

break; 
case ILX_OPT_MERGE: 

if ( ! {prz->pTarApp->SysAttrib & I LTB_ATT_MERGE ) ) 
bResetOption = TRUE; 

break;* 
case ILX_OPT_ACCEPT_l : 
case ILX_OPT_ACCEPT_2: 

break; 
case ILX_OPT_NONE: 

if { ! {prz->pTarApp->SysAttrib & ILTB_ATT_SHOWNONE) ) 
bResetOption = TRUE; 

break; 
case ILX_OPT_DELETE: 

break; 

} 

// Do we need to reset the reconcile option? 

if {bResetOption == TRUE) 
{ 

if {ILXGL_nSynchronize == ILXTR_SYNC_NO) 
nOption = prz->pTa rApp->Reconci leOpt ; 
else 

return ILX_ERR_OPT; 

} 



/* 

* Finally, if running in "silent mode", change Notify to Add. Silent mode 

* is intended for use by "remote" users who cannot respond to any dialogs. 



if (ILXGL_Flags & I LX_ FLAG_UN ATT EN DE D_MO DE && nOption ILX_OPT_NOTI FY ) 
nOption = ILX_OPT_INSERT; 

// Set the update option in the "tr" structure 

ILTR_nUpdOpt = nOption; 

// Turn off the option to stay connected if both systems are handhelds. 

if { prz->pSrcApp->SysType != ILTB_TYPE_APP && 
prz->pTarApp->SysType != ILTB_TYPE_APP ) 
ILXGL_bStayConnected = ILX_FALSE; 

// If building for Windows, prepare for WinHelp 

#ifdef ILWIN 

// Set Help context and file name 

_nHelpContext = ILXGL_nHelpOpen; 
_bVWRHelp = ILXGL_bVWRHelp; 

IL_STRCAT (IL_STRCPY {_szHelpFile, ILXGL_szDi r ) , IL_FILESEP_STR) ; 
IL_STRCAT (_szHelpFile, ILXGL_szHelpFile ) ; 

// Create Hook function to trap Fl key presses 

nRc = MakeFlHookProc { hDLLInstance ) ; 

#endif //ILWIN 

return nRc; 

} // GetReady 



// Skip over Comm. support if building for the Mac 

ffifdef ILWIN 

/* 

* LoadCommlf Needed (called from ILX_dTranslateEx ) 

+ + / 

static int LoadCommlf Needed 

( ILX_PGLOBALS _i lx_globals , 
ILX_PRECS prz, 
ILTR_PTRANSL tr ) 

{ 

int nRc = SUCCESS; 

ILX BOOL bLoadComm = FALSE; // Load communicat ion module? 
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int nComPort = 0; // System communication port 

ILTB_TYPE nSysType = 0; // System type 

ILTBJTYPE nSysClass = 0; // System class 

/*-- 

* Determine if we need to load communication module now. We always 

* load the "communication DLL if the source system is a handheld device. 

* We also load it if the target system is a handheld which supports 

* data reconciliation (requiring pre-fetching of data from handheld). 



if (prz->pSrcApp->SysType != ILTB_TYPE_APP) 
{ 

// Load communication module to connect with source system 

bLoadComm = TRUE; 

nSysType = prz->pSrcApp->SysType; 
nSysClass = prz->pSrcApp->SysClass; 
nComPort = prz->pSrcApp->ComPort ; 

} 

// Do we need to connect to target handheld? 

// (Note that Synchronization NEVER uses option==NONE ) 

else if ( (prz->pTarApp->SysType I LTB_TY PE_APP ) 
&& (ILTR_nUpdOpt != ILX_OPT_NONE ) ) 

< 

// Only handhelds having this attribute do reconciliation 

if (prz->pTarApp->SysAttrib & I LTB_ATT_SHOWNONE ) 
{ 

// Load communication module to connect with target system 

bLoadComm = TRUE; 

nSysType = prz->pTarApp->SysType; 
nSysClass = prz->pTarApp->SysClass; 
nComPort = prz->pTa rApp->ComPort ; 

) 

} 

/* 

* Load communication DLL only if necessary but only on the first 

* translation request. 

* + / 

if (bLoadComm) 

// Load communication DLL and initiate connection 

nRc = ILX_LoadCommDLL (_ilx_globals, nSysType, nSysClass, 

nComPort, TRUE); 

return nRc; 

} // LoadComml f Needed 

ffendif // ILWIN 



/ 



CheckOrShowFieldMap (called from ILX dTranslateEx ) 



/ 



static int CheckOrShowFieldMap 

( ILX_PGLOBALS _ilx_globals, 
ILX_PRECS prz, 
ILX_ID nMapId, 
ILX_BOOL bShowMap ) 



{ 



int nRc; 

ILX_ACCESS nAccess; 

ILX_BOOL bForceMap = ILX_FALSE; 

ILX_MAP nMapType; 



// Access type 

// Force field re-mapping? 

// Type of mapping request 



Source and target field lists 



int nSrcList = 0; 
int nTarList = 0; 
IL_HANDLE hSrcList 
IL HANDLE nTarList 



NULL; 
NULL; 



// Number of source fields 

// Number of target fields 

// Handle to source field list 

// Handle to target field list 



// Has the user asked to see list of fields? 

if ( IbShowMap) 
{ 
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/* 

* Is the ILTB_ATT_SEC_USESRC section attribute set? If so, this 

* affects the nature of the call to ILX_dGetFieldMapEx . When the 

* option is set, it indicates that the target translator should 

* always be called to construct its field list before proceeding 

* with translation. This option is used in conjunction with the 

* section attribute ILTB_ATT_ASKFIELDS to force the field list 

* and associated mappings to match exactly those of the source 

* application. This logic only applies to non-existing data files. 

* The semantic result of this call is to make the target field 

* list the same as the source field list (with exact mappings). 

* The field map is retrieved, and immediately saved with modified 

* mappings to reflect the source field list. 
* */ 

// Should we force target translator to remap fields? 

if (prz->pTarSec->SectionAttrib & ILTB_ATT_SEC_USESRC) 
{ 

// Does the application support files? 

nAccess = prz->pTarSec->AccessType; 

if (nAccess != ILX_ACCESS_DDE && nAccess != ILX_ACCESS_NONE) 
{ 

// Does the target file already exist? 

if (IL_DOESNT_EXIST ( ILXGL_szTa rget Fi le ) ) 
bForceMap = ILX_TRUE; 

} 

) 

// Set the type of map request 

nMapType = bForceMap ? ILX_MAP_LAST : ILX_MAP_VERIFY; 

/ + 

* Verify that at least one field is mapped in field lists. 

* We call the same function used to retrieve the field lists, 

* except that the last parameter is set to TRUE to indicate 

* that we only wish to validate the field map. In this case, 

* the output parameters are not really used and the field lists 

* are de-allocated in ILX_j3etFieldMap before returning. If no 

* fields are mapped, the routine returns unique error code 

* ILX_ERR_NOMAPPING to allow the caller to display an error. 
* */ 

nRc = ILX_dGetFieldMapEx ( _ilx_globals, 

nMapId, 
ShSrcList , 
ShTarList, 
&nSrcList , 
SnTa rList , 
nMapType } ; 

// Is at least one field mapped? 

if (nRc == ILX_ERR_NOMAPPING ) 

{ 

// If running on Macintosh, simply return the error code 

#ifdef ILMAC 

return ILX_ERR_NOMAPPING; 
flendif 

// If FORCE_FIELD_MAPPING defined, Show error and force mapping 

ffifdef FORCE_FIELD_MAPPING 
{ 

char szCaption [ ILTB_MAX_MSG) ; // Window caption 
char szText [ ILTB_MAX_MSG] ; // Message text 

ILST_HNDL hRes; // Resource file handle 

hRes = hDLLInstance; 

ILSTMakeString (&hRes, I LX_MSG_E RROR , szCaption, ILTB_MAX_MSG ) ; 
ILSTMakeString UhRes, I LX_MSG_NOMAP, szText, ILTB_MAX_MSG J ; 

// Display error message 

MessageBox ( ILXGL_hWindow, 

(LPSTR) szText, 

(LPSTR) szCaption, 

MB_OK | MB_ICONEXCLAMATION | MB_TASKMODAL ) ; 
// Force field mapping if no fields are mapped 
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bShowMap = TRUE; 

} 

// if FORCE_FIELD_MAPPING not defined, simple return error code 

Seise 

return ILX_ERR_NOMAPPING; 
#endif // FORCE_FIELD_MAPPING 

> 

else if (nRc) 

// Found an error 

return nRc; 

else if (bForceMap) 
{ 

/* 

* If we succeeded in fetching the field lists from translators, 

* we proceed to update the field map at this point. This will 

* cause an exact mapping to be used in the translation step. 
*■ *■ i 

nRc = ILX_dPutFieldMapEx ( _ilx_globals, 

nMapId, 
hSrcList , 
hTarList, 
nSrcList , 
nTarList ) ; 

// Did we succeed in updating the field map? 

if (nRc) 

return nRc; 

} 

} 

// Show the field map dialog if necessary 

ffifndef WINPAD 

if (bShowMap) 

{ 

nRc = ILX_dShowFieldMap (_i lx_globals } ; 
if (nRc) 

return nRc; 

} 

#endif // WINPAD 
return SUCCESS; 
} // CheckOrShowFieldMap 



/ + 

* Set_ILTR_Members (called from ILX_dTranslateEx) 

* */ 

static int Set_ILTR_Members 

( ILX_PGLOBALS _ilx_globals, 
ILX_PRECS prz, 
I LTR_PTRANSL tr ) 

{ 

// Transfer options to translation structure 

ILTR_version = ILTR_CURRENT_VERSION; 

I LTR_n Function - pr2->pSrcSec->SectionType; 

ILTR_log = ILXGL_log; 

ILTR_nFilterID = -1; 

ILTR_nTargetExportCharMapID = prz->pTarApp->ExportCharMapID; 
ILTR_nTargetImportCharMapID = prz->pTarApp->ImportCharMapID; 
ILTR_nSourceExportCharMapID = prz->pSrcApp->ExportCharMapID; 
ILTR_nSourceImportCharMapID = prz->pSrcApp->ImportCharMapID; 
I L_STRC PY ( I LTR_s z Pswd , I LXGL_s z Pswd ) ; 
IL_STRCPY (ILTR_szUserDir, ILXGL_szUser Di r ) ; 

// Put out all ASCII fields or just mapped ones? 

»if defined (WIN32) I! defined (ILMAC) 

ILTR_CDFmapOnly - ILX_TRUE; 
#else 

ILTR_CDFmapOnly = ILX_FALSE; 
Sendif 
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// next block is a backdoor convenience for testing... 

{ 

char szDate[201 ; 

Get Prof il eSt ring {"ilwin", "TestLoDate", szDate, s i zeof { szDate ) ) ; 

if ( IL_STRING_ISNT_NULL (szDate ) ) 

ILXGL^DSteRangeStart = IL_AiphaToCodeDate (szDate); 

Get Prof ileSt ring ( "ilwin" , "Test Hi Date", nn , szDate, si zeof ( szDate) ) ; 
if { IL_STRING_ISNT_NULL( szDate ) ) 

ILXGL_lDateRange£nd = IL_AlphaToCodeDate (szDate) ; 

} 

/* 

* Set Date Range limits. Note that these limits may be adjusted in the 

* course of translation. TIF may adjust the date range differently for 

* each phase of Synchronization. Adjustments are influenced by the 

* System Types ( ILTB_ATT_TOTAL_REBUILD) and the ' DEL_OUTRANGE ' flags. 

* _ 1 

ILTR_lDateRangeStart - ILXGL_lDateRangeStart; // tr->nLoDate 
ILTR_lDateRangeEnd = ILXGL_lDateRangeEnd; // tr->nHiDate 

/* 

* Set Date Range limits for Fanning. Unlike the other Date Range limits, 

* these settings should NEVER change over the course of a translation. 

+ * J 

ILTR_1 FanningMinDate = ILXGL_lDateRangeStart ; 
ILTR_lFanningMaxDate = ILXGL_lDateRangeEnd; 

ILTR_nSynchronize = ILXGL_nSynchronize; 
ILTR_cbProgr ess = I LXGL_cbPr ogress ; 

ILTR_OKTP_Threshold = ILXGL_OKTP_Threshold; // OKToProceed threshold 

ILTR_uTimerInterval = (UINT16) ILXGL_uTimerInterval ; 

// jf running on Windows, prepare for WinHelp 

ffifdef ILWIN 

ILTR_nHelpContext = ILXGL_nHelpOpen; 

I LT R_bVWR H e 1 p = ILXGL_bVWRHelp; 

IL_STRCAT (IL_STRCPY { ILTR_szHelpFile, ILXGL_szDi r ) , IL_FILESEP_STR) ; 
IL_STRCAT { ILTR_szHelpFile, ILXGL_szHelpFile) ; 
ffendif // ILWIN 

// Convert environment to ILTR type: 

switch ( ILXGL_nEnviron) 
{ 

case I LX_ENV_NORMAL : 

ILTR_eEnvironment - ILTR_ENV_LITE; 

break; 
case ILX_ENV_LITE: 
case ILX_ENV_ACHATES: 

ILTR_eEnvironment = I LTR_ENV_L I T E ; 

break; 

case ILX_ENV_MAGICXCHANGE: 

ILTR_eEnvironment = ILTR_ENV_MAGICXCHANGE; 

break ; 
case ILX_ENV_WINPAD: 

ILTR_eEnvironment = ILTR_ENV_WINPAD; 

break; 

default : 

// unknown envi ronment type 

return ILERROR ( ILXGL_nEnviron, I LX_ERR_INTERNAL) ; 

} 

/ + 

* Place window handle, working directory name, instance handle, 

* and session ID (when relevant) in translation structure. 
* V 

IL_STRCPY (ILTR_szCurWD, ILXGL_szDir ) ; 

// Place Window and instance handles in translation structure 

ILTR_hParentWin = ILXGL_hWindow; 
ILTR_hParentInst = ILXGL_hInstance; 
ILTR hSessionID = ILXGL hSessionID; 
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// Set appointment and todo range 

if {ILTR_nFunction == ILTB_SEC_APPT ) 
{ 

/* 

* Set the value of appointment range. If set to I LX_RANGE_DE FAULT , 

* we pull setting from the actual system record. 
* z v 

if (ILXGL_apptRange ILX_RANGE_DEFAULT ) 

ILTR_nSchOpt = prz->pSrcApp->Appt Range; 
else 

ILTR_nSchOpt = ILXGL_apptRange; 

} 

else if (ILTR_nFunction == ILTB_SEC_TODO) 
{ 

/*- 

* Set the value of todo range. If set to I LX_RANGE_DE FAULT , we 

* pull the actual setting from the system record. 
+ + 1 

if ( ILXGL_todoRange I LX_RANGE_DE FAULT ) 

ILTR_nSchOpt = prz->pSrcApp->TodoRange; 
else 

ILTR_nSchOpt = ILXGL_todoRange; 

} 

return SUCCESS; 
} // Set ILTR Members 



/ + 

* Set_trFlags (called from ILX_dTranslateEx) 

+ + 1 

static UINT32 Set_trFlags 

{ ILX_PGLOBALS _ilx_globals, 
ILX_PRECS prz ) 

{ 

char szFlags(20]; 
UINT32 trFlags; 

// as a debugging convenience, allow a back door way to set 

// trFlags word. (see ILTR_FLAG_xxx definitions in ILTR.H) 

Get Prof ileSt ring ( "ilwin", "ILTRf lags", "0", sz Flags, sizeof ( sz Flags ) ) ; 
trFlags = (UINT32) strtoul ((const char *) szFlags, NULL, 10); 

if (ILXGLJceepFiles) 

trFlags 1= I LT R_ FLAG_KE EPFILES; 

// set Macintosh flag if built for Macintosh 

ffifdef ILMAC 

trFlags |= ILTR_FLAG_MACINTOSH; 
ffendif 

// set MIXED_WIN3216 flag if engine is 32-bit and either xlator is 16-bit 

ffifdef WIN32 

if ( ( (prz->pSrcApp->SysAttrib & ILTB_ATT_ILXWIN_32 ) 0) 

II ( (prz->pTarApp->SysAttrib & ILTB_ATT_ILXWIN_32 ) == 0) ) 
trFlags |= ILTR_FLAG_MIXED_WIN3216; 
ffendif 

// set ILTR Source & Target ' DEL_OUTRANGE 1 flags 

if (prz->pSrcSec->SectionAttrib & ILTB_ATT_DEL_OUTRANGE ) 
trFlags |= ILTR_FLAG_SOURCE_DEL_OUTRANGE; 

if (prz->pTarSec->SectionAttrib & I LTB_ATT_DEL_OUTRANGE ) 
trFlags |= ILTR_FLAG_TARGET_DEL_OUTRANGE; * 

// Is tagging and filtering disabled? 

if (ILXGL_Flags & ILX_FLAG_DISABLE_SST_TAGGING) 

trFlags |= ILTR_DISABLE_SST_TAGGING; 
if (ILXGL_Flags & ILX_FLAG_DISABLE_SST_FILTERS ) 

trFlags 1= ILTR_DISABLE_SST_FI LTERING; 

// ^ re we operating in "unattended" mode? 

if (ILXGL_Flags & ILX_FLAG_UNATTENDED_MODE J 
trFlags |= ILTR FLAG UNATTENDED MODE; 
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// Do we need to call the Chooser on Import? 

if (ILXGL_flags & ILX_FLAG_IMPORT_SELECTED) 
trFlags |= I LTR_FLAG_IMPORT_S ELECTED; 

return trFlags; 

} // Set trFlags 



/ + 

* StartLogFile (called from ILX_dTranslateEx ) 

* v 

static int StartLogFile 

( ILX_PGLOBALS _ilx_globals, 
ILTR_PTRANSL tr, 
IL_PSTR pLogName ) 

{ 

int nRc; 

char szText [ILTB_MAX_MSG] ; // Message text 

IL_FILEINFO sFilelnfo; // used by IL_OPEN 

// Set default log file name if none was provided 

if {pLogName == NULL M pLogNamefO] == 'NO') 
{ 

// Construct the name of log file 

IL_STRCPY ( ILTR_szLogFile, ILXGL_szDir ) ; 

i f ( ILTR_szLogFile [ IL_STRLEN ( ILTR_szLog Fi le ) -1 ] ! = IL_FILESEP_CH ) 

IL_STRCAT ( ILTR_szLogFi le, IL_FILESEP_STR) ; 
ILSTMakeString { &hDLLInstance, I LX_STR_X LAT E LOG , szText, ILTB_MAX_MSG) ; 
IL_STRCAT ( ILTR_szLogFile, szText } ; 

) 

// Use supplied log file name 

else 

IL_STRCPY ( ILTR_szLogFi le, pLogName) ; 

/* 

* Header information is added to the log file by this routine 

* only when the log flag is set to TRUE. 
+■ + j 

if (ILXGL_log == ILXJTRUE && ILXGL_action == I LX_ACT_TRANSLATE ) 
{ 

int rc2; 

int openOption = I L_ATT R_WR I T E ; 

I L__HFI LE hLog; // Log file handle 

// Append to log file if not first translation 

if ( (ILXGL_Flags & ILX_FLAG_APPEND_TO_LOGS ) 
&& IL_DOES_EXIST(ILTR_szLogFile) ) 
openOption = IL_ATTR_APPEND; 

// Create or overwrite or append to log file 

IL_OPEN { ILTR_szLogFile, openOption, hLog, sFilelnfo, nRc); 
if (nRc) 

return ILX_ERR_LOG; 

// Write out header information to log file 

nRc = ILX_PutLogHeader (_ilx_globals f I LX_ACT_T RAN S LAT E , ILTR_nUpdOpt, &hLog) ; 

// Close log file at this point 

IL_CLOSE (hLog, rc2 ) ; 

// if ILX_PutLogHeader failed, exit now. 

if (nRc) 

return I LX_ERR_LOG; 

} 

return SUCCESS; 
} // StartLogFile 



#ifdef ILWIN 
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/* 

* Init ProgressDisplay (called from ILX_dTranslateEx ) 

* V 

static int Init ProgressDisplay 

{ ILX_PGLOBALS _i lx_globa Is , 

ILTR_PTRANSL tr ) 

{ 

int nRc; 

// Is this the first translation in session? 

if (ILXGL_bFirstXlate) 
{ 

// Create and show the progress dialog 

nRc = ILX_ShowStatusMeter (tr, _ilx_globals ) ; 
if {nRc != SUCCESS) 
return nRc; 

// Remember the status meter handle for subsequent translations 

ILXGL_hProgWin = ILTR_hProgWin; 

} 

else if (ILXGL_hProgWin) 
{ 

// Reset handles to existing status dialog and controls 

ILTR_hProgWin = ILXGL_hProgWin; 

ILTR_hFromBarWin = GetDlgltem ( ILXGL_hProgWin, I LCT_PRG_FROMBAR ) ; 
ILTR_hToBarWin = GetDlgltem ( ILXGL_hProgWin, ILCT PRG TOBAR) ; 

} 

return SUCCESS; 

} // InitProgressDisplay 

tfendif // ILWIN 

/* 

* PerformTranslations (called from ILX_dTranslateEx ) 

* V 

static int PerformTranslations 

( ILX_PGLOBALS _ilx_globals, 

ILX_PRECS prz, 

ILTR_PTRANSL tr, 

UINT32 trFlags, 

int EnvAttribs ) 

{ 

int nRc; 

/ + 

* Translating APPT may involve two distinct translations 

* to process appointments and todo items separately. This 

* behavior is also affected by the setting of the range 

* options which may be set to ALL, FUTURE, or NONE. 

* v 

if ( ILTR_nFunction == ILTB_SEC_APPT ) 
{ 

// Is appointment range set to NONE? 

if (ILTR_nSchOpt != ILX_RANGE_NONE ) 
{ 

// Translate appointments 

nRc = doTranslate (_ilxjglobals, prz, tr, trFlags, EnvAttribs}; 
if (nRc != SUCCESS) 
return nRc; 

} 

/* 

* Now determine whether the TODO translator must also be run. 

* If neither Appt nor Todo range is set to NONE, and if BOTH systems 

* have the "ILX_ATT_TODO" system attribute, then we do it. 

* + f 

if ( ( ILXGL_todoRange != I LX_RANGE_NONE ) 
&& ( ILTR_nSchOpt != ILX_RANGE_NONE ) 
&& (prz->pSrcApp->SysAtt rib & ILX_ATT_T0DO) 
(prz->pTarApp->SysAttrib & ILX_ATT_TODO) } 

{ 

// Reset the function and range values 
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I LTR_n Function = ILTB_SEC_TODO; 
ILTR_nSchOpt = ILXGL_todoRange; 

// Translate Todo items 

nRc = doTranslate (_i lx_globals, prz, tr, trFlags, EnvAttribs); 
if (nRc != SUCCESS) 
returiT nRc; 

} 

} 



/* 

* Translating PHONE may involve two distinct translations for 

* PHONE and GROUPS data. The GROUPS translation is done if 

* BOTH systems have the 'ILX ATT GROUPS* attribute. 



else if ( ILTR_nFunction == ILTB_SEC PHONE) 
{ 

// Start by translating normal PHONE function 

nRc = doTranslate (_ilx_globals, prz, tr, trFlags, EnvAttribs); 
if (nRc != SUCCESS) 
return nRc; 

// Now determine whether GROUPS translator must be called 

if ( (prz->pSrcApp->SysAttrib & ILX_ATT_GROUPS ) 

&& (prz->pTarApp->SysAttrib & ILX ATT GROUPS) ) 

{ 

char szSourceSect [MAX_APP_NAME] ; 
char szTargetSect [MAX_APP_NAME] ; 

// make copies of "real" source and target section names 

IL_STRCPY (szSourceSect, prz->pSrcSec->Name ) ; 
IL_STRCPY (szTargetSect, prz->pTarSec->Name } ; 

// Reset the section names to correspond to GROUPS 

ILSTMakeSt ring ( &hDLLInstance, ILX_MSG_GRPSECT, 

prz->pSrcSec->Name, MAX_A P P_N AM E ); 
IL_STRCPY (prz->pTarSec->Name, prz->pSrcSec->Name ) ; 

// Translate GROUPS data 

ILTR_nFunction = ILTB_SEC_GROUPS; 

nRc = doTranslate (_ilx_globals, prz, tr, trFlags, EnvAttribs); 

// restore "real" source and target section names 

IL_STRCPY (prz->pSrcSec->Name, szSourceSect) ; 
IL_STRCPY (prz->pTarSec->Name, szTargetSect ) ; 

if (nRc != SUCCESS) 
return nRc; 

} 



) // if ... ILTB_SEC_APPT ... else if ... I LTB__SEC_ PHONE ... 

else 
{ 

// Perform single translation 

nRc - doTranslate (_i lx_globa Is , prz, tr, trFlags, EnvAttribs); 
if (nRc != SUCCESS) 
return nRc; 

} 



return SUCCESS; 
} // Perf ormTranslations 



/ 



* Phase Definitions, used when ILX is operating in "ILX V4" mode, 

* i.e. "Version 4", where ILTIF is the center of the universe. 



ILTR 

ILTR" 

ILTR" 

ILTR~ 

ILTR" 

ILTR" 



PHASE01 
PHASE05 
PHASE10 
>HASE20 
PHASE30 
PHASE4 0 



initial settings 
"pre-export" , from Source 
"backward" export, from Target 
normal export, from Source 
normal import, into Target 
"backward" import, into Source 



for ILX_V4 only 
for ILX V4 only 



-- for SYNC only 
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+ 



Origin of key parameter settings, per phase: 
(S for Source, T for Target) 

PhaseOl PhaseOS PhaseiO Phase20 Phase30 Phase40 



Parameter 



EXPORT 



EXPORT 



EXPORT EXPORT 



IMPORT 



IMPORT 



ILTR_nCmd 
ILTR_direction 
ILTR_nSourceID 
ILTR_nSrcSection 
ILTR_nTargetID 
ILTR_nTarSection 
ILTR_nSysClass 
ILTR_nSysType 
ILTR_nAttribs 
ILTR_nSectionAttribs 
I LTR_s zAppName . 
ILTR_szSectCode 
ILTR_szSectName 
ILTR_szAppFile 
ILTR_szAltApp 
ILTR_szAltSect 
ILTR_pXtraData 
ILTR_szSrcTrans 
ILTR_szTarTrans 
ILTR_nSubSectionType 
ILTR_SourceSST 
ILTR_TargetSST 
ILTR_pTargetSSTS 

the following params are set by iltr\loadmap.c\ILSetupTables, 

which is called by I LX_Te 1 1TI FAbout Fields and by 

i It r\ import . c and i 1 1 r\ export . c 
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1 
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0 
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T 


S 


S 


T 


s 


S 
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T 
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T 
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S 




T 


S 


T 


T 


S 



ILTR_map. pSource 
ILTR_map. pTarget 
ILTR sCharMap 



S 
T 
S 



T 
S 
T 



S 
T 

S 



S 
T 
T 



T 
S 
S 



NOTE: Phase 05 settings are mostly immaterial. The dominant consideration 

for Phase 05 settings is to imitate Phase 30 settings. This is because 

the first time initialization of ILTIF always takes place in Phase 05 for 

ILX_V4 operation, or Phase 30 for ILX_V3 operation. We want TIF to 

start up in as similar a setting as possible for ILX_V3 and ILX_V4. 
*/ 



/* 

* Name: Set PhaseParams 

* Called from doTranslate 

* + 1 

static int SetPhaseParams { ILX_PGLOBALS _i lx_globals , 

ILX_PRECS prz, 
ILTR_PTRANSL tr, 
int Envi ronmentAtt r ibs, 
char phase ) 

{ 

/ + 

* For ILX_V4 mode only, put phaseff into ILTR_phase. 

VNOTE: for ILX_V3 mode, ILTR_phase remains ZERO throughout. 
+ * / 

if (ILTR_phase »= ILTR_PHASE_ILX_V3_M0DE) 
ILTR_phase = phase; 

/* 

* Start every phase with the ILTR_FLAG_SEE_I F_FI LE_EXISTS flag cleared. 

* This function is only ever set in export phases (10 & 20), and then 

* only where it makes sense to check for existence of the app data file. 

^ l 

ILTR_Flags &= -ILTR_FLAG_SEE_I F_FILE_EXISTS; 

/* 

* Set constant default parameters. These values may be altered when a 

* translator runs. At the start of each phase we set them back to' their 

* default values so that each xlator run gets a clean set of default 

* values, regardless of what the previous xlator may have done. 

•k + J 

ILTR CDFsep = ILXGL AsciiSep; // ASCII delimeter to use 
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ILTR CDFnames = ILXGL AsciiNames; 



// Are field names in 1st record? 



/ 



* The following constant parameters are used to rest rict fanning of 

* recurring items. See comments in ILTR.H for further explanation. 

* Translators can adjust these counts when ' OpenDataStore ' is called. 

* When translating between a pair of apps, the translators for each app 

* can apply whatever limits it likes; they need not agree on values. 

* The values assigned here are not sacred in any way; they're just 

* a stab at being reasonable... 

* Change made 9/18/96 by DJB for Starfish (Sidekick) to make fanning of 

* Weekly and Monthly patterns from Schedule+ 7.0 work better. Previously 

* weekly=-52, monthly=-12. Now upped both to allow for patterns that 

* start and stop on the same day of the year. 



/ 



ILTR_nDailyMaxFanout = -31; 

ILTR_nWeeklyMaxFanout = -53; 

ILTR_nMonthlyMaxFanout = -13; 

ILTR_nQuarterlyMaxFanout = -8; 

ILTR_nYearlyMaxFanout = -5; 

ILTR nOtherMaxFanout - 50; 



// max for DAILY patterns 

// max for WEEKLY & WEEKLY_DAYS 

// max for all 3 MONTHLY patterns 

// max for QUARTERLY patterns 

// max for all 3 YEARLY patterns 

// max for all other patterns 



/ 



* Set direction parameters (1-5-10-20-30-40 pattern is EEEEII) 

V 

if (phase < ILTR_PHASE30 ) 
{ 

ILTR_nCmd = ILX_IO_EXPORT; 
ILTR_direction == ILTR_EXPORT; 

} 

else 
{ 

ILTR_nCmd = ILX_IO_IMPORT; 
ILTR_direction = ILT R_IMP0RT; 

} 



/ 



/ 



Set SOURCE parameters (1-5-10-20-30-40 pattern is SSTSST) 



/ 



if (phase == ILTR_PHASE10 || phase == ILTR_PHASE40) 
{ 

// backward settings 

ILTR_nSourceID = prz->pTarApp->SysID; 
ILTR_nSrcSection = prz->pTarSec->SectionID; 
IL_STRCPY ( ILTR_szSrcTrans, prz->pTarApp->XlateName) ; 
ILTR_SourceSST = ( BYTE) prz->pTarSec->SectionSubType; 
ILTR_hAppSession = ILXGL_hTarAppSession; 



} 

else 
{ 



// forward settings 

ILTR_nSourceID = prz->pSrcApp->SysID; 
ILTR_nSrcSection - prz->pSrcSec->SectionID; 
IL_STRCPY ( ILTR_szSrcTrans, prz->pSrcApp->XlateName } ; 
ILTR_SourceSST = ( BYTE) prz->pSrcSec->SectionSubType; 
ILTR^hAppSession = ILXGL_hSrcAppSession; 



/ 



Set TARGET parameters (1-5-10-20-30-40 pattern is TTSTTS) 



/ 



if (phase == ILTR_PHASE10 | | phase ILTR_PHASE40) 
{ 

// backward settings 

ILTR_nTargetID = prz->pSrcApp->SysID; 
ILTR_nTarSection = prz->pSrcSec->Sect ionl D; 
IL_STRCPY ( ILTR_szTarTrans, pr z->pSrcApp->XlateName ) ; 
ILTR_TargetSST = (BYTE) prz->pSrcSec->SectionSubType; 
ILTR_pTargetSSTS - &ILTR_pTableInfo->sOriginalSourceSSTList; 
ILTR_hAppSession = ILXGL_hSrcAppSession; 

} 

else 
{ 

// forward settings 
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ILTR_nTargetID = prz->pTarApp->SysID; 
ILTR_nTarSection = prz->pTa rSec->Sect ionl D; 
IL_STRCPY ( ILTR_szTarTrans, prz->pTarApp->XlateName) ; 
ILTR_TargetSST = (BYTE) prz->pTarSec->SectionSubType; 
ILTR_hAppSession = ILXGL_hTarAppSession; 
if (phase != ILTR_PHASE01 ) 

ILTR_pTargetSSTS = &ILTR_pTableInfo->sOriginalTargetSSTList; 



/* 

* For phased set one more parameter, then bail out 

* V 

if (phase == ILTR_PHASE01 ) 

{ 

ILTR_nAttribs ~ Envi ronmentAtt ribs ; 
return SUCCESS; 

} 



/* 

* Set ACTIVE TRANSLATOR parameters (5-10-20-30-40 pattern is TTSTS) 
* * / 

if (phase == ILTR_PHASE20 I I phase ILTR_PHASE4 0 ) 
{ 

// SOURCE translator is active 

ILTR_nSysClass = prz->pSrcApp->SysCl ass; 
ILTR_nSysType = prz->pSrcApp->SysType; 

ILTR_nAtt ribs = prz->pSrcApp->SysAtt rib I Envi ronmentAtt ribs ; 
ILTR_nSectionAtt ribs = prz->pSrcSec->SectionAttrib; 
IL_STRCPY ( ILTR_szAppName, prz->pSrcApp->SysName ) ; 
IL_STRCPY ( ILTR_szSectCode, prz->pSrcSec->Code ) ; 
IL_STRCPY ( ILTR_szSectName, prz->pSrcSec->Name ) ; 
IL_STRCPY (ILTR_szAppFile, ILXGL_szSourceFilel ) ; 
ILTR_pXtraData = ILXGL_pSourceXtraData; 

ILTR_nSubSectionType = prz->pSrcSec->SectionSubType; 

} 

else 
{ 

// TARGET translator is active 

ILTR_nSysClass = prz->pTarApp->SysClass; 
ILTR_nSysType = pr z->pTa rApp->SysType ; 

ILTR_nAttribs = prz->pTarApp->SysAttrib I Envi ronmentAtt ribs ; 
ILTR_nSectionAttribs = prz->pTarSec->SectionAttrib; 
IL_STRCPY ( ILTR_szAppName, prz->pTa rApp->SysName ) ; 
IL_STRCPY ( ILTR_szSectCode, pr z->pTa rSec->Code ) ; 
IL_STRCPY ( ILTR_szSectName, prz->pTarSec->Name ) ; 
IL_STRCPY (ILTR_szAppFile, ILXGL_szTargetFile) ; 
ILTR_pXtraData = I LXGL_pTa rgetXt ra Data ; 

ILTR_nSubSect ionType - prz->pTarSec->SectionSubType; 

} 



* Set OTHER (Alt) TRANSLATOR parameters (5-10-20-30-4 0 pattern is TTSTS) 
* */ 

if (phase == ILTR_PHASE20 | | phase == ILTR_PHASE40) 
{ 

// SOURCE xlator is active, so TARGET xlator is "Alt" 

IL_STRCPY ( ILTR_szAltSect, pr z->pTa rSec->Name ) ; 
IL_STRCPY ( ILTR_szAltApp, prz->pTarApp->SysName ) ; 

} 

else 
{ 

// TARGET xlator is active, so SOURCE xlator is "Alt" 

IL_STRCPY ( ILTR_szAltSect, prz->pSrcSec->Name ) ; 
IL_STRCPY ( ILTR_szAltApp, prz*>pSrcApp->SysName ) ; 



/* 

* Tweak ILXGL parameters for handhelds, if 'Use Table' is set 

+ v 

if (ILTR_nSysType != ILTB_TYPE_APP) 
{ 

/ + 

* ACTIVE system is a device (therefore requiring communication). 

* Override the RAM and Document options when the caller has 

* specified that system table options should take precedence. 
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if (ILXGL_bUseTable) 
{ 

ILXGL_bRamCard = ( ILTR_nAtt ribs & ILTB_ATT_RAMCARD) ? 1 : 0; 
ILXGL_bDocument = { ILTR_nAttribs & ILTB_ATT_DOCNAM£ ) ? 1 : 0; 

} 

/* 

* Augment Section Attributes for ACTIVE system 

*■ 

if ( !ILXGL_bFanRepeat) 

ILTR_nSectionAttribs |= I LT B_ATT_NO FANN I NG ; 
if (ILXGL_bRamCard) 

ILTR_nSectionAttribs |= I LT B_ATT_ PCCAR D_RAM ; 

return SUCCESS; 



/* 

* If built with "ILTIF_IN_ENGINE" defined, the ILX DLL can't live without 

* the ILTIF DLL. 



#ifdef ILTI F_IN_ENGINE 

/* 

* Name: MapTI FReturnCode 



static int MapTIFReturnCode ( I LTR_PTRANSL tr, int tifrc) 
{ 

if (ILTR_rc == SUCCESS) 

ILTR_rc = (INT16) tifrc; 

// use standard ILTR-to-ILX error code mapping 

return ILX_MapILTRErrorCode (tifrc); 

} 



* Name: ILX_ILTIFInit 

+ + / 

static int ILX_ILTIFInit { ILTR_PTRANSL tr, 

IL_PSTR IpszTIFFilename, 
INT32 lFields ) 

{ 

int rc = ILTIFInit (tr, IpszTIFFilename, lFields); 
rc = MapTIFReturnCodeftr, rc}; 
return rc; 



* Name: ILX_ILTIFClose 

* v 

static int ILX_ILTI FClose ( ILTR_PTRANSL tr) 
{ 

int rc ILTIFClose (tr ) ; 

rc = MapTIFReturnCode(tr, rc); 

return rc; 



/* 

* Name: ILX ILTI FSyncInit 



static int ILX_ILTI FSyncInit ( ILTR_PTRANSL tr, 

IL_PSTR szSourceFile, 
IL PSTR szTargetFile ) 

{ 

int rc = ILTIFSyncInit (tr, szSourceFile, szTargetFile); 
rc = MapTIFReturnCode(tr, rc); 
return rc; 
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/* 

* Name: ILX_ILTI FSyncFinishUpAndClose 

* v 

static int ILX_ILTI FSyncFinishUpAndClose ( ILTR PTRANSL tr} 
{ . " 

int re = ILTIFSyncFinishUpAndClose(tr) ; 

rc = MapTIFReturnCode { tr, rc); 

return rc; 

} 

/* 

* Name: ILX_ILTIFStartNextPhase 

* f 

static int ILX_ILTIFStartNextPhase (ILTR PTRANSL tr, INT16 phase) 
{ 

int rc = ILTIFStartNextPhase (tr, phase); 
rc = MapTIFReturnCode(tr, rc); 
return rc; 

} 



/* 

* Name: Tel 1TI FAbout Fields — called from within doTranslate 

* / 

static int TellTIFAboutFields ( I LTR_PTRANSL tr) 

{ 

return ILX_Tel 1TI FAbout Fields (tr); 

} 



/* 

* Name: ILX_ILTI FCloseFi lelni t i al ly — called from within doTranslate 
+ v 

static int ILX_ILTIFCloseFileInitially (ILTR PTRANSL tr) 
{ 

return ILTIFCloseFilelnitially (tr); 

} 



/* 

* Name: ILX_ILTIFReopenFi le — called from within doTranslate 

+ + / 

static int ILX_ILTI FReopenFi le ( ILTR_PTRANSL tr) 
{ 

return ILTIFReopenFile (tr); 

} 



#else 

/* 

* If ILX isn't built with "ILTIF_IN_ENGINE", it is a boo-boo to 

* make calls to ILTIF ent rypoints ! ! 

* v 

ffdefine ILX_ILTI FInit ( a, b, c ) ILX_ERR_CANT_USE_ILTI F 

ffdefine ILX_ILTI FClose ( a ) ILX_ERR_CANT_USE_ILTI F 

ffdefine ILX_ILTI FSta rtNext Phase ( a , b ) ILX_ERR_CANT_USE_ILTIF 

#def ine ILX_ILTI FSyncInit (a, b, c} ILX_ERR_CANT_USE_ILTI F 

ffdef ine ILX_ILTI FSyncFinishUpAndClose ( a ) ILX_ERR_CANT_USE_ILTI F 

// plus ILX_V4 local functions (for now) 

ffdefine Tel 1TI FAbout Fields ( a ) ILX_ERR_CANTJJSE_ILTIF 

/ + _ 

* If ILX isn't built with "ILTIF_IN_ENGINE", the following TIF 
*' calls are simply ignored. 

* + / 

ffdefine ILX_ILTI FCloseFilelnit ially ( a ) SUCCESS 
ffdef ine ILX_ILTI FReopenFile (a ) SUCCESS 
#endif // ffifdef ILTIF IN ENGINE ... Seise 
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/* 

* Name 



doTranslate (called from PerformTranslations ) 



Purpose: Perform complete set of export and import operations. For 

simple (import/export) translation, an export is performed 
for the source and an import for the target. For SyncPort, 
we "export twice, first from the target and then from the 
source, and then import twice, first to the target and then 
to the source. 

Parameters : 

_ilx_globals - Pointer to global data 

prz - Pointers to system and section records 

tr - Pointer to translation structure 

bFlag - Boolean flag 

trFlags - base value for ILTR_Flags 

EnvAttribs - environmental bits to OR into ILTR nAttribs 



Returns : 



ILX OK or error code 



static int doTranslate 

{ ILX_PGLOBALS _i lx_globa Is , 
ILX_PRECS prz, 
ILTR_PTRANSL tr, 
UINT32 trFlags, 
int EnvAttribs J 



{ 



int nRc; 
int rc2; 

ILTB_PHNDL phTable = NULL, 
IL_FILEINFO sFilelnfo; 
char szFile[ MAX PATH]; 



// Pointer to table handle 
// used by IL_REMOVE 
// File name 



// set ILTR_Flags for this pass (NOTE: flags may be altered during run) 

ILTR_Flags = trFlags; 

// set or clear the ILTR First in Session Flag 

if (ILXGL_Flags & ILX_FLAG_FIRST_DOTRANSLATE ) 

ILTR_Flags |= I LT R_ FLAG_ F I R ST_X LAT E ; 
else 

ILTR_Flags &= ~ ILTR_FLAG_FIRST_XLATE; 



Set ILTR Append-to-Logs flag as needed. The only time this flag is 
ever CLEAR is for the very first 'doTranslate' call in a session, 
or for the very first 'doTranslate' in a multi-session job. 



if ( ILXGL_Flags & ILX_FLAG_APPEND_TO_LOGS ) 
ILTR_F1 ags | = I L T R_ F LAG_ A P P E N D_T 0_ LOG S ; 

// fiddle with ILTR_nSynchroni ze and initial ILTR_phase settings 

nRc = Choose_V3_V4_Or_Sync (prz, tr); 
if (nRc != SUCCESS) 
goto LastExit; 



7 



// For sync, do 'sync from scratch* if file(s) to sync is/are new 

if ( ILTR_nSynchronize == I LXT R_S Y N C_S TAN DAR D ) 

SyncFromScratchlf FilesAreNew (_ilx_globals, prz, tr); 

/* 

* For both ILX_V3 and ILX_V4, set initial ILTR parameter values 

* v 

nRc = SetPhaseParams (_ilx_globals, prz, tr, EnvAttribs, ILTR PHASE01 ) ; 
if {nRc SUCCESS) 
goto LastExit; 

// Load source/target field list and mapping tables into the tr record 

phTable = (ILTB_PHNDL) GlobalLock ( ILXGL_hTable) ; 
nRc = ILX_LoadFieldLists (tr, phTable); 
if (nRc != SUCCESS) 
( 

ILXGL_nXlatorError = nRc; 

nRc = ILX_MapILTRErrorCode (nRc); 

goto LastExit ; 

} 
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if (ILTR_pTableInfo == NULL) 
( 

nRc = ILX_ERR_INTABLE; 
goto LastExit; 

} 

/* 

* Close the system table { TABLES . ITB ) to prevent data loss. 

* WARNING: for all failures beyond this point, you must re-open 

* the system table. (use EXIT_WITH_ERROR macro or goto LaterExit). 



ILTBClose (phTable); 

/* 

* If Operating in ,f ILX_V4" mode, Open or Create a TIF File 

* v 

if (ILTR_phase != ILTR_PHASE_ILX_V3 MODE) 
{ 

nRc = do_Phase05_Setup (_ilx_globals, prz, tr, EnvAttribs); 
if (nRc != SUCCESS) 
goto LaterExit; 

} 

// Clear counters and flags 

ILXGL_lTotalRecords = OL; 
ILXGL_nXlateDataErrs = 0; 

// Clear temp filenames 

IL_STRCPY (szTempRemoteSource, ""); 
IL_STRCPY (szTempRemoteTarget, ) ; 

// If using ILIF, get an intermediate file name 

if (ILTR_phase == ILTR_PHASE_ILX_V3_MODE ) 
{ 

IL_PSTR psz = ILTR_TempFileName ( ILTR_nFunct ion, ILTR_szWorkFile) ; 
if (psz == NULL) 

EXIT_WITH_ERROR ( ILX_NOTOK) ; 

) 

/* 

* If Operating in "ILX_V4" mode, Export from Target App before 

* Exporting from Source App. For "ILX_V4" TIF-based translation 

* we need to do this even if the Conflict Resolution Option is 

* set to NONE, cuz it's up to the Target Translator to establish 

* the bulk of the TIF Field List at this point. 



if (ILTR_phase != ILTR_PHASE_ILX_V3_M0DE ) 
{ 

nRc = do_PhaselO_ExportFromTarget (_i lx_globals, prz, tr, EnvAttribs) 
if (nRc != SUCCESS) 

EXIT_WITH_ERROR (nRc); 

} 

/* 

* For both ILX_V3 and ILX_V4 mode, Export from Source App. 

v v 

nRc = do_Phase20_ExportFromSource (_ilx_globals, prz, tr, EnvAttribs); 
if (nRc != SUCCESS) 

EXIT_WITH_ERROR (nRc); 

/* 

* For both ILX_V3 and ILX_V4 mode, Import into Target App. 

* J v 

nRc = do_Phase30_ImportIntoTarget (_ilx_globals, prz, tr, EnvAttribs); 
if (nRc != SUCCESS) 

EXIT_WITH_ERROR (nRc); . 

if (ILTR_phase != ILTR_PHASE_ILX_V3_MODE ) 
( 

// this is an ILX_V4 job, so we have a bit more work to do... 

// If we're not doing Synchronization, finish up now. 

if (ILTR_nSynchronize ILXTR_SYNC_NO) 
{ 

// for SmartMerge the ILTIFClose call deletes the TIF file 
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// NOTE: doesn't matter whether TIF workfile is open or not 

nRc = ILX_ILTIFClose ( tr) ; 
if (nRc != SUCCESS) 

EXIT_WITH_ERROR (nRc) ; 

} 

else 
{ 

/* 

* For Synchronization, Import into Source App. 



nRc = do_Phase40_ImportIntoSource (_iix_giobals, prz, tr, EnvAttribs); 
if (nRc != SUCCESS) 

EXIT_WITH_ERROR ( nRc ) ; 

/* 

* Then Create New Sync History File and finish up. 

+ — + J 

nRc = do_SyncFinishUp (tr); 
if (nRc != SUCCESS) 

EXIT_WITH_ERROR (nRc); 

} 

} // if (iLTR_phase != ILTR_PHASE_ILX_V3_M0DE ) 

Exit : 

// Remove intermediate file if not using TIF and Keep Files not set. 

if (ILTR_phase == ILTR_PHASE_ILX_V3_M0DE) 
( - 

if ( ILXGL_keepFiles == I LX_FALSE ) 

IL_REMOVE ( ILTR_szWorkFile, sFilelnfo, rc2) ; 

} 

// if us ing TIF and we have an error, make sure TIF is shut down 

else if (nRc != SUCCESS) 
{ 

// TIF workfile is deleted if KeepFiles isn't set. 

rc2 = ILX_ILTIFClose (tr); // rc2 ignored!! 

} 

// Remember the last password used 

IL STRCPY ( ILXGL szPswd, ILTR szPswd); 



LaterExit : 

/* 

* record ILTR error codes in ILXGL structure. This is probably 

* only necessary when direct ILX-to-TIF calls return error. 

+ v 

if ( ILXGL_nXlatorError == 0) 

ILXGL_nXlatorError = ILTR_rc; 

if ( ILXGL_nSystemError == 0) 

ILXGL_nSystemError = ILTR_nSystemError; 

// Free any allocated field list and mapping tables in the tr record 

ILX_FreeFieldLists (tr) ; 

// Reopen the table 

IL_STRCPY (szFile, ILXGL_szDi r ) ; 

if ( szFile [ IL_STRLEN (szFile)-l] != IL_FILESEP_CH) 

IL_STRCAT (szFile, IL_FILESEP_STR) ; 
IL_STRCAT (szFile, ILX_TABLES_FILE) ; 

/* 

* Open System Table File in UPDATE mode, except that if the file is 

* READONLY, open it in READ mode. Most of our apps, including 

* IntelliLink Lite, need UPDATE access, but some, e.g. IntelliLink 

* for WinPad, need nothing more than READ access. 

* v 

if (ILTBOpen (szFile, phTable, I LTB_MODE_AS_ALLOWED) != ILTB OK) 
{ 

if (nRc == SUCCESS) 
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// no previous errors to report, so let's report this one 

nRc = ILX_ERR_INTABLE; 

} 

LastExit : 

// Any subsequent doTransiate calls in same session are NOT 1st 

ILXGL_Flags I = I L X_ FLAG_ A P P E N D_T 0_ LOG S ; 

// Reset the "first translation" flag unless we need to "re-sync" 

if (nRc != ILX_ERR_RESYNC) 

ILXGL_Flags &= ( ~ILX_FLAG_FIRST_DOTRANSLATE ) ; 

return (nRc ) ; 
} // doTransiate 

/* — 

* Choose_V3_V4_Or_Sync (called from doTransiate) 

* +• i 

static int Choose_V3_V4_Or_Sync 
( ILX_PRECS prz, 
ILTR_PTRANSL tr ) 

{ 

/* 

* Comments on setting the ILTR_phase and ILTR_nSynchronize flags: 



+ 



* ILTR_phase is used to choose between ILX_V3 and ILX_V4 styles of 

* operation: 



* Zero selects ILX_V3 mode; anything nonzero selects ILX V4 mode. 



+■ 
+ 



The ILX_V3 style is the traditional style, where ILIF is 

used as the intermediate file, and "doTransiate" simply calls SOURCE 

translator EXPORT, then TARGET translator IMPORT. 



* The 1LX_V4 style is the new style, where ILTIF is used as the 

* intermediate file, and "doTransiate" orchestrates 3 or more phases 

* of translation — export from target, export from source, import 

* into ta rget . . . 

* ILTR_nSynchronize is used to choose whether we* re doing a one-way 

* SmartMerge operation or doing a two-way SYNCHRONIZATION job. 

* There is also a special value for ILTR_nSynchronize, 

* ILXTR_SYNC_NO_BUTJJS£^ILXV4, which allows an app to choose the ILX_V4 

* style of operation for a SmartMerge operation. 
+ 

* So, a fully adapted app should use the following ILX_SetValue settings 

* for ILX_VAL_SYNCHRONIZE: 
*■ 

* To do Synchronization (which is always TIF-based): ILXTR SYNC STANDARD 
■*■ 

* To do an ILIF-based SmartMerge: I LXTR_SYNC_NO 
*■ 

* To do a TIF-based SmartMerge: ILXTR SYNC NO BUT USE ILXV4 



. * 



/ 



switch ( ILTR_nSynchronize) 
{ 

case ILXTR_SYNC_NO: // ILX_V3 SmartMerge 

ILTR_phase = ILTR_PHASE_ILX_V3_M0DE; 
break; 

case ILXTR_SYNC_N0_BUT_USE_ILXV4 : // ILX_V4 SmartMerge 

/ + 

* Use ILX_V4 mode if engine is built to support it and if 

* target translator is Sync Capable. Otherwise revert to 

* ILX__V3 mode. 

* y 

tfifdef ILTIF IN ENGINE 
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if {prz->pTarApp->SysAttrib & I LTB_ATT_SYNC_CAPABLE ) 

ILTR_phase = -ILTR_PHASE_ILX_V3_MODE; 
else 

ffendif 

TLTR_phase = ILTR_PHASE_ILX_V3_MODE; 
ILTR_nSynchronize = ILXTR_SYNC_NO; // NOT synchronizing 
break; 

case ILXTR_SYNC_STANDARD: // ILX_V4 Synchronization 

case ILXTR_SYNC_FROM_SCRATCH: 

if ( ( (prz->pSrcApp->SysAttrib & ILTB_ATT_SYNC_CAPABLE ) == 0) 

II ( (prz->pTarApp->SysAttrib & ILTB_ATT_SYNC_CAPABLE ) == 0) ) 

// cannot do sync unless BOTH xlators are sync-capable 

return ILX_ERR_BAD_SYNC_OPTION; 

/ / for synchronization we always use ILX_V4 mode 

ILTR_phase = ~ILTR_PHASE_ILX_V3_MODE; 
break; 

default: // BAD sync code 

return ILX_ERR_BAD_SYNC_OPTION; 

) // switch (ILTR_nSynchronize) 

return SUCCESS; 

} // Choose V3 V4 Or Sync 



/ 



SyncFromScratchlf FilesAreNew (called from doTranslate) 

Do 'sync from scratch' if one or the other or both of the Files to be 
synchronized is non-existent or zero-length at the start of the job. 
This prevents us from doing a DELETE-ALL to the other sync partner. 

WARNING: this protection only applies to those DeskTop apps for which 
we know a filename, and it doesn 't guard against tricky scenarios 
such as switching from one AddressBook section to another within the 
same Lotus Organizer f ile . 



/ 



static void Sync FromScr a t chl f FilesAreNew 
{ ILX_PGLOBALS _ilx_globals, 
ILX_PRECS prz, 
ILTR PTRANSL tr ) 



{ 



// Check to see if the Source File exists and is non-zero-length 

if (prz->pSrcApp->SysType == I LTB_TY PE_APP ) 
switch (prz->pSrcApp->AccessType ) 



{ 



case ILX_ACCESS_DDE: 
case ILX_ACCESS_ODBC: 
case ILX_ACCESS_NEW1 : 
default : 

break; 



// Dynamic Data Exchange 
// ODBC database 
/ / Unassigned 



case ILX_ACCESS_DBASE: 
case ILX_ACCESS_FILE: 
case ILX_ACCESS_PDX: 
case ILX ACCESS CDF: 



// dBASE database 

// File access 

// Paradox database 

// Ascii file type 



if ( IL_DOESNT_EXIST ( ILXGL_szSourceFilel ) 

I I ILUT_IsZeroFile ( ILXGL_szSourceFilel ) ) 

{ 

ILTR_nSynchronize = I LXTR_SYNC_FROM_SCRATCH ; 
return; 



// Check to see if the Target File exists and is non-zero-length 
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if (prz->pTarApp->SysType == ILTB TYPE APP) 



switch (prz->pTarApp->AccessType) 
{ 

case ILX_ACCESS_DDE: 
case ILX_ACCESS_ODBC: 
case ILX_ACCESS_NEW1 : 
default : * 

break; 



// Dynamic Data Exchange 
// ODBC database 
// Unassigned 



} 



case ILX_ACCESS_DBASE: 
case ILX_ACCESS_FILE: 
case ILX_ACCESS_PDX: 
case ILX ACCESS CDF: 



// dBASE database 

// File access 

// Paradox database 

// Ascii file type 



i f { IL_DOESNT_EXIST ( ILXGL_szTa rget Fi le ) 

I I ILUT_Is2eroFiie(ILXGL_szTargetFile) ) 

{ 

ILTR_nSynchronize = I LXTR_SYNC_FROM_SCRATCH ; 
return; 



} // SyncFromScratchlf FilesAreNew 



* do Phase05 {called from doTranslate) 



static int do_Phase05_Setup 

( ILX_PGLOBALS _ilx_globals, 
ILX_PRECS prz, 
ILTR_PTRANSL tr, 
int EnvAttribs ) 

{ 

int nRc, rc2; 

/* 

* Set phase parameters for TIF init and pre-export from source 



nRc = SetPhaseParams (_i lx_globals , prz, tr, EnvAttribs, ILTR_PHASE05 ) ; 
if (nRc != SUCCESS) 
return nRc; 

if ( ILTR_nSynchronize ILXTR_SYNC_NO ) 

nRc = ILX_ILTIFInit (tr, NULL, 0); 
else 

nRc = ILX_ILTIFSyncInit (tr, ILXGL_szSourceFilel, ILXGL_szTargetFile) ; 

if (nRc ! = SUCCESS) 
return nRc; 

/* 

* Now ask the Source Translator to identify all its fields. 

* (set direction so we see SOURCE side of Field Map) 



nRc = TellTIFAboutFields (tr); 

if (nRc != SUCCESS) 

{ 

rc2 = ILX_ILTIFClose(tr> ; // rc2 is ignored!! 
return nRc; 

} 

return SUCCESS; 
} // do_Phase05 Setup 



/* 

* do_PhaselO_ExportFromTarget (ILX_V4 only) (called from doTranslate) 

+ NOTE: both this function and the do_Phase20_ExportFromSource function 

* used to have shortcuts to bypass calling ILX_LoadTranslator when the 

* app data file doesn't exist. For all ILX_V4 operations these 

* shortcuts are now deferred to ILXTRANS, because TIF relies on being 

* called from EXPORT. C to squirrel away some phase-specific parameters. 
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* (i.e. ILTIFReopenFile must be called). 

* The ILTR_FLAG_SEE_IF_FILE_EXISTS flag now enables the deferred shortcut. 

* v 

static int do_PhaselO_Export FromTarget 
( ILX_PGLOBALS _ilx_globals, 
ILX_PRECS prz, 
ILTR_PTRANSL tr, 
int EnvAttribs ) 



{ 



int nRc; // Return code 

int nTempRC; // Temp return code 

IL_FILEINFO sFilelnfo; // used by IL_REMOVE 

/* 

* Start of Step 1 — "Backwards" Export from TARGET (sic!) 
+ 

* This is how ILX_V4 does "export before import". 

* v 

/ + 

* Set phase parameters for "Backwards" Export from TARGET 

* v 

nRc = SetPhaseParams (_ilx_globals, prz, tr, EnvAttribs, ILTR_PHASE10 ) ; 
if (nRc != SUCCESS) 
return nRc; 

// Get Target Translator to tell TIF about its fields 

nRc » TellTIFAboutFields (tr); 
if (nRc != 0) 
return nRc; 

// for Synchronization, assimilate previous history file 

if ( ILTR_nSynchronize -= I LXTR_SYNC_STANDARD) 
{ 

nRc = ILX_ILTIFStartNextPhase (tr, TI F_PHASE_LOADING_PREVIOUS_RECORDS ) ; 
if (nRc != 0) 
return nRc; 

} 

/* 

* Always cycle TIF through the 1 LoadingTargetRecords 1 phase, . whether or 

* not there are any records to load. This ensures that TIF will get a 

* chance to save any parameters associated with this phase (e.g. 

* Loading Range and Fanout Maxima) . 

* */ 

nRc = ILX_ILTIFStartNextPhase(tr, TI F_PHASE_LOADING_TARGET_RECORDS ) ; 
if (nRc != 0) 
return nRc; 

/* 

* Don't skip the "Export before Import" step. Target xlator may 

* need to rebuild target app database from scratch, in which case 

* it needs to do Export before Import, even for UPD_N0NE. So the 

* optimization of skipping "Export before Import" cannot be done 

* by the engine. But xlators that don't rebuild from scratch 

* can check for ILTR_PHASE10 and UPD_NONE, and return ILTR_ERR_NORECS 

* from BEGIN to avoid unnecessary Export before Import. 

* v 

// else if (ILTR_nUpdOpt == I LX_OPT_NONE ) 
// goto StartOf StepTwo; 

/* 

* Decide whether to enable a "shortcut" in I LXTRANSXCILTRANS . The 

* shortcut is to avoid wasting effort trying to load records from a 

* non-existent file. The flag is set here on behalf of existing 

* translators that have always been shielded in this way. Translator 

* writers should feel free to clear this flag, in their translator 

* code, if necessary. 

+ *■ i 

if (prz->pTarApp->SysType == ILTB_TYPE_APP J 
switch ( prz->pTarApp->AccessType ) 
{ 

case ILX_ACCESS_DDE: // Dynamic Data Exchange 
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case ILX_ACCESS_ODBC: // ODBC database 

case ILX_ACCESS_NEW1 : // Unassigned 

default : 

break; 



case ILX_ACCESS_DBASE: 
case ILXJ7VCCESS_FILE: 
case ILX_ACCESS_PDX: 
case TLX ACCESS CDF: 



// dBASE database 

// File access 

// Paradox database 

// Ascii file type 



Hfdef ILWIN 
ffifndef WIN32 
/* 



// enable shortcut in ILXTRANSXCILTRANS 

ILTR_Flags I = I LTR_FLAG_SEE_I F_FILE_EXISTS; 



Set both bars to 0% and label by Apps/Sections/ Filenames . Note the 
inverted source/target sense of Filenames and Access Types. 



Label ProgressBars ( _ilx_globals, tr, 

ILXGL_szTargetFile, ILXGL_szSourceFilel , 
prz->pTarApp->AccessType, prz->pSrcApp->AccessType } ; 

#endif 
ffendif 



// Fetch Input File if this Backward Export must read 

// data from an offboard device. 

if (prz->pTarApp->SysType != ILTB TYPE APP) 
{ 

// enable shortcut in ILXTRANSXCILTRANS 

ILTR_F1 ags |= ILTR_FLAG_SEE_I F_FILE_EXISTS; 

nRc = GetRemotelnput File ( _ilx_globals, tr, 

prz->pTarApp, 
ILXGL_szTargetFile, 
ILX_PUT_TO_TARGET ) ; 

// If the remote file doesn't exist, it's OK 

if (nRc == ILX_ERR_COM_NOFILE) 
{ 

I L_REMOVE ( ILTR_szAppFile, sFilelnfo, nTempRC}; 
nRc = SUCCESS; 

} 



// bail out if we got a nasty error 

else if (nRc != ILX_OK) 
return nRc; 



// Remember temp filename 

IL_STRCPY (szTempRemoteTarget, ILTR szAppFile); 

} 

/ + 

* Tell TIF to close its workfile. In ILX_V4 mode the state of the 

* TIF workfile goes through the following transitions: 

* File is created in Phase 05 when doTranslate calls ILTI F [ Sync ] Ini t . 

* File is used, then closed "initially", in Phase 10 of doTranslate. 

* Each translator brackets its usage of TIF with calls to 

* ILTIFReopenFile and ILTIFCloseFileTemporarily . 

* For SmartMerge, the file is closed & deleted at the end of Phase 30, 

* when doTranslate calls ILTIFClose. 

* For Synchronization, doTranslate makes the following calls in 

* Phase 40: ILTIFReopenFile and ILTIFSyncFinishUpAndClose . 

* v 

nRc = ILX_ILTIFCloseFileInitially (tr); 
if (nRc != 0) 
return nRc; 



// Now run the translator to export from target. 

// swallow 'NO DATA* condition ( ILTR_ERR_NORECS ) 

nRc = ILX_LoadTranslator (_ilx_globals, tr, pr z->pTa rApp->AppLoc ) ; 
if (nRc != 0 && nRc != ILX_ERR_NODATA) 
return nRc; 
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// Make sure that export progress bar reads 100% 

ffifdef ILWIN 
ffifndef WIN32 

if ( ILXGL_cbProgress NULL && ILXGL_nEnvi ron == ILX_ENV_NORMAL ) 
SendMessage (ILTR_hFromBarWin, I LCT_MSG_U PDATE , 100, 0L) ; 

ffendif 
ffendif 

return SUCCESS; // end of "Step 1" of ILX_V4 style of operation 

} // do_PhaselO_ExportFromTarget 



ffifdef ILWIN 
ffifndef WIN32 

/* 

* Label Progress Bars 

* called from do_PhaselO_ExportFromTarget and do_Phase20_ExportFromSource 
* V 

static void Label Progress Bars 

( ILX_PGLOBALS _ilx_globais, 
I LTR_PTRANSL tr, 
IL_PSTR szSourceFile, 
IL_PSTR szTargetFile, 
ILTB_ACC nSourceAccessType, 
ILTB_ACC nTargetAccessType ) 

{ 

if { ILXGL_cbProgress == NULL && ILXGL_nEnviron == I LX_ENV_NORMAL ) 
( 

char szText [MAX_MSG] ; 

// Reset the FROM and TO progress bars to 0% 

SendMessage ( ILTR_hFromBarWin, I LCT_MSG_SETBOUNDS, 0, 0L) ; 
SendMessage { ILTR_hToBarWin, ILCT_MSG_SETBOUNDS, 0, 0L) ; 

// Put target section name in progress window title 

ILSTMakeString { &hDLLInstance, 

I LX_MSG_MERGE , 

szText , 

MAX_MSG, 

ILTR_szAltSect ); 
SetWindowText ( ILTR_h ProgWin, szText); 

} 

if (ILXGL_cbProgress == NULL) 
{ 

char szSrcExt [MAX_EXT] ; 
char szTarExt [MAX_EXT] ; 

/* 

* Determine file extensions of source and target file names. 

* This information is later used to avoid showing temporary 

* file names in the progress dialog box. 
* V 

szSrcExt{0] = szTarExt[0] = '\0 f ; 

if ( nSourceAccessType == ILX_ACCESS_ODBC) 

IL_splitpath {szSourceFile, NULL, NULL, NULL, szSrcExt); 
if (nTargetAccessType == ILX_ACCESS_ODBC) 

IL_splitpath (szTargetFile, NULL, NULL, NULL, szTarExt); 

// Place application and section name in file slot if not used 

if (szSourceFile [0] && IL_STRICMP (szSrcExt, ".tmp")) 

SetDlgltemText ( ILTR_hProgWin, ILCT_PRG_FROMAPP, ILTR_szAppName ) ; 
else 

SetDlgltemText ( ILTR_hProgWin, ILCT_PRG_FROMFILE, ILTR_szAppName) ; 

// Place appl i cat ion and section name in file slot if not used 

if (szTargetFile [Oj && IL_STRICMP (szTarExt, ".tmp"}) 

SetDlgltemText ( ILTR_hProgWin, ILCT_PRG_TOAPP, ILTR_szAltApp) ; 
else 

SetDlgltemText ( ILTR_hProgWin, ILCT_PRG_TOFILE> ILTR_szAltApp) ; 
// Place source file name in progress dialog 



// Source file extension 
// Source file extension 
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if (szSourceFile [0] && IL_STRICMP (szSrcExt, " . tmp" ) } 

SetDlgltemText ( ILTR_hProgWin, ILCT_PRG_FROMFILE, szSourceFile) ; 

// Place target file name in progress dialog 

if (ILXGL_szTargetFile[0] && IL_STRICMP (szTarExt, " . tmp" ) J 

SetDlgltemText { ILTR_hProgWin, ILCT_PRG_TOFILE, szTargetFile) ; 

} 

} // Label Prog res sBars 

#endif // WIN32 
#endif // ILWIN 



/ 



/* 

* do_Phase20_ExportFromSource (both V3 & V4 ) (called from doTranslate) 

+ 

static int do_Phase20_ExportFromSource 
( ILX_PGLOBALS _ilx_globals, 
ILX_PRECS prz, 
ILTR_PTRANSL tr, 
int EnvAttribs ) 



int nRc; 

int nTempRC; 

IL FILEINFO sFilelnfo; 



/ / Return code 

// Temp return code 

// used by IL_REMOVE 



/ 



* For both ILX_V3 and ILX_V4, set parameters for EXPORT FROM SOURCE 
+ + / 

nRc = SetPhaseParams (_ilx_globals, prz, tr, EnvAttribs, ILTR_PHASE20 ) ; 
if (nRc != SUCCESS J 
return nRc; 



/ + 

* For all ILX_V4 mode translations, 

* always cycle TIF through the 1 LoadingSourceRecords ■ phase, whether or 

* not there are any records to load. This ensures that TIF will get a 

* chance to save any parameters associated with this phase (e.g. 

* Loading Range and Fanout Maxima). 

* V 

if (ILTR_phase != ILTR_PHASE_ILX_V3_MODE) 
{ 

nRc = ILX_ILTIFStartNextPhase(tr, TI F_PHASE_LOADING_SOURCE_RECORDS ) ; 
if (nRc != 0} 
return nRc; 

} 



ffifdef ILWIN 
#ifndef WIN32 

/ + 

* Set both bars to 0% and label by Apps/Sections/ Filenames . 

+ + / 

Label ProgressBars ( _ilx_globals, tr, 

ILXGL_szSourceFilel, ILXGL_szTarget File, 
prz->pSrcApp->AccessType, prz->pTarApp->AccessType ) ; 

ffendif 
#endif 

// Fetch Input File if exporting from an offboard device 

if (prz->pSrcApp->SysType != ILTB_TYPE_APP) 
{ 

// enable shortcut in ILXTRANS\CILTRANS 

ILTR_Flags j = ILTR_FLAG_SEE_I F_FILE_EXISTS; 

nRc = GetRemotelnputFile ( _ilx_globals, tr, 

prz->pSrcApp, 
ILXGL_szSourceFilel, 
ILX_PUT_TO_SOURCE) ; 

// If the remote file doesn't exist, it's OK for sync 

// (but we still do invoke the xlator! ! ) 

if (nRc == ILX_ERR_COM_NOFILE && 

ILTR_phase != I LTR_PHASE_I LX_V3_M0DE ) 

{ 
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IL_REMOVE ( ILTR_szAppFile, sFilelnfo, nTempRC) ; 
nRc = SUCCESS; 

} 

// bail out if we got a nasty error 

else if (nRc != ILX_OK) 
return nRc; 

// Remember temp filename 

IL_STRCPY (szTempRemoteSource, ILTR_szAppFile ) ; 

} 

/ + 

* For ILX_V3 mode operations only, decide whether to load Source records 

* into TIF. For ILX_V4 mode operations this "shortcut" decision is 

* deferred to I LXTRANS\CILTRANS . We always invoke the Source 

* xlator here; this is necessary for TIF to save FanoutMaxima and maybe 

* other parameters. For ILX_V3, for Desktop Apps, 

* we don't try to load Source records if we use a file-based access 

* method for translation and the source file doesn't exist yet. 

* */ 

if (prz->pSrcApp->SysType == I LT B_T Y P E_A P P ) 
{ 

switch (pr z->pSrcApp->AccessType ) 
{ 



case 


ILX 


ACCESS DDE: 


// 


Dynamic Data Exchange 


case 


ILX" 


"ACCESS ODBC: 


// 


ODBC database 


case 


ILX" 


~ACCESS_NEW1 : 


// 


Unassigned 


default : 












break; 






case 


ILX 


ACCESS DBASE: 


If 


dBASE database 


case 


ILX" 


"ACCESS FILE: 


II 


File access 


case 


ILX~ 


"ACCESS PDX: 


If 


Paradox database 


case 


ILX~ 


~ACCESS_CDF: 


// 


Ascii file type 






if (ILTR phase 


ILTR PHASE 


; ILX V3 MODE) 



{ 

// Skip the rest of Phase20 if file doesn't exist 

if (IL_DOESNT_EXIST(ILXGL_szSourceFilel) ) 
return SUCCESS; 

} 

else 

// enable shortcut in I LXTRANSXCILTRANS 

ILTR_Flags I = ILTR_FLAG_SEE_I F_FILE_EXISTS; 

} 

} 

// Now run the translator to export from source . 

nRc - ILX_LoadTranslator (_ilx_globals, tr, prz->pSrcApp->AppLoc ) ; 

if (nRc != SUCCESS) 

{ 

// swallow 'NO DATA' condition ( I LTR_ERR_NORECS ) for SYNC ONLY 

if ( ILTR_nSynchronize && (nRc I LX_ERR_NODATA ) ) 

* 

else 

// some other error, or not doing synchronization... 

return nRc; 

} 

// Make sure that export progress bar reads 100% 

Hfdef ILWIN 

ffifndef _WIN32 

if ( ILXGL_cbProgress NULL && ILXGL_nEnviron == I LX_ENV_NORMAL ) 
SendMessage ( ILTR_hFromBa rWin, I LCT_MSG_U PDATE , 100, 0L); 
ffendif // _WIN32 
ffendif // ILWIN 

return SUCCESS; 

} // do_Phase20_Export FromSource 

/ + 

* do Phase30 Import IntoTa rget (both V3 & V4 ) (called from doTranslate) 
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* + / 

static int do_Phase30_ImportIntoTarget 
( ILX_PGLOBALS _i lx_globals, 
ILX_PRECS prz, 
ILTR_PTRANSL tr, 
int EnvAttribs ) 

{ 

int nRc; 

/* 

* For both ILX_V3 and ILX_V4, set parameters for IMPORT INTO TARGET 
* , + / 

nRc = SetPhaseParams (_ilx_globals, prz, tr, EnvAttribs, ILTR_PHASE30) ; 
if (nRc != SUCCESS) 
return nRc; 

if (prz->pTarApp->SysType == ILTB_TYPE_APP) 
{ 

// if RemoveFile attribute is present, assert it... 

if (ILXGL_remFile || ( ILTR_nAttribs & ILTB_ATT_REMFILE ) ) 
{ 

nRc = RemoveTargetFiieJustOnce (_ilx_globals f tr); 
if (nRc !- ILX_OK> 
return nRc; 

} 

} 

else 
{ 

// Set data file name to temporary handheld file 

nRc = PreFetchTargetFile (_ilx_globals, tr, prz->pTa rApp ) ; 
if (nRc != ILX_OK) 
return nRc; 

} 

if (ILTR_phase ! = ILTR_PHASE_ILX_V3_M0DE) // (ILX_V4) 

{ 

INT16 nextPhase; 

if (ILTR_Flags & ILTR_FLAGS_SKI P_SANITIZING_STEP) 

nextPhase = TI F_PHASE_CONFLICT_RESOLUTION; 
else 

nextPhase = TIF_PHASE_SANITIZING_SOURCE_RECORDS; 

nRc = ILX_ILTIFStartNextPhase (tr, nextPhase); 
if (nRc != SUCCESS) 
return nRc; 

} 

/* 

* Culmination of Step 3 -- Invoke Target Translator. 

* Target Translator is expected to do 3 things: 

* 1 . Sanitize Source Records 
+ 

+ 2. Call ILTIFEndLoad, which causes TIF to do 

* Conflict Analysis and Resolution (CAAR) processing, 

* which may involve use of interactive "ILCR" dialogs. 
*■ 

* 3. Unload TIF records that affect the Target App. 
+■ 

+ . +■ / 

nRc = ILX_LoadTranslator (_ilx_globals, tr, prz->pTa rApp->AppLoc ) ; 
return nRc; 
} // do Phase30 ImportlntoTarget 



/* 

* do_Phase40_ImportIntoSource (V4 SYNC ONLY) (called from doTranslate) 
+ V 

static int do Phase 4 0 Import I ntoSource 
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( ILX_PGLOBALS _ilx_globals, 
ILX_PRECS prz, 
ILTR_PTRANSL tr, 
int EnvAttribs ) 

< 

int nRc; // Return code 

ILX_BOOL bExistie; // Flag whether file exists 

/* 

* Set parameters for IMPORT INTO SOURCE 

* — — * i 

nRc = SetPhaseParams (_ilx_globals, prz, tr, EnvAttribs, ILTR_PHASE4 0) ; 
if (nRc != SUCCESS) 
return nRc; 

/ + 

* If this Backward Import wants to put data into an offboard device, 

* get a TEMP file to store the data in until we get around 

* to sending it down the wire. 

* V 

i f ( prz->pSrcApp->SysType ! = ILTB_TYPE_APP) 

{ 

/* 

* Assign temporary file name on behalf of handheld 
+ device if one not already assigned 

+ * i 

if { IL_STRLEN ( szTempRemoteSource ) == 0} 
nRc = FindTempFile ( _ilx_globals, 

ILXGL_szSourceFilel, 

ILTR_szAppFile, 

SbExists, 

ILX_PUT_TO_SOURCE ); 

else 
{ 

IL_STRCPY ( ILTR_szAppFile, szTempRemoteSource); 
nRc = ILX_0K; 

} 

// Did we succeed in getting temporary file name? 

if (nRc != ILX_OK) 
return nRc; 

} 

nRc = ILX_ILTIFStartNext Phase (tr, TI F_PHASE_UNLOADING_TO_SOURCE ) ; 
if (nRc != SUCCESS } 
return nRc; 

nRc = ILX_LoadTranslator ( _i lx_globals , tr, prz->pSrcApp->AppLoc ) ; - 
return nRc; 
} // do Phase40 ImportlntoSource 



/* 

* do_SyncFinishUp (V4 SYNC ONLY) {called from doTranslate) 

* + 1 

static int do_SyncFinishUp 
( ILTR_PTRANSL tr ) 

{ 

int nRc; 

nRc = ILX_ILTIFStartNextPhase(tr, TI F_PHASE_UNLOADING_TO_HISTORY ) ; 
if (nRc != SUCCESS) 
return nRc; 

// Reopen the TIF file, if it was closed before translation. 

nRc = ILX_ILTI FReopenFile (tr); 
if (nRc != SUCCESS) 
return nRc; 

// A n i s W ell, tell TIF to "wrap it up". 

nRc = ILX_ILTIFSyncFinishUpAndClose (tr); 

return nRc; 
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} // do_SyncFinishUp 

/* 

+ Name: GetRemotelnputFile 

+ Purpose: Get Temporary file Name, and fetch data from 
* an offboard HandHeld device. 



static int GetRemotelnputFile 

( ILX_PGLOBALS _ilx_globals, 
ILTR_PTRANSL tr, 
ILTB_PSYSREC pSys, 
IL_PSTR szRemoteFileName, 
int nPutWhere } 

{ 

// Handheld support not implemented in WIN32 or Macintosh 

ffif defined (_WIN32) | | defined (ILMAC) 

return ILERROR { 0, ILX_ERR_INTERNAL) ; 
#else 

int nRc; 

ILX_BOOL bExists; 

FAR P ROC pFunction; // Pointer to DLL function 

/# ---- 

* Get a temporary file name. The function returns ILX_OK if a 

* temporary file name was created. ILX_N0T0K is returned if the 

* file name already exists. 
+ i 

nRc = FindTempFile ( _ilx_globals, 

szRemoteFileName, 
ILTR_szAppFile, 
SbExists, 
nPutWhere } ; 

if (nRc != ILX_0K) 
return nRc; 

// Make sure the connection we have is the right kind 

if (pSys-> SysType != ILXGL_nConnectedType) 
{ 

// Disconnect from current handheld 

nRc = ILX_Disconnect FromHandheld (_ilx_globals ) ; 
if (nRc) 

return nRc; 

// Establish connection for new type 

nRc = ILX_LoadCommDLL (_ilx_globals, pSys-> SysType, 

pSys-> SysClass, pSys-> Comport, TRUE); 

if (nRc) 

return nRc; 



// Found a new file to retrieve from remote device 

if ( IbExists) 

{ 

// Q et pointer to FILEGET function in communication DLL 

pFunction = GetProcAddress ( ILXGL_hCommDLL, "ILX_GetRemoteFile" ) ; 
if {pFunction == NULL) 
return ILX_ERR_COMDLL; 

// Post progress notification if needed. 

if ( ILXGL^cbProgress ) 

(*ILXGL_cbProgress) ( ILPSF_FILEGET_START, 0L, -1L) ; 

// Call DLL function 

nRc = ( + pFunction) (_ilx_globals, szRemoteFileName, ILTR_szAppFile) ; 

// Post progress notification if needed 

if ( ILXGL_cbProgress ) 

(*ILXGL_cbProgress) ( ILPSF_FIL£GET_END, 0L, nRc); 

if (nRc == ILX_ERR_FILEGET || nRc == ILX_ERR_COM_NOFILE ) 
CHECK_FOR_SHARP_WIZARD (pSys->SysClass, nRc); 

} 
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return nRc; 
ffendif // _WIN32 
} // GetRemotelnput File 

/* 

* Name: PreFetchTa rget Fi le 

* Purpose: get Temporary File Name, and optionally data, for 

* Target System that is an offboard HandHeld device. 



static int PreFetchTarget Fi le 

( ILX_PGLOBALS _i lx_globa Is , 
ILTR_PTRANSL tr, 
ILTB_PSYSREC pTarSys i 

{ 

// Handheld support not implemented in WIN32 or Macintosh 

ffif defined (_WIN32) I I defined (ILMAC) 

return ILERROR ( 0, ILX_ERR_INTERNAL) ; 
ffelse 



int nRc = ILX_OK; // Return code 

ILX_BOOL bExists; // Flag whether file exists 

FAR P ROC pFunction; // Pointer to DLL function 

/* 

* Assign temporary file name on behalf of handheld 

* device if one not already set 

* v 

if ( I L_STRLEN (szTempRemoteTarget ) == 0) 
nRc = FindTempFile { _i lx_globa Is , 

ILXGL_szTa rget File, 
ILTR_szAppFile, 
SbExist s , 

I LX_PUT_TO_TARGET ); 

else 

IL_STRCPY { ILTR_szAppFile, szTempRemoteTarget); 

// Did we succeed in getting temporary file name? 

if (nRc != ILX_OK) 
return nRc; 



/ + 

* Target is a Handheld. If the required TEMP file doesn't exist, 

* decide whether we need to Pre-Fetch it from the Target Handheld. 

* Pre-fetch is necessary, for ILX_V3 mode of operation ONLY!!, 

* if we're going to do IntelliLink Reconciliation. (For ILX_V4 

* operation the Target data has already been fetched -- that's 

* done in PhaselO. We avoid reusing the same temp file so that 

* we have a more complete trail for trouble-shooting. 

4- 

* For other reconciliation methods (e.g. Sharp MERGE) there is no 

* need for us to pre-fetch the file. 

* Unfortunately there is no clean way to determine whether the value 

* of ILTR_nUpdOpt conveys an IntelliLink Reconciliation Option or a 

* non-IntelliLink method. 

* Two ugly options exist — checking I LTB_ATT_SHOWNONE or checking 

* ILTB_ATT_MERGE. Checking the 1 1 LTB_ATT_MERGE ' system attribute is 

* little more than a surrogate for checking whether system is a SHARP 

+ handheld. With the advent of a sync-capable Sharp Zaurus Translator, 

* that check is flawed. 

* Here's why it makes sense to check the SHOWNONE attribute: 

* If a translator doesn't support conflict resolution, the conflict 

* resolution option is hardwired to NONE. Since the user has no choice 

* but to accept the NONE option, we don't bother showing it to him. 

* That's the S HOWN ON E== FALSE case. 

* If SHOWNONE==TRUE, the NONE option is offered to the user, along 

* with one or more alternatives. This implies that the translator 
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* does support conflict resolution. 

* To maintain the effectiveness of the SHOWNONE check, we are careful 

* not to give the SHOWNONE attribute to any system that does its 

* own non-Intel li Link reconciliation. 

* v 

if { (ILTR~phase == ILTR_PHASE_ILX_V3_M0DE ) 
&& (bExists == FALSE) 
&& (ILTR_nUpdOpt != UPD_NONE) 

&& (pTarSys->SysAttrib & ILTB_ATT_SHOWNONE) ) 

{ 

// Make sure the connection we have is the right kind 

if {pTarSys-> SysType != ILXGL_nConnectedType ) 
{ 

// Disconnect from current handheld 

nRc = ILX_Disconnect FromHandheld (_i lx_globals ) ; 
if (nRc) 

return nRc; 

// Establish connection for new type 

nRc = ILX_LoadCommDLL (_ilx_globals, pTarSys-> SysType, 

pTarSys-> SysClass, pTarSys-> ComPort, TRUE); 

if (nRc) 

return nRc; 



// Get pointer to FILEGET function in communication DLL 

pFunction = GetProcAddress ( ILXGL_hCommDLL, " ILX_GetRemoteFi le" ) ; 
if (pFunction NULL } 
return ILX_ERR_COMDLL; 

// Post progress notification if needed 

i f ( I LXGL_cbProgr ess ) 

(*ILXGL_cbProgress) ( ILPSF_FIL£GET_START, OL, -1LJ; 

// Call DLL function 

nRc = ( + pFunction) (_i lx_globals, ILXGL_szTargetFile, ILTR_szAppFile) ; 

// Post progress notification if needed 

i f ( I LXGL_cbProgr ess ) 

(*ILXGL_cbProgress) ( I LPSF_FILEGET_END, OL, nRc); 

if (nRc == ILX_ERR_FILEGET | | nRc -= ILX_ERR_COM_NOFILE ) 
CHECK_FOR_SHARP_WIZARD ( pTa rSys->SysCl ass , nRc); 

// Truncate the file if any error occurred 

if (nRc != ILX_OK) 
{ 

I L_HFILE hFile; 
IL_FILEINFO sFilelnfo; 
int rc; 

IL_OPEN (ILTR_szAppFile, IL_ATTR_WRITE, hFile, sFilelnfo, rc); 
IL_CLOSE (hFile, rc) ; 

// If file doesn't exist, we'll just create a new one 

if (nRc == ILX_ERR_FILEGET | | nRc == ILX_ERR_COM_NOFILE ) 
nRc = SUCCESS; 

i 

} 

return nRc; 
8endif // #ifdef _WIN32 ... Seise ... 
} // PreFetchTargetFile 



/* 

* Name: FindTempFile 

* Purpose: Find and remember temporary file names 

* Parameters: 

* _ilx_globals - Pointer to global data 

* pOriginal - Pointer to original file name 

* pTemp - Pointer to assigned temporary file name 
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+ 



pExists - Pointer to boolean indicating if file already exists 
nPutWhere - Says whether file is for output to Target, Source, or neither 
Returns : 

ILX_OK - Temporary file name returned 
ILX_NOTOK - Unable to get temporary file name 
ILX_ERR_NOMEM - Unable to allocate dynamic memory 
Notes: 

This function allocates temporary file names when either the 
the source or target system is a remote device. Once a temporary 
name is assigned, it is remembered in a file list for later 
retrieval. If the function is called multiple times with the 
same "original" file name, the same temporary file name assigned 
the first time is returned rather than a new file name being 
assigned. These temporary files contain the data that is 
either received directly from the remote device or sent to the 
device (if exporting to the unit) . 



/ 



static int FindTempFile 



( ILX_PGLOBALS _ilx_globals, 
IL_PSTR pOriginal, 
IL_PSTR pTemp, 
ILX_BOOL *bExists, 
INT16 nPutWhere ) 



int i ; 

int rc = ILX_OK; 
DWORD dwSize; 
ILX PFILIST pList 



= NULL; 



// Loop variable 

// Return code 

// Buffer size 

// Pointer to file list 



// Get pointer to file list if a list exists 

*bExists = ILX_FALSE; 

if (ILXGL_hFileList != NULL) 

pList = { ILX_PFILIST) GlobalLock ( ILXGL_hFi leList ) ; 



// — 
for ( 

{ 

//■ 
if 



-- Inspect all files in list for a match on original name 
i = 0; i < ILXGL nFileList; i++) 



Do the original file names match? 

( (IL_STRICMP (pList [i] .szRealName, pOriginal) 
&& (nPutWhere == pList [ i ]. nPutWhere ) 
&& ( ILXGL_bRamCard == pList [ i ] . bRamCa rd ) ) 



== 0) 



if (pTemp != NULL) 

IL_STRCPY (pTemp, pListfi] .szTempName) ; 
*bExists = ILXJTRUE; 
GlobalUnlock ( ILXGL_hFi leList ) ; 
return ILX OK; 



// Release memory handle for file list 

if (ILXGL_hFileList) 

GlobalUnlock ( I LXGL_hFi leList ) ; 

// Did not find matching file name 

ILXGL_nFileList++; 

dwSize = ILXGL_nFileList * sizeof ( ILX_FI LIST ) ; 

// Allocate memory for new or existing file list 

if (ILXGL_hFileList == NULL || ILXGL_nFi leList == 0) 

ILXGL_hFileList = GlobalAlloc (GMEM_MOVEABLE, dwSize); 
else ILXGL_hFileList = GlobalReAl loc ( I LXGL_h Fi leList , dwSize, GMEM_MOVEABLE } ; 
if ( ILXGL_hFileList == NULL) 

return ILX_ERR_NOMEM; 

// Refresh the pointer to expanded file list 

pList = (ILX_PFILIST) GlobalLock ( ILXGL_hFileList ) ; 

// Remember original file name or section code 

i = ILXGL_nFileList - 1; 

IL_STRCPY (pList [ i] . szRealName, pOriginal ) ; 
pList [ i ] . szTempName [0] = '\0'; 
pList ( i ] . bRamCard = ILXGL_bRamCa rd; 
pList [ i ]. nPutWhere = nPutWhere; 

// Get a temporary file name if necessary 
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if {pTemp != NULL) 
{ 

if ( ! ( ILUT_GetTempFileName ( NULL, NULL, pList [ i ] . szTempName, TRUE))) 

return ILX_NOTOK; 
IL_STRLWR (pList[i) . szTempName ) ; 
IL_STRCPY (pTemp, pList(i] .szTempName) ; 



/ / Free memory handle 

GlobalUnlock ( ILXGL_hFileList ) ; 

// Return without error 

return ILX_OK; 

) // FindTempFiie 



/* 

* Name: RemoveTargetFileJustOnce 

* Purpose: Arrange for the REMFILE attribute to cause file removal ONCE. 

* Set option to cause target file to be removed before the first import 

* into it . The file is NOT removed before any subsequent imports into 

* the same file. This means that the NEW callback routine will only be called 

* once per data file when the REMFI LE option has been set. 

+ _ V 

static int RemoveTargetFileJustOnce 

( ILX_PGLOBALS _ilx_globals, // Global data 

ILTR_PTRANSL tr ) // Translation structure 

{ 

IL_PSTR Filename - ILXGL_s2TargetFile; 

ILX_BOOL bAlreadyRemovedOnce - FALSE; 

int i; // Loop variable 

ILX_PFILIST pList; // Pointer to file list 

// Get pointer to file list if a list exists 

if (ILXGL_hFileList != IL_NULL_HANDLE ) 
{ 

pList = (ILX_PFILIST) GlobalLock ( ILXGL_hFileList } ; 

// Inspect all files in list for a match on original name 

for (i =0; i < ILXGL_nFileList ; i++) 
{ 

// Do the original file names match? 

if { IL_STRINGS_EQUAL (Filename, pList [ i ] . szRealName ) 

&& IL_STRING_IS_NULL(pList[i] .szTempName) 

&& {pList[i] .nPutWhere I LX_PUT_TO_TARGET ) ) 

{ 

bAlreadyRemovedOnce = ILX_TRUE; 
break; 

} 

} 

// Release memory handle for file list 

GlobalUnlock { ILXGL_hFileList ) ; 

} 

if (bAlreadyRemovedOnce == FALSE} 
{ 

size_t Lis t Size ; 
ILXGL_nFileList++; 

ListSize = ILXGL_nFileList * sizeof ( ILX_FILIST ) ; 
// Create or Expand file list 

if (ILXGL_hFileList == NULL II ILXGL_nFileList == 0) 

I L_ A L LOC_M E M (ListSize, ILXGL_hFileList, pList); 
else 

IL_REALLOC_MEM (ListSize, ILXGL_hFileList, pList); 

if (pList == NULL) 

return ILX_ERR_NOMEM; 

// Remember original file name or section code 

i = ILXGL nFileList - 1; 
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IL_STRCPY (pList [i j . szRealName, Filename) ; 
IL_MAKE_STRING_NULL (pList[i] . szTempName ) ; 
pList[i] .bRamCard = FALSE; 
pList[i] .nPutWhere = ILX_PUT_TO_TARGET; 

// Free memory handle 

GlobalUnlock ( ILXGL_hFileList ) ; 

} 

if (bAl readyRemovedOnce ) 

ILTR_nAttribs &= { -ILTB_ATT_REMFILE ) ; 
else 

ILTR_nAttribs |= I LTB_ATT_REM FI LE ; 
return ILX_OK; 
} // RemoveTarget File Just Once 



#ifdef ILWIN 

/* 

* Name : FlHookProc 

* Purpose: Callback for message hook 

* Parameters : 

* code - Event type 

* wParam - Unused 

* lParam - Address of MSG structure 

* Returns: TRUE if message is processed, FALSE otherwise 

* v 

LRESULT CALLBACK FlHookProc (int nCode, WPARAM wParam, LPARAM lParam) 
{ 

LRESULT IResult; 

LPMSG lpMsg = { LPMSG ) lParam; 

// If Fl Key was pressed in a dialog box, handle it 

if ( nCode == MSGF_DIALOGBOX 

&& lpMsg->message « WM_KEYDOWN 

&& lpMsg->wParam == VK_F1 } 

{ 

// Retrieve the Help Context for given window 

HWND hWin = GetParent ( lpMsg->hwnd ) ; 

int nContext = (int) GetProp {hWin, ILX_HELP_PROP) ; 

if (nContext != 0) 

{ 

// Invoke context sensitive Help 

WinHelp (hWin, _szHelpFile, HELP_CONTEXT, nContext); 
return {TRUE ) ; 

} 

} 

// Let someone else in the chain process this message 

IResult = CallNextHookEx (_hHook, nCode, wParam, lParam); 
return IResult; 

} // FlHookProc 



/* 

+ Name: KillFlHookProc 



'Name: i\i 1 1 t inooKf roc 

* Purpose: Destroy the message hook procedure used to trap Fl 

* Parameters: None 



* Returns: 



+ + 1 



static void KillFlHookProc (J - 
{ 

/ + 

* Remove the hook installed to trap Fl keys. 
+ */ 

if (_hHook 0) 

UnhookWindowsHookEx (_hHook) ; 

} 



/* 
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* Name: MakeFlHookProc 

* Purpose: Install message hook used to trap Fl key 

* Parameters: None 

* Returns: Sets value of global variable _hHook 

* v 

static int MakeFlHookProc ( HINSTANCE hlnst) 
( 

HOOKPROC lpHookProc; // Hook procedure 

// Get pointer to hook procedure (Winl6 SDK says to use Get ProcAddress ) 

lpHookProc = (HOOKPROC) GetProcAddress (hlnst, " FlHookProc" ) ; 
if (lpHookProc « NULL) 

return ILERROR (11, ILX_ERR_INTERNAL) ; 

/* 

* Register hook procedure that will be used to trap Fl 

* key presses in our dialogs. 
+ 

ffifdef WIN32 

_hHook = SetWindowsHookEx ( WH_MSG FILTER, 

lpHookProc, 
NULL, 

GetCurrentThreadld ( ) ) ; 

ff else 
{ 

// use an entrypoint in TOOLHELP.DLL to derive 

// app instance handle from task info 

ffifdef MAX_PATH 

ffundef MAX_PATH // suppress multiply-defined warning 
ffendif 

ff include <toolhelp.h> 

TASKENTRY te; // task entry information structure 

HTASK hTask; // current (running) task 

// initialize task entry structure 

_fmemset { &te, ' \0* , sizeof (TASKENTRY) J ; 
te.dwSize = sizeof (TASKENTRY); 

// get app instance handle for current task 

hTask = GetCurrentTask (); 

if ( ! TaskFindHandle (&te, hTask) ) 

return ILERROR (12, ILX_ERR_INTERNAL ) ; 

_hHook = SetWindowsHookEx ( WH_MSGFI LTER, lpHookProc, te. hlnst, hTask); 

} 

ffendif 

// complain if we can't set our hook 

if (_hHook == NULL) 

return ILERROR (13, ILX_ERR_INTERNAL) ; 

return SUCCESS; 

} // MakeFlHookProc 

ffendif // ILWIN 
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#ifndef ILTR 

Jtdefine ILTR // Signal header inclusion 

/* 

* Name: ILTR.H 

* Purpose: Header file for the IntelliLink Harness Library {ILTR) 

* Author: Copyright (c) IntelliLink, 1992-1995 



#define ILTR_CURRENT_VERSION 30 

#define ILTR_VERSION_IS_AT_L£AST ( ver ) ( ILTR_version >= ver) 
ffdefine ILTR_VERSION_IS_PRIOR_TO( ver ) { ILTR_version < ver) 

/* 

* ILTR Version Control -- for the ever-expanding "tr" structure 

* Feb 14, 1995 

* It is very important to maintain as broad a range as possible of 

* cross-version compatibility, between ILX/ILWIN versions on the one 

* hand and translator (ILX*.FIL) versions on the other hand. Since the 

* "tr" structure is the primary vehicle for parameter passing between 

* ILX/ILWIN and the translators, it is the focal point for maintaining 

* compatibility. 

* To maintain compatibility, we never re-arrange members inside the 

* "tr" structure, we j ust keep adding new ones at the end. This eats 

* into ah area of reserved space, declared as "char filler[200]" . But 

* as of version 30 the filler area never shrinks -- it's always a 

* 200-byte slack area after the last "active ingredient" in "tr" . 



/ 



When writing translator code that references members of the "tr" 
structure beyond " ILTR_version" , the following guarantees can be 
relied upon: 

- ILX and ILWIN always have and always will zero out the "filler" array. 



+ — 



* _ 



Versions of ILX and ILWIN built before 2/10/95 used a smaller "filler" 
array, which extended just 34 bytes beyond "ILTR_version" . 

Versions of ILX and ILWIN built with ILTR_CURRENT_VERSION in the range 

* 1 through 19 make the "tr" structure extend just 7 bytes beyond 

* "ILTR_cDateType" . (This includes ILWIN . EXE version 3.41, since it 

* was built with "petrified" headers dating from 12/1/95.) 

* - ILX and ILWIN always have and always will set the value of 

* ILTR_version . All ILX and ILWIN versions built prior to 2/10/95 set 

* ILTR_.version=0 implicitly by zeroing the "filler" array, which at that 

* time included the space now occupied by ILTR_version . 

* - References beyond the end of the "tr" structure, as allocated by 

* ILX or ILWIN, will cause a GPF. 

* Here is an example showing how translator code can "guard" the use a 

* BOOLEAN member of "tr" which was first invented in ILTR version 73: 

* if (ILTR_VERSION_IS_AT_LEAST(73) ) 

* // ILTR_f utureBool is defined and can be referenced 

* else 

* // ILTR_f utureBool is not defined. Reference may cause GPF. 

* // zero value does NOT mean FALSE!! 



Please follow the convention of using the ILTR_VERSION_IS_AT_LEAST ( ) 
macro for such checking, with no embedded spaces in the macro 
invocation, so that the following type of search will work correctly 

grep ILTR_VERSION_IS_AT_LEAST ( 73 ) * . c* 

V 



// Special handling for C++ code 

flifdef cplusplus 

extern "C" { 
ffendif // cplusplus 
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/* 

* Header files . 

* */ 

// Windows headers 

ffifdef ILWIN 

#if ! defined (_>IINDOWS) 
ff include <windows . h> 

ffdefine WINDOWS 

ffendif // WINDOWS 

ffinclude "ilctl.h" 
# end if // ILWIN 

// IntelliLink headers 

ffinclude "iltrerr.h" 
ffinclude "iltime.h" 
ffinclude "ilutil.h" 
ffinclude "ilst.h" 



/ 



* Next definition tells ILIF not to use a Global Variable for it's 

* "play area". Instead the "play area" is dynamically allocated and 

* freed in EXPORT. C and IMPORT. C, to avoid reentrancy problems. 



7 



ffdefine ILIF GLOBALS PTR ILTR pILIF Globals 



ffinclude 
ffinclude 
#include 
ff include 
ff include 



"ilif .h" 

"iliferr.h" 

"iltb.h" 

"ilrpt.h" 

"ilcr.h" 



// Declare pointer to Translation structure 

typedef struct _transl IL_DIST + ILTR_PTRANSL; 

ffinclude "iltif.h" 



/ 



Symbolic constants. 
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// 


Size 


limits 








ffdef ine 


ILTR 


MAX 


FIELDLENGTH 


32766 


ff 


Max STRLEN for a field value 


#def ine 


iltr" 


MAX 


AREACODE 


32 


ff 


Size of area code 


ffdefine 


iltr" 


MAX 


"country 


4 


ff 


Size of count ry code 


ffdef ine 


iltr" 


max" 


'defphone 


2 


ff 


Size of default indicator 


ffde f ine 


iltr' 


MAX 


"phonext 


17 


ff 


Size of phone extension 


ffdef ine 


iltr' 


MAX 


'flags 


10 


ff 


Number of field flags 


ffdef ine 


iltr" 


MAX 


"flderr 


10 


ff 


Max number of log errors 


ffdefine 


iltr" 


MAX* 


"items 


25 


ff 


Max field items 


ffde f ine 


iltr" 


max" 


"phone 


101 


ff 


Size of phone number 


ffde f ine 


iltr" 


_MAX__ 


^PREFIX 


17 


ff 


Size of field prefix 


ffde f ine 


iltr" 


max" 


"pswd 


25 


ff 


Size of password 


ffdef ine 


iltr' 


MAX 


TIMER RECS 


10 


ff 


Default records per timer 


ffdefine 


iltr' 


MAX 


SECT 


MAX APP 


NAME// 


Size of a section 


ffdef ine 


iltr' 


MAX 


TERM 


3 


ff 


Size of line terminator 


ffdefine 


iltr" 


"max" 


TYPEDESC 


21 


ff 


Size of type description 


ffdefine 


iltr" 


_MAX~ 


SST_COUNT 


20 


ff 


Max ff of subtypes for one 












ff 


section type for One App 


ffdefine 


ILTR_ 


_MAX_ 


TAG_LEN 


19 


ff 


max STRLEN of tag 



// Filter-speci f ic limits 

ffdefine I LTR_MAX_VALUE 256 

#define I LTR_MAX_COND 28 

ffdefine ILTR MAX CONDNUM 41 



// Size of filter item value 

// Size of filter item condition 

// Num of filter item conditions 



/* 

* System-defined fields: these are fields that are used internally 

* but don't appear in the Field Lists that come from TABLES. ITB or 

* ' WhatFields ' . 

+■ +■ i 

ff System-defined HIDDEN fields defined in ILRPT.H 

ffifndef ILRPT // Only include header once 

ffdefine ILTR MAX FLDNAME 31 // Max size of field names 
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ffdefine ILTR_REP_BASIC 

{(define I LT R_R E P_X DAT E 

ffdefine I LT R_A P P_ DATA 
ffendif 



"_repBasic" // 
n _repExcl" // 
" appData" // 



Basic repeat field 
Exclusion date field 
Application binary field 



// another System-defined HIDDEN field // this field conveys a record's 

ffdefine ILTR SUB TYPE " subType" // original section subType 



// Field-list-defined HIDDEN fields for 

Jfdefine I LT R_ FL D_R E COR D_I D "_RecordID" 
ffdefine I LT R_ FL D_UN I QU E_I D "_UniqueID" 
ffdefine ILTR FLD DELTA " Delta" 



Sync. Capable translators 
// Record ID hidden field 
// Unique ID hidden field 
// for "Fast Sync" Add/Chg/Del 



// counts of System-defined fields 

ffdefine I LTR_EXTRA_FI ELDS_ALWAYS 2 // for all sections 

ffdefine ILTR_EXTRA_FI£LDS_FOR_REPEAT 2 //for Appts & Todos 

// Values for use in the "_Delta" field, for Fast Sync, 

// to answer the question "What has happened since the last sync?" 

ffdefine ILTR_DELTA_ADD "A" // this record has been ADDED 

ffdefine ILTR_DELTA_CHANGE "C" // this record has been CHANGED 

ffdefine ILTR DELTA DELETE "D" // this record has been DELETED 



// Character values used in 

ffdefine ILTR_CDELTA_ADD 'A' 

ffdefine ILTR_CDELTA_CHANGE 'C 

ffdefine ILTR CDELTA DELETE ' D' 



Delta" field, for Fast Sync, 

// this record has been ADDED 
// this record has been CHANGED 
// this record has been DELETED 



// String constants 

ffdefine ILTR_RES_FILE 
ffdefine ILTR_DEFAULT_TERM 
ffdefine ILTR ENV PROP 



"ILX.STR" 
"\r\n" 



// Resource file name 

// Default line terminator 



"ILTR ENV PROP" // Property name of ILTR ENV value 



// 
// 
// 



"Data" directory name -- sub-directory under the IntelliLink 
installation directory where we keep persistent internal DATA 



files (NOT settings files or LOG 



ffdefine ILTR DATA DIR 



"ILDATA" 



files or TMP files or USER- data) 
// IntelliLink Data Directory 



// 



Command types - used only in DOS command file 



ffdefine 


ILTR 


CMD 


APPFILE 


"APPFILE" 


// 


Application file 


ffdefine 


ILTR" 


"CMD 


"CDFNAMES 


"CDFNAMES" 


// 


CDF names in first record 


ffdefine 


iltr" 


~CMD~ 


"CDFSEP 


"CDFSEP" 


// 


CDF field sepa rator 


ffdefine 


iltr" 


~CMD_ 


"COMMAND 


"COMMAND" 


// 


Command file 


ffdefine 


ILTR - 


~CMD 


"direction 


"DIRECTION" 


// 


Translation direction 


ffdefine 


iltr" 


~CMD~ 


"exists 


"EXISTS" 


// 


File exists flag 


ffdefine 


iltr" 


~CMD~ 


"function 


"FUNCTION" 


// 


Function type 


ffdefine 


iltr" 


~CMD_ 


"log 


"LOG" 


// 


Log file flag 


ffdefine 


iltr" 


~CMD 


"log file 


"LOGFILE" 


// 


Log file 


ffdefine 


iltr" 


"CMD 


"range 


"RANGE" 


// 


Future or all 


ffdefine 


iltr" 


"CMD 


"reconcile 


"RECONCILE" 


// 


Reconciliation option 


ffdef ine 


iltr" 


"CMD 


"source 


"SRCAPP" 


// 


Source application ID 


ffdefine 


iltr" 


"CMD 


"target 


"TARAPP" 


// 


Target application ID 


#def ine 


iltr" 


~CMD 


"type 


"TYPE" 


// 


File type 


ffdefine 


iltr" 


~CMD 


"W0RKFILE 


"WORKFILE" 


// 


Intermediate file 



// 


Control character 


constants 






ffdef ine 


ILTR BSLASH CHAR 


•w 


// 


BACKSLASH 


ffdef ine 


ILTR_BSLASH_STR 


"\\" 


// 


BACKSLASH string 


ffdef ine 


ILTR COLON CHAR 


i . i 

* 


// 


COLON 


ffdefine 


ILTR COLON STR 


if * tl 

* 


// 


COLON string 


ffdefine 


ILTR CR CHAR 


Oxd 


// 


RETURN 


ffdefine 


ILTR_CR_STR 


"\r" 


// 


RETURN string 


ffdefine 


ILTR CRLF STR 


"\r\n" 


// 


CRLF pair 


ffdefine 


ILTR CTRLA CHAR 


'\a' 


// 


CTRL-A 


ffdef ine 


ILTR CTRLB CHAR 


•\b' 


// 


CTRL-B 


ffdefine 


ILTR CTRLZ CHAR 


'\z' 


// 


CTRL-Z 


ffdef ine 


ILTR EOS CHAR 


■\xFF' 


// 


Internal END-OF-LINE char 


ffdef ine 


ILTR EOS STR 


"\xFF" 


// 


same thing as a string 


#def ine 


ILTR LF CHAR 


Oxa 


// 


NEWLINE 


ffdef ine 


ILTR NULL CHAR 


1 \0 1 


// 


NULL 


ffdefine 


ILTR NULL STR 


"\0" 


// 


NULL string 


ffdefine 


ILTR PERIOD CHAR 


* 


// 


PERIOD 


ffdef ine 


ILTR PERIOD STR 


* 


// 


PERIOD string 


ffdef ine 


ILTR SPACE CHAR 


t t 


// 


SPACE 


ffdefine 


ILTR SPACE STR 


ti n 


// 


SPACE string 
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ffdefine I LT R_T AB_CHAR 
ffdefine ILTR_TAB_STR 
ffdefine QUOTE_OFF 
ffdefine QUOTE ON 



// 

ffdef ine 
ffdefine 
ffdef ine 
ffdef ine 
ffdef ine 



Processing stages 

ILTR_BEGIFT 

ILTR_WHILE 

ILTR_END 

ILTR_QUIT 

ILTR DONE 



0x9 
"\t" 
0x0000 
OxFFFF 



600 
601 
602 
603 
604 



// TAB 

// TAB string 

// Quote off indicator 

// Quote on indicator 



// Begin stage 

// Whiie loop 

// End stage 

// Quit stage 

// Done stage 



/ 



* Phases of SmartMerge and Synchronization Jobs. 

* Nonzero values are put into "ILTR_phase" for ILX_V4 operation only. 

* But other values are used locally in ilx v3\xlate.c for both V3 and V4 . 



/ 



ffdefine ILTR_PHASE_ILX_V3_MODE 00 

ffdefine ILTR_PHASE01 01 

ffdefine ILTR_PHASE05 05 

ffdefine ILTR_PHASE10 10 

ffdefine ILTR_PHASE20 20 

ffdefine ILTR_PHASE30 30 

ffdefine ILTR PHASE40 40 



// Selects ILX_V3 (ILIF-based) operation 

// loading field lists (V3+V4) 

// getting field defns from SOURCE (V4) 

// exporting from TARGET (V4) 

// exporting from SOURCE (V3+V4) 

// importing into TARGET (V3+V4) 

// importing into SOURCE {sync only)(V4) 



/ / Windows message I Ds 

ffdefine ILTR_BEGIN_MSG 
ffdefine I LT R_WH I LE_MSG 
ffdefine ILTR_END_MSG 
ffdefine I LT R_QU I T_MSG 
ffdefine ILTR DONE MSG 



WM_USER+ILTR_BEGIN 
WM_USER+ILTR_WHILE 
WM_USER+ILTR_END 
WM_U S E R + 1 LT R_QU I T 
WM USER+ILTR DONE 



// Mi seel laneous constants 

ffdefine ILTR NOT USED 



0 



// Begin message type 

// While message type 

// End message type 

// Quit message type 

// Done message type 



// Field not used 



/ 



MapField field index values for unmapped fields 



7 



ffdef ine 


ILTR UNMAPPED 


(-1) 




// 


ffdef ine 


ILTR_UNMAPPED_BUT_ 


TAGGED 


0x4000 


// 


// 


Return status from 


Import 


and Export 




ffdef ine 


ILTR SKIP WRITE 




0x0001 


// 


ffdefine 


ILTR SKIP METER 




0x0002 


// 


ffdefine 


ILTR SKIP LOG 




0x0004 


// 


ffdefine 


ILTR SKIP SHOW 




0x0006 


// 


ffdef ine 


ILTR SKIP BOTH 




0x0007 


// 


ffdef ine 


ILTR SKIP ALL 




0x0007 


// 


// 


Translation attributes. 






ffdef ine 


ILTR_ATT_REMFILE 




0x0001 


// 


// 


Filter defines 








ffde f ine 


IL FILTER ILLEGAL 


-1 




// 


ffde f ine 


IL FILTER BLANK 


-2 




// 


ffde f ine 


IL FILTER OK 


-3 




// 


ffde f ine 


IL FILTER NOMEM 


-4 




// 


ffdefine 


IL FILTER NOOPEN 


-5 




// 


// 


Random Flag bits passed in ILTR Flags 





Do not write out record 



Do not update meter or log 



// Remove file before import 



Filter is illegal 
Filter is blank 
Filter is OK 



/ 



* The KEEP FILES flag causes us NOT to clean up temporary files 

* at the end of a job. This includes intermediate files {ILIF & TIF) 

* as well as files transferred to or from handheld units. 

+ */ 



ffdefine ILTR FLAG KEEPFILES 



OxOOOOOOOlL 



/ 



The SKIP_SANITIZING_STEP flag, applicable only to ILX_V4 jobs, 
says that Source Data Records emitted by the Source Translator 
will NOT be "sanitized" by the Target Translator before Conflict 
Resolution is performed. This flag affects the behavior of TIF, 
during Source Export (PHASE20), and affects the behavior of 
IMPORT. C, during Target Import { PHASE30 ) . 
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* v 

ffdefine ILTR_FLAGS_SKIP_SANITIZING_STEP 0x0OOO00O2L 

/ + 

* The ILTR_NO_SYNTHETIC_MATCHES flag is used to turn off the SYNC 

* feature that matches up Recurring Master items with Fanned Instances. 
* -/ 

ffdefine ILTR_NO_SYNTHETIC_MATCHES 0x00000004L 

/ + 

* The I LTR_FLAG_ FANNING flag is set and cleared by ILRepeatltem 

* at the start and conclusion of a fanning operation. 

+■ — — _ _ * i 

ffdefine ILTR_FLAG_FANNING 0x00000008L 

/* 

* The ILTR_FIELD_LEVEL_LOGGING flag is used to turn on very verbose 

* logging of field values as they are processed by ILXTRANS. 

* v 

ffdefine ILTR_FIELD_LEVEL_LOGGING OxOOOOOOlOL // 16. 

/ + 

* The I LTR_DISABLE_SST_TAGGING flag tells the harness not to attach 

* Section SubType tags to user-visible fields in application databases. 

* */ 

ffdefine I LTR_DI SABLE_SST_TAGG I NG 0x00000020L // 32. 

/* 

* The ILTR_DISABLE_SST_FILTERING flag tells the harness not to 

* filter out any records due to Section SubType mismatches. 

+ _ V 

ffdefine ILTR_DISABLE_SST_FILTERING Ox00000040L // 64. 

/* 

* The I LTR_DISABLE_SST_I F_UNMAPPED flag tells the harness to turn off 

* SST Tagging & Filtering whenever a TAGGED field is UNMAPPED. When 

* this flag is NOT used, special treatment is accorded to UNMAPPED 

* TAGGED fields, so that most of the world is duped into thinking that 

* such fields ARE MAPPED. When this flag IS used, all such special 

* treatment is shut off entirely, and all of SST is then at the mercy 

* of field mapping. Recommendation: leave this flag OFF. 

+ + 1 

ffdefine ILTR__DISABLE_SST_I F_UNMAPPED 0x00000080L // 128. 

/* 

* The ILTR_FLAG_MACINTOSH flag says we're running on a Macintosh! 

+ */ 

ffdefine I LTR_FLAG_MACINTOSH OxOOOOOlOOL // 256. 

/* 

* The ILTR_FLAG_MIXED_WIN3216 flag says that a WIN32 engine is running 

* a translation where one or both of the translators are 16-bit. 

* V 

ffdefine ILTR_FLAG_MIXED_WIN3216 0x00000200L // 512. 

/* 

* The I LTR_FLAG_A P PEN D_TO_LOGS flag tells components such as TIF that 

* they should keep appending to existing logfiles rather than 

* overwriting them. 

* v 

ffdefine ILTR_FLAG_APPEND_TO_LOGS Ox00000400L // 1024. 

/ + 

* The ILTR_FLAG_SOURCE_DEL_OUTRANGE flag, for Synchronization, tells 

* TIF that the user wants all records that fall outside the Date Range 

* deleted from the Source Application. 

+ + / 

ffdefine ILTR_FLAG_SOURCE_DEL_OUTRANGE Ox00000800L // 2048. 

/* 

+ The I LTR_FLAG_TARGET_DEL_OUTRANGE flag, for Synchronization, tells 

* TIF that the user wants all records that fall outside the Date Range 

* deleted from the Target Application. 

* / 

ffdefine ILTR FLAG TARGET DEL OUTRANGE OxOOOOlOOOL // 4096. 
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/* 

* The ILTR_FLAG_UNATTENDED_MODE flag is derived from the ILX flag 

* ILX_FLAG_UNATTENDED_MODE . These flags are to be set when the user 

* is not physically present {may be dialing in remotely) and cannot 

* respond to ANY dialogs or message boxes. First used by ILPILOT. 

* -r V 

ffdefine ILTR_FLAG_UNATTENDED_MODE Ox00002000L // 8192. 

/* 

* The ILTR_FLAG_ENGINE_TRACE flag is used to turn on tracing of 

* engine operations. Trace output is written to ILERR0RS.LOG. 

* V 

ffdefine I LTR_FLAG_ENGINE_TRACE Ox00004000L // 16384. 

/* 

* The ILTR_FLAG_FIRST_XLATE flag, set by xlate.c, is TRUE for the first 

* source-to-target translation in a session, and FALSE for any 
*■ subsequent translations done in the same session. 

+ + / 

ffdefine ILTR_FLAG_FIRST_XLATE 0xO0008000L // 32768. 

/* 

* Set this flag to cause an IMPORT operation to call the Chooser. 

+ ■*- / 

ffdefine ILTR_FLAG_IMPORT_SELECTED OxOOOlOOOOL // 65536. 

/* 

* The ILTR_FLAG_SEE_IF_FILE_EXISTS flag, set by xlate.c, tells code 
+ in I LXTRANSXCILTRANS to do an existence check on ILTR_szAppFile, 

* and to avoid calling the datastore "Open" function if the file 

* does not exist. This flag is applicable to EXPORT phases only!! 

* */ 

ffdefine ILTR_FLAG_SEE_I F_FILE_EXISTS 0x00020000L // 131072. 

/ + 

* The ILTR_FLAG_REMOTE flag is set when we're operating under a remote 

* server, serving a client (e.g. under Tranxit97). 

* */ 

#define I LT R_ FLAG_REMOT E Ox00040000L // 262144. 

/ + 

* The Quit Flag bit, in ILTR_uDlgProgFlags, is used under Windows to 

* make sure that we break out of the translation Message Loop when 

* the time comes, even if the ILTR__QUIT_MSG is dispatched by someone 

* else's Message Loop (and therefore isn't seen by our Message Loop.) 
+ +• / 

ffdefine I LT R_QU I T_ FLAG 0x0010 

ffdefine I LT R_QU I T_ FLAG_I S_S ET ( ILTR_uDlgProgFlags & I LT R_QU I T_ FLAG ) 

ffdefine SET_ILTR_QUIT_FLAG ILTR_uDlgProgFlags != I LT R_QU I T_ FLAG 

ffdefine C LE AR_I LT R_QU I T_ FLAG ILTR_uDlgProgFlags &= - 1 LT R_QU I T_ FLAG 

/* 

* The following 1 PRIO_TYPE* values are used in the ILTR_TodoPriorityType 

* member of the "tr" structure to control handling of ToDo Priorities by 

* TIF and by translators. 

+■ 

* Under type "NUMERIC_0" translators exchange numeric priorities that 

* are normalized into the range 0-99. In many cases normalization is done 

* by subtracting 1 from the native value. 

* Under type "NUMERIC_1" translators exchange un-no rma 1 i zed 

* numeric priorities. 



+ 



Under type "PASS THRU" all priority values are passed through unmodified 



Type "SHARP_SPLUS" allows Sharp Wizards and Schedule* 7 . 0 to exchange 

+ values 1-36, representing S+ display values 1-9, A-Z, and Z9. 

+ j. . *■ / 

ffdefine ILTR_PRIO_TYPE_NUMERIC_0 0 
ffdefine ILTR_PRIO_TYPE_NUMERIC_l 1 
ffdefine ILTR_PRIO_TYPE_PASS_THRU 2 
ffdefine ILTR_PRIO_TYPE_SHARP_SPLUS 3 

// Date defines 
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ffdefine MAX_DATE_SPEC 
ffdefine MAX SEP 



11 
3 



// Max size of date specification 
// Max size of date separator field 



// 

#def ine 
ffdef ine 
ffdef ine 
ffdef ine 



"Must match" flags for 
ILTR_MATCH_COUNTRY 
I LTR_MATCH_AREA 
ILTR_MATCH_PHONE 
ILTR MATCH EXT 



ILComparePhone 
0x80 
0x04 
0x02 
0x01 



// Country codes must match 

// Area codes must match 

// Phone number must match 

// Phone extension must match 



* Types 



7 



typedef INT16 ILTR_ENV; 

#define I LTR_ENV_I LWIN 0 

#define I LTR_ENV_LITE 1 
ffdefine I LT R_EN V_MAG I CXC HAN G E 2 

ffdefine I LT R_ENV_WI N PA D 3 

ffdefine ILTR_ENV_ACHATES A 

typedef INT16 ILTR_ACTION; 

ffdefine I LTR_ACT_ADD 0 

#define I LT R_ACT_ FAN 1 

ffdefine I LTR_ACT_IGNORE 2 

ffdefine I LTR_ACT_READ 3 

ffdefine I LT R_ACT_R E P LAC E 4 

#define ILTR_ACT_SKI P 5 

ffdefine I LT R_ACT_U P DAT E 6 

ffdefine ILTR_ACT_FILTER 7 

ffdefine I LTR_ACT_RANGE 8 

#define ILTR ACT DELETE 9 



ffdefine ILTR ACT LOADED INTO TIF 19 



// IntelliLink environments 

// IntelliLink for Windows 

// IntelliLink Lite 

// MagicXChange 

// Microsoft WinPad 

// Intel Achates 

// Action types 

// Add an item 

// Fan an item 

/ / Ignore an item 

// Read an item 

// Replace an item 

// Skip an item 

// Update modified fields 

// Filter an item 

// Fail range check 

// Delete an item (synchro) 

// when *cbPut() writes to TIF 



// Direction of Merge 



typedef 


INT16 ILTR DIRECTION; 




// 


Direction type 


ffdef ine 


ILTR IMPORT 


0 




// 


Import operation 


ffdefine 


I LT REEXPORT 


1 




// 


Export operation 


// 


Types for password dialog 








typedef 


INT16 ILTR PASSWORD TYPE; 




// 


Password dialog type 


ffdefine 


ILTR PSWD FILE 


PSWD 0 




// 


File password 


ffdefine 


ILTR PSWD USER" 


NAME 1 




// 


User name 


ffdefine 


ILTR PSWD USER 


'PSWD 2 




// 


User password 


// 


Function or category types 


(defined 


in 


terms of ILTB types 


typedef 


ILTB SEC 


ILTR FUNCTION; 


// 


Category type 


ffdefine 


ILTR APPT 


ILTB SEC 


APPT 


// 


Appointments 


ffdef ine 


ILTR_DATA 


ILTB_SEC[ 


]db 


// 


Database 


ffdef ine 


ILTR MEMO 


ILTB SEC" 


"memo 


// 


Memos 


ffdef ine 


ILTR PHONE 


ILTB SEC" 


"phone 


// 


Phone book entries 


ffdefine 


ILTR TODO 


ILTB SEC" 


"todo 


// 


Todo items 


ffdef ine 


ILTR GROUPS 


ILTB SEC" 


"groups 


// 


Phone Groups or Lists 


ffdef ine 


ILTR OUTLINE 


ILTB SEC" 


"outline 


// 


Used for ECCO outlines 


ffdefine 


ILTR CALL 


ILTB SEC" 


"call 


// 


Calls 


ffdefine 


ILTR SPREAD 


ILTB SEC" 


"spread 


// 


Spreadsheet 


#def ine 


ILTR EXPENSE 


ILTB SEC~ 


"EXPENSE 


// 


Expense 



// Appointment Range 

typedef I LX_RANGE ILTR_RANGE; // Appointment range 

ffdefine ILTR_RANGE_ALL ILX_RANGE_ALL // All 

ffdefine ILTR_RANGE_FUTURE I LX_RANGE_FUTURE // Future 

ffdefine ILTR RANGE NONE ILX RANGE NONE // None 



/* 

+ These values are provided only for backward compatibility for 

* older translators (before table-driven stuff was invented). 

* The values must correspond with the values in ILTB_REC, which 

* is defined in iltbl.h. Do not add new values here or change 

* them (unless of course corresponding changes are being made 

* to ILTB_REC for some inane reason). These should be obsoleted 

* someday. 

*- _ + 1 

typedef ILX_OPTION ILTRJJPDOPT; // Update option settings 

ffdefine UPD REPLACE ILX OPT REPLACE // Replace existing item 
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ifdef ine 


UPD 


IGNORE 


ILX 


OPT 


IGNORE 


// 


Ignore incoming item 


Ifdef ine 


upd" 


"notify 


ILX~ 


"opt 


NOTIFY 


// 


Notify user of conflict 


tfdef ine 


upd~ 


"insert 


ILX~ 


"opt" 


"insert 


// 


Insert duplicate item 


fidef ine 


upd" 


"update 


ILX~ 


"opt 


"update 


// 


Update selected fields 


Sdef ine 


upd" 


"merge 


ILX" 


"opt" 


MERGE 


// 


Merge new items (Sharp) 


Sdefine 


upd" 


"cancel 


ILX" 


"opt" 


"ACCEPT 1 


// 


Cancel current translation 


Sdefine 


upd" 


"verify 


ILX" 


"opt" 


"ACCEPT 2 


// 


Recheck for conflicts 


#def ine 


upd" 


"none 


ILX" 


"opt" 


NONE 


// 


No reconciliation 


#def ine 


upd" 


"delete 


ILX" 


"opt" 


DELETE 


// 


Delete record 


#define 


upd" 


"delta ack 


ILX* 


"opt" 


DELTA ACK 


// 


a FastSync Unload Action Code 


/* 















Enumerated types . 



typedef enum 
( 



ILTR 
ILTR* 

iltr" 
iltr" 



MATCH 

"match' 
"match* 
"match" 



FAIL = l f 

"NONE = 2, 

"FOUND = 3, 

CONFLICT^ 4 



/ 



// Match return values 

// Internal failure 

/ / No match found 

// Match found 

// Conflict found 



} ILTR MATCH; 



typedef enum 
{ 

ILTR_ACCEPT, 
ILTR_ADD, 
ILTR_DISCARD, 
ILTR_EXIT, 
I LT R_OVE RWR I T E , 
I LT R_R EVE RTAL L , 
I LT R_S AVE ALL , 
ILTR_CONTINUE 
} ILTR NOTIFY CHOICE; 



// Notification options 

// Accept new data 

// Add new data 

// Discard new data 

// Abort reconciliation 

// Replace existing data 

// Revert to original fields 

// Save all new fields 

// View next conflict 



typedef enum 
{ 

ILTR_LEADING 
ILTR_TRAILING 
ILTR_BOTH 
} ILTR SIDES; 



1, 
2, 

3 



// Sides to strip blanks from 

// Strip leading blanks 

// Strip trailing blanks 

// Strip blanks from both sides 



typedef enum 
{ 

I LTR_SORT_BY_LABE L , 
I LTR_SORT_BY_N AME 
} ILTR SORT ORDER; 



// Field sort order 

// Sort fields in label order 
// Sort fields in name order 



/ + 

* Data type definitions. 

* */ 

// Field name structure 

typedef st ruct 
{ 

BOOL16 Mapped; // Is field mapped? 

char Text [ I LTR_MAX_FLDNAME ] ; // Field name 

INT16 ItemNo; // Item Number of field 

} ILTR_LSTITEM, IL_DIST * ILTR_PLSTITEM; 

/ / Field list structure 

typedef struct 
( 

INT16 Count; 
IL_HANDLE handle; 
ILX32_16PAD(pad_01, 2) 
ILTR_PLSTITEM Name; 
} ILTR FLDLST, IL DIST +ILTR LSTPTR; 



// Number of fields in list 

// Handle to field list 

// Padding for tr purposes 

// List of field names 



typedef INT16 ILTR_NDX; 

// Entry in field map 

typedef struct 
{ 



// 



Field attributes 



// Field node index 
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char IntName [ ILTR_MAX_FLDNAME] ; 


// 


Internal field name 


char ExtName [ILTR MAX -FLDNAME] ; 


// 


External field name 


INT16 ItemNo; 


// 


Item number within field 


char Type; 


// 


Field type 


long Width; 


// 


Field width 


INT16 Term; 


// 


Field terminator 


char Label [ILTfT MAX PREFIX] ; 


// 


Optional field prefix 


char TypeDesc [ ILTR_MAX_TYP£DESC] ; 


// 


Optional type description 


INT16 Assoc; 


// 


Index of associated field 


unsigned long Attribs; 


// 


Field attributes 



// Index numbers used for list box operations 

ILTR NDX Index; // Index number of node 



// Pointer to next field 
// Pointer to prior field 
// Pointer to mapped field 



// Pointers to fields 

ILTR_NDX NextField; 
ILTR_NDX PriorField; 
ILTR_NDX MapField; 
} ILTR_FIELD, IL_DIST * ILTR_FLDPTR; 

// Field map table 

typedef struct 
{ 

INT16 nSource; 
INT16 nTarget; 
INT16 nMapStatus; 
char sName [ ILTR_MAX_FLDNAME ] ; 
ILTR_NDX ApptDate; 
ILTR_NDX ShowSource; 
ILTR_N DX ShowTarget; 
ILTR_NDX TopSource; 
ILTR_N DX TopTarget; 
IL_HANDLE hSource; 
ILX32_16PAD{pad_01, 2) 
IL_HAN DLE nTarget; 
ILX32_16PAD(pad_02, 2 ) 
ILTR_FLDPTR pSource; 
ILTR_FLDPTR pTarget; 
) ILTR_FLDMAP, IL_DIST * ILTR_PFLDMAP; 

// Intermediate record structure 

typedef struct 
{ 

UINT16 width; 
IL_HANDLE handle; 
ILX32_16PAD(pad_01, 2) 
IL_PSTR buffer; 
} ILTR_BUFFER, IL_DIST * ILTR_PBU FFER; 

// sst (Section SubType) LIST struct 

typedef struct 
{ 

INT16 sstCount; 

BYTE sstList [ILTR_MAX_SST_COUNT] ; 

} 

ILTR_SSTLIST, IL_DIST * ILTR_PSSTLIST; 

// Field list information structure used ONLY within module LOADFLDS.C 

typedef struct 
{ 



// Count of source fields 
// Count of target fields 
// Map status indicator 
// Template name 
// Index of appt date field 
// Index of source "show" field 
// Index of target "show" field 
// Index of top source field 
// Index of top target field 
// Handle to source fields 
// Padding for tr purposes 
// Handle to target fields 
// Padding for tr purposes 
// Pointer to top source field 
// Pointer to top target field 



// Al located size 

// Handle to record 

// Padding for tr purposes 

// Pointer to buffer 



ILTB_ID nOriginalSourcelD; 
ILTB_ID nOriginalTargetID; 
INT16 nExt ra Fields ; 

ILTR_FLDMAP sFieldMap; 
ILTR_BUFFER sSourceExportCharMap; 
ILTR_BUFFER sSourcelmportCharMap; 



// Original source application ID 

// Original target application ID 

// Number of fields added to field lists 

// Field map table 

// Source Export CharMap buffer 



_ // Source Import CharMap buffer 

ILTR_SSTLIST sOriginalSourceSSTList; // O. Source List of Section SubTypes 
ILTR_SSTLIST sOrigina ITa rgetSSTList ; // 0. Target List of Section SubTypes 
ILTR_BUFFER sTargetExportCharMap; // Target Export CharMap buffer 
ILTR_BUFFER sTargetlmportCharMap; // Target Import CharMap buffer 
} ILTR_TABLEINFO, IL_DIST + 1 LT R_ PT AB L E I N FO ; 

// Structure used to hold field errors 

typedef struct 
{ 
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INT16 nError; 

char szField [ ILTR_MAX_FLDNAME] ; 
} ILTR FLDERR, IL DIST + ILTR PFLDERR; 



/ / Error code 
// Field name 



// Structure passed via 

typedef struct 
{ 

IL_PSTR pszAppFile; 
ILTB_ID nCharMapID; 
ILTB_PHNDL phSysTable; 
IL_LPHANDLE phFldList; 
ILPINT pnFldCount; 
char cDelimiter; 
IL_PANY pXtraData; 
} ILX WFParams, IL DIST *ILX PWFParams; 



pointer to translator ILWhatFieldsEx function 

// ILWhatfields parameter block 

// Pointer to data file name 

// ID of character map 

// Pointer to system table handle 

// Pointer to field list handle 

// Pointer to field count 

// ASCII delimiter character 

// Pointer to translator XtraData 



Structure passed via pointer to ILGetPassword function 



typedef struct 
{ 

IL_PSTR pszAppFile; 
IL_PSTR pszSectName; 
IL_PSTR pszPassword; 
} ILX_PswdParams, IL_DIST *ILX_PPswdParams; 

// Declare pointers to Repeat structure 

typedef struct _repeat IL_DIST * I LTR_PRE PEAT ; 



// ILGetPassword parameter block 

// Ptr to application file name 

// Ptr to application section name 

// Ptr to caller's password buffer 



// 

typedef 

( 



{ 



typedef 



Function types 

int (IL_DECL IL_DIST *ILTR_PIO) 
ILTR_PTRANSL ); 
typedef int ( IL_DECL IL_DIST *ILTR_CBFUN) 
ILTR_PTRANSL, 

void IL_DIST * IL_DIST + ); 
int (IL_DECL IL_DIST *ILTR_CBREC) 
ILTR_PTRANSL, 
IL_PSTR, 
IL_PSTR, 
void IL_DIST *, 
void IL_DIST * IL_DIST * ); 
int (IL_DECL IL_DIST *ILTR_CBREP) 
ILTR_PTRANSL, 
void IL_DIST + IL_DIST *, 
ILTR PRE PEAT ); 



typedef 



// Pointer to Import or Export 

// Pointer to translation record 

// Pointer to callback 

// Pointer to translation record 

// Pointer to application data 

// Pointer to reconcile callback 

// Pointer to translation record 

// Field name to reconcile 

// Field value to reconcile 

// Unique record identifier 

// Pointer to application data 

// Pointer to repeat callback 

// Pointer to translation record 

// Pointer to application data 

// Pointer to repeat st ructure 



// Filter 

typedef struct 
{ 



item structure and pointer 



} 



char name [ ILTB_MAX_NAME ] ; 
char label [ ILTR_MAX_FLDNAME] ; 
INT16 itemNo; 
ILX_TYPE type; 
INT16 cond; 

char valuel [ I LT R_MAX_VALU E ] ; 
char value2[ILTR_MAX_VALUE] ; 
long ivaluel; 
long ivalue2; 
INT16 pass; 
ILTR FILTER ITEM, IL DIST * ILTR PFILTER 



// Filter item data 

// User visible name 

// Internal field label 

// Item number within field 

// Field type 

// Condition for filter item 

// First value for filter item 

// Second value for filter item 

// First value for filter item 

// Second value for filter item 

// Did this test pass 
ITEM; 



// Filter structure and pointer 

typedef st ruct 
{ 

ILTB_ID secType; 
ILTB_ID mapID; 
ILTB_JD sysID; 
char name [ ILTB_MAX_NAME ] ; 
char appName [ ILTB_MAX_NAME] ; 
char secName [ILTB_MAX_NAME] ; 
INT16 itemNum; 
BOOL16 allcond; 
BOOL16 bReversed; 
ILTR_FILTER_ITEM items[]; 
} ILTR FILTER, IL DIST * ILTR PFILTER; 



// Filter data 

// Section type 

// Field map ID 

// System ID 

// Name of the filter 

// Application name 

// Section name 

// Number of items for this filter 

// Do all items have to pass 

// Are field lists reversed? 

// Variable array of items 



Structures used to prompt user for section name 



Copyright ©1996 Puma Technology, Inc. All Rights Reserved. 



Iltr.h 



Page 11 of 19 



typedef struct 
( 

char szName [ ILTR_MAX_SECT ] ; 
long IKey; 
} ILTR SECTIONS; 



// Section name 

// Item Data 

// Sections info 



typedef struct 
( 

IL_HINST hlnst; 
IL_HWIN hWin; 

char szCurWD[ILTB_MAX_PATH] ; 
char szHelpFi le [ ILTB_MAX_PATH ] ; 
char szFile [ ILTB_MAX_PATH] ; 
char szSect[ILTR_MAX_SECT] ; 
long IKey; 
} ILTR SECT, IL DIST * ILTR PSECT; 



// Instance handle 

// Window handle 

// Working directory 

// Helpfile Pathname 

// File name 

// Section value 

// Item Data 



typedef struct 
{ 

INT16 nEntries; 
ILTR_SECTIONS lpltems[j; 
} ILTR SECTS, IL DIST +ILTR PSECTS, 



// Number of section names 
// Array of section names 



// 



Structure used to prompt user for password 



typedef struct 
{ 

IL_HINST hlnst; 
IL_HWIN hWin; 

char szCurWD[ILTB_MAX_PATH] ; 
char szHelpFile [ ILTB_MAX_PATH ] ; 
char szFile [ ILTB_MAX_PATH] ; 
char szPswd[ILTR_MAX_PSWD] ; 
ILTR_PASSWORD_TYPE nPassword; 
} ILTR PSWD, IL DIST * ILTR PPSWD; 



// Instance handle 

// Window handle 

// Working directory 

// Helpfile Pathname 

// File name 

// Password value 

// Fi le passwd f user name/ pa ss wd? 



// Translator driver (ILImport and ILExport) function type. 

typedef int (IL_DECL * ILTR_PDRIVER ) // Pointer to Import or Export 

( ILTR PTRANSL ); // Pointer to translation data 



// Callbacks to begin and end translator 

typedef int ( IL_DECL *ILTR_PBEGINSESSION) 

( ILXTR_FINITPARMS lpInitParms, 

ILXTR_HAPPSESSION * lphAppSession ); 
typedef int { IL_DECL *I ( LTR_PENDSESSION ) 

{ ILXTR HAPPSESSION hAppSession ); 



"session" 



// Pointer to begin callback 

// Pointer to parameter block 

// Returned session handle 

// Pointer to end callback 

// Session handle 



/* 

* PRIVATE . portion of translation structure. These structure members 

* are exclusively set and accessed by the translation engine. 
■*■ 

* WARNING: do not add members to the PRIVATE portion. Even if a new 

* member SHOULD be Private, add it to the end of the ILTR_TRANSL struct 

* anyway, to avoid incompatible changes in struct member offsets!! 
+ */ 

typedef struct 
{ 



ILTB_ID nFilterlD; 




II 


Filter ID 


INT16 nFldErrorNum; 




If 


Number of log errors 


ILTB_ID nMapID; 




// 


Field map ID 


INT16 nProcessStage; 




// 


Processing stage 


ILTB_ID nSourcelD; 




// 


Source application ID 


ILTB_ID nTargetID; 




// 


Target application ID 


long nRecords; 




// 


Total number of records 


long recNum; 




// 


Current record number 


long nSrcTime; 




if 


Source file timestamp 


long nTarTime; 




If 


Target file timestamp 


char szLineTermf ILTR MAX 


TERM] ; 


ft 


Line terminator string 


char szLogFi le [ ILTB MAX 


PATH ] ; 


II 


Log file name 


ILX32_1 6PAD ( pad_01 , 1 95 ) 




it 


V16: Long file names 


char szRecName [MAX MSG]; 




It 


Current record name 


char szWorkFile[ILTB MAX 


_PATH] ; 


It 


Intermediate file name 


ILX32_16PAD(pad_02, 195) 




II 


VI 6 : Long file names 


void IL DIST * appData; 




It 


Pointer to application data 


BOOL16 bFilter; 




II 


Are we called for filtering? 


INT16 nFldError; 




II 


Number of field errors 
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BOOL16 cpack; 


// 


Are we running under CPACK? 


BOOL16 direction; 


// 


Importing or exporting? 


BOOL16 ebi; 


// 


Export before import? 


BOOL16 log; 


// 


Create log file? 


BOOL16 reversed; 


// 


Source and target reversed? 


HILIF view; 


// 


Intermediate file view 


IL HANDLE hAppData; 


// 


Handle to application data 


ILX32 16PAD(pad 03,2) 


// 


Padding for tr purposes 


IL HFILE hLog; 


// 


Log file handle 


ILX32 16PAD(pad 04,2) 


// 


Padding for tr purposes 


ILDF HNDL hFlt; 


// 


Handle to Filters table 


ILDF HNDL hFld; 


// 


Handle to Fields table 


ILST_HNDL hRes; 


// 


Resource file handle 


ILX32 16PAD{pad 05,2) 


// 


Padding for t r purposes 


ILTR ACTION action; 


// 


Action type 


ILTR FLDMAP map; 


// 


Field map table 


ILTR BUFFER rec; 


// 


Intermediate record buffer 


ILTR BUFFER field; 


// 


Field buffer 


ILTR FLDERR f IdEr ror [ ILTR_MAX_FLDERR] ; 


// 


Field errors 


ILTR FLDLST list; 


// 


Pointer to field names 


ILTR CBFUN cbBegin; 


// 


Pointer to Begin callback 


ILTR CBFUN cbEnd; 


// 


Pointer to End callback 


ILTR_CBFUN cbGet; 


// 


Pointer to Get callback 


ILTR CBFUN cbNew; 


// 


Pointer to New callback 


ILTR_CBFUN cbPut; 


// 


Pointer to Put callback 


ILTR_CBREC cbRecon; 


// 


Pointer to Reconcile callback 


ILTR CBREP cbRepeat; 


// 


Pointer to Repeat callback 


ffifdef SYSMGR 


// 


System Manager definition 


IL PSTR farPtr Table [MAX FAR PTRS] ; 


// 


Far pointer table 


ffendif // SYSMGR 






INT16 rc; 


// 


Translator return code 


IL HWIN hProgWin; 


// 


Progress window handle 


ILX32 16PAD(pad 06,2} 


// 


Padding for tr purposes 


IL HWIN hFromBarWin; 


// 


FROM bar window handle 


ILX32 16PAD{pad 07,2) 


// 


Padding for tr purposes 


IL HWIN hToBarWin; 


// 


TO bar window handle 


I LX32_1 6 PAD ( pad_08 , 2 ) 


// 


Padding for t r purposes 


ILCR LP DATA recon; 


// 


Reconciliation data 


ILTR PDRIVER pDriver; 


// 


Pointer to translator driver 


UINT16 hSessionID; 


// 


Session handle 


I NT 16 nTimerRecs; 


// 


Records processed per t imer 


ILTB_ID nSrcSection; 


// 


Source section ID 


ILTB ID nTarSection; 


// 


Target section ID 


ILTB ID nSourcelmportCharMapID; 


// 


Char map table ID for import 


ILTB ID nSourceExportCharMapID; 


// 


Char map table ID for export 


ILTR BUFFER sExportCharMap; 


// 


Export char map buffer 



/* 

* WARNING: do not add members to ILTR_PRIVATE . Even if a new 

* member SHOULD be Private, add it to the end of the ILTR_TRANSL struct 

* anyway, to avoid incompatible changes in struct member offsets!! 
* */ 

} ILTR PRIVATE; 



/ + 

* Translation information structure. This structure contains 

* the detailed translation parameters and is accessed by both 

* the translation engine and individual translators . The 

* translators should only reference the PUBLIC structure 

* members and not those contained in the PRIVATE portion of 

* the structure. 

+ + / 

typedef struct _transl 
( 

// PUBLIC structure members 



ILTB CLASS nSysClass; 


II 


System class 


ILTB TYPE nSysType; 


II 


System type 


long nDate; 


II 


Encoded current date 


unsigned long nAttribs; 


// 


Application attributes 


char CDFsep; 


II 


CDF field separator 


char szCurWD[ILTB MAX DIR] ; 


II 


Working directory 


ILX32 16PAD(pad 01,191} 


II 


VI 6 : Long file names 


char szAppFile [ ILTB MAX PATH]; 


II 


Application file name 


ILX32_16PAD{pad_02, 195) 


II 


V16: Long file names 


char szAppName ( MAX_APP_NAME ] ; 


II 


Application name 
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char szPswd [ ILTR_MAX_PSWD] ; 


II 


Tile password 


char szSectName [MAX_APP_NAME ] ; 


II 


Sec t ion or category name 


char szSectCode [MAX_APP_NAME] ; 


/ / 


beet ion code 


BOOL lo nFi leExists ; 


II 


Uoes tile exist? 


BOOL16 CDFmapOnly; 


1 / 


Use only mapped fields? 


BOOLlo CDtnames; 


/ / 


Names as tirst cut record? 


I LTK DIRECTION *TtCmd ; 


/ / 


import or Export : 


I Li k tUNC- i luN ntunction; 


/ / 


t unction type 


ILTK RANGE nbChOpt ; 


/ / 


Schedul e opt ion 


I LI K U rUUr I nUpuupt ; 


/ / 


upoate option 


INT16 nPass; 


/ / 


Pass number 


long nLoDate; 


II 


Earliest appointment date 


long nHiDate; 


II 


Latest appointment date 


char szAltApp [MAX_APP_NAME ] ; 


II 


Application name 


char szAltSect [MAX APP NAME]; 


1 1 


Section or category name 


char szAppLoc[ILTB MAX PATH]; 


II 


Application location 


ILX32 16PAD(pad 03,195) 


II 


V16: Long file names 


IL HINST hParentlnst; 


II 


Parent instance handle 


ILX32 16PAD(pad 04,2) 


II 


Padding for tr purposes 


IL HWIN hParentWin; 


II 


Parent window handle 


ILX32 16PAD(pad 05,2) 


II 


Padding for tr purposes 



/+ 

* PRIVATE portion of structure used exclusively by the translation 

* engine and inaccessible to data translators. 
* V 

ILTR_PRIVATE Private; 

// next member used to be ca 1 led cbSynchroCleanup 

ILUT_PBUFFER pFanBuf; // V26: reusable buf for repeat. c 

ILXTR_SYNC_OPTION nSynchronize; // short int; see ilxtr.h 

unsigned long nSectionAttribs; // Section attributes 

INT 16 nSystemError; / / Syst em-spec i f ic error code 

B00L16 bMultiSession; // TRUE for multiSession option 

IL_CBPROGRESS cbProgress; // Progress-reporting callback 

UINT16 uTimerlnterval; // milliseconds (ZERO = 55) 

UINT16 uWaitlnterval ; // milliseconds (ZERO = 55) 

BOOL16 blnitDone; //Was translator initialized? 

LLTR_ENV eEnvi ronment ; // Help envi ronment 

UINT16 uDlgProgFlags; // flags used in ^lgprog.c' 

HFONT h Prog res sBar Font ; // font used in 'dlgprog . c ' 

ILX32_16PAD(pad_06,2J // Padding for tr purposes 

I LI F_PGLOBALS pILI F_Global s ; // ptr to ILIF 'globals' struct 

ILT_PILTIF pILTIF; // pointer to ILTIF data structure 

long UmportRecs; // Number of imported records 

char bExpInitialized; // Flag to init Export only once 

char blmplnitialized; // Flag to init Import only once 

INT16 version; // set to I LTR_CURRENT_VERSION 

// by engine. 

/* 

* for each new member, comments indicate version number assigned at 

* time of new member introduction: 

* V 

char phase; // V02: use ILTR_PHASE_XXX ffdefines 

IL_HANDLE hILI F_Globals ; // V03: handle of ILIF 'globals' struct 

ILX32_16PAD(pad_07,2) // V03: Padding for tr purposes 

/* 

* Help information. 

+ + j 

UINT32 nHelpContext; // V04 : Help context number (4} 

/* 

* WARNING: accesses beyond this point will GPF when running under 

* version 3.22 or earlier of ILWIN or ILX. 

+ . + 1 

char szHelpFile [ ILTB_MAX_PATH ] ; // V04: HELP file name (65) 

ILX32_16PAD(pad_08, 195) // V16: Long file names 

ILX_BOOL bVWRHelp; // V04 : Use VWR help? (2) 



long lExportRecs; 



// V05: Number of exported records 



/ 



* Translators base names. 



/ 



char szSrcTrans [ILTB_MAX_DRVNAME] ; 
char szTarTrans [ILTB MAX DRVNAME ] ; 



// V06: Source Translator Name (9) 
// V06: Target Translator Name (9) 



Copyright ©1996 Puma Technology, Inc. All Rights Reserved. 



Iltr.h 



Page 14 of 19 



// Operating environment 

ILTR_ENV nRunEnviron; 
UINT32 CRPolicy; 



// V07 : Execution environment 

// V08: Conflict Resolution Policy 

// (ILXTR CR POLICY XXX) 



/* 

* Formerly used for "internal" ILIniTranslator function pointer. This 

* pointer is no longer used, but must be left as a NULL pointer so that 

* translators using an older version of the tr structure won't try to 

* call ILIniTranslator using this pointer. 



7 



FARPROC pMustBeNullPtr; 



// V09: Support "internal" xlators 



// pointer to translator extra data passed by engine 

void * pXtraData; // V10: additional translator data 



* Next flag is used by dlgprog.c, 

* we need to do End Processing to 
*• 



import. c, and export. c. Says whether 
clean up before quitting. 



/ 



BOOL16 bMustCleanUpBeforeQuitting; // Vll 

ILTR_BUFFER Fi Iter FieldBuf f er ; // V12 

IL_HANDLE hxFilter; // V12 

ILX32_16PAD{pad_09, 2) // VI 2 

ILTR_PFILTER pxFilter; // V12 

UINT32 Flags; // VI 3 



replaces "_f ilt" global 
handle used in filters. c 
Padding for t r purposes 
pointer used in filters. c 
use ILTR FLAG XXX #defines 



/*■ 
+ 



The following handle/pointer locates table information preloaded by 
the engine and used by ILSetupFieldLists (in LOADFLDS.C) to setup the 
field list, field mapping and character mapping information in the tr 
structure. If these values have NOT been set, the missing information 
will be read from TABLES. ITB for EACH import or export phase using the 
original IILFldLoadMap function {in LOADMAP.C) . 



IL HANDLE 


hTablelnfo; 


// 


VI 4 : 


*/ 

handle for ITB table info 


ILX32 16PAD 


(pad_10, 2) 


// 


VI 4 : 


Padding for tr purposes 


ILTR PTABLEINFO 


pTablelnfo; 


// 


VI 4 : 


pointer to ITB table info 


UINT8 


TodoPriorityType; 


// 


V15: 


use ILTR_TODO_PRIORITY_XXX 






// 


V16: 


padding changes were made 


INT16 


nSubSectionType; 


// 


V17: 


sub-section type 


ILUT PBUFFER 


pTmpBu f ; 


// 


VI 8: 


reusable TEMP buffer 


IL HANDLE 


hTmpBuf ; 


// 


VI 9: 


handle for TEMP buffer 


ILX32 16PAD 


(pad_ll,2) 


// 


VI 9: 


Padding for tr purposes 


ILTM DTTM FMT 


DtTmFmt ; 


// 


V20: 


Date&Time Format Params 


ILUT PBUFFER 


pSSTBuf ; 


// 


V21 : 


reusable buf for sst.c to use 


IL HANDLE 


hSSTBuf ; 


// 


V21 : 


handle for SST buffer 


ILX32 16PAD 


(pad_12, 2) 


// 


V21: 


Padding for tr purposes 


BYTE 


SourceSST; 


// 


V21: 


Source Section SubType 


BYTE 


TargetSST; 


// 


V21: 


current Target SectionSubType 


ILTR PSSTLIST 


pTargetSSTS; 


// 


V21: 


List of ALL Target SSTs 


INT16 


Tif Phase; 


// 


V22: 


phase of TIF operation 


long 


lEarliestDate; 


// 


V23: 


used in EXPORT. C 


long 


lLatestDate; 


// 


V23: 


used in EXPORT. C 


char 


cDateType; 


// 


V23: 


Date Field Type (EXPORT. C) 



// Translation session handles 

ILXTR HAPPSESSION hAppSession; 



// V24: App session handle 



WARNING 



long 
long 

ILTR_FANOUT 

BOOL16 

UINT32 



Starting after TR variable hAppSession, all new 
variables in the TR structure will not be visible to 
translators under ILWIN 3.41 or before. This is because 
the prior size of TR has been exceeded and is not 
allocated in these prior versions. This is also true of 
releases of Lite shipped in 1995. 



1 FanningMinDate; 
1 FanningMaxDate; 
MAXIMA FanoutMaxima ; 
bCa nee 1 Pending; 
OKTP Threshold; 



// V25 

// V25 

// V26 

// V27 

// V28 



lower limit (0 for unlimited) 

upper limit (0 for unlimited) 

struct defined in ILRPT.H 

let procmsg know about pending cancel 

OKToProceed dialog threshold 



// 



User directory name (or default such as "ILDATA") 
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char szUserDir [ ILX_MAX_USERDIR] ; // V29: User directory name 

// Target system character map buffer and table IDs 

ILTR_BUFFER slmportCha rMap; // V30 

ILTB_ID nTargetlmportCharMapID; // V30 

ILTB_ID nTargetExportCharMapID; // V30 

/ + 

* Whenever you add a new member to this structure definition, you must 

* do the following things: 

* 1. change the "ffdefine ILTR_CURRENT_VERSION <nnn>" line found at 

* the top of this include file. Increment <nnn> by 1. 



+ 



2. include new version number in comment for new member(s). 

3. OBSOLETED: [reduce ILTR_MAX_FREE] we no longer do this 

4 . add a ffdefine ILTR_newMember { t r->newMember ) line at the end 
of the list of access macros for PUBLIC members, below. 

5. if the size of the new member will be different between WIN16 
and WIN32 add an additional line directly under the member 
added. The line will contain the following 

ILX32_16PAD{pad_xx, yy } // Padding for tr purposes 



* 



where xx is the last pad name incremented by one, and yy is 

* the absolute difference between the size of the new member 

* under WIN16 and its size under WIN32. This is to maintain 
compatible sizes between WIN32 and WIN16 (See note in ilmacro.h 

* for details ) . 

+ 6. if it is necessary for the ILX16 value of the new member 

* to be passed back up to ILX32, you must add code to the 

* ILX V3\loadxltr.c\Update tr AfterILX16 function. 



7 



char filler[200] ; // Free space — DO NOT REDUCE!! 

/* 

+ Always keep 200 "slack" bytes at the end of the "tr" structure. 

* Do NOT reduce this value when the "tr" structure grows . We always want 

* a generous amount of slack so that newer translators can run under older 

* engines. We used to shrink the "slack" area over time, but that works 

* to our disadvantage. So don't do it!! 

* NOTE : there is nothing magic about the number 200 . We may want to use 

* an even bigger slack area some day. . . 

+ v 

} ILTR TRANSL; 



Today, 2/10/95, packed structure sizes are: DJB 



+ WIN16: sizeof (ILTR_TRANSL) = 1463 
* WIN32: sizeof (ILTR TRANSL) = 1523 



Today, 2/24/95, packed structure sizes a re: KPD 



WIN16 
WIN16 
WIN32 



sizeof (ILTR_TRANSL) (ILX32_16 defined) = 1503 

sizeof (ILTR_TRANSL) (ILX32_16 not defined) = 1463 
sizeof (ILTR TRANSL )( I LX32 16 not defined) = 1503 



// Schedule item used for data reconciliation 

typedef struct 
{ 

long date; // Relative date 

long stTime; // Relative start time 

long endTime; // Relative stop time 

IL PSTR desc; // Appointment description 



/ 



} ILTR SCHITEM; 
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// Schedule entry for data reconciliation 

typedef struct 
{ 



} 



IL_PSTR importType; 
INT16 hhsize; 
ILTR_SCHITEM old; 
ILTR_SCHITEM newone; 
ILTR SCHNOTI FY; 



// Dialog title 

// Max size of handheld entry 

// Desktop schedule item 

// Handheld schedule item 



// Telephone entry for data reconciliation 

typedef struct 
{ 

IL_PSTR importType; // Dialog title 



} 



INT16 fldsize; 
IL_PSTR keyfname; 
IL_PSTR keydata; 
IL_PSTR pcfname; 
IL_PSTR pcdata; 
IL_PSTR hhfname; 
IL_PSTR hhdata; 
ILTR TELNOTIFY; 



// Max size of data 

// Key field name 

// Key field value 

// Desktop field name 

// Desktop field value 

// Handheld field name 

// Handheld field value 



// Globals. 

extern IL_HINST hXlatorlnst; 

/ / Macros . 

// Locate field node in field list 

ffdefine FIND_FIELD_NODE ( a , b, c) 
{ 

b = a; 
while (b) 
{ 

if (b->Index == c) 

break ; 
else b = b->NextField; 

} 

} 



// Determine total number of fields in list 

ffdefine ILFldCount (tr ) 
tr->Private. list. Count 



// Translator DLL instance 



\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 



\ 



// Return name of view field 

ffdefine ILGetKeyName (tr, name, len} 
{ 

name [0] = 1 \0* ; 

if (tr->Private. direction == ILTR_IMPORT) 
{ 

if { t r->Private . map. ShowTarget != -1) 

ILFldName(tr, tr->Private.map. ShowTarget , name, len } 

} 

else if ( tr'->Private . map. ShowSource != -1) 

ILFldName ( tr, tr->Private.map. ShowSource, name, len ) ; 

} 

// Register Begin callback routine 

ffdefine ILRegisterBeginCB { t r , f unc } 

tr->Private. cbBegin = ( I LTR_CBFUN ) func 

// Register End call back routine 

ffdef ine ILRegisterEndCB ( tr, f unc ) 

tr->Private.cbEnd = (ILTR_CBFUN) func 

// Register Get callback routine 

ffdefine ILRegisterGetCB ( t r , func) 

tr->Private.cbGet = (ILTR_CBFUN) func 

// Register New callback routine 

ffdefine ILRegisterNewCB ( t r, func) 

tr->Private.cbNew = { ILTR_CBFUN ) func 

// Register Put callback routine 

ffdefine ILRegister PutCB ( t r , func) 



\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 



\ 



\ 



\ 



\ 
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tr->Private. cbPut = (ILTR CBFUN ) func 



// Register Reconcile callback routine 

ffdefine ILRegisterReconCB(tr, func) \ 
tr->Private.cbRecon « (ILTR_CBREC) func 

// Register Repeat callback routine 

ffdefine ILRegisterRepeatCB(tr, func) \ 
tr->Private. cbRepeat = { ILTR_CBREP) func 

// Specify action taken on current item 

#def ine ILSetAct ion ( t r, act ) \ 
tr-> Private. action = act 



// Set the application line terminator character 

ffdefine ILSetLineTerm ( t r , term) \ 

{ \ 

tr->Private. szLineTerm[ 0] = ' \0 * ; \ 

IL_STRNCAT ( tr-> Private . szLineTerm, term, ILTR_MAX_TERM-1 ) ; \ 

} 



// Set the name of section or category 

ffdefine ILSetSectName (tr, name) \ 

{ \ 

tr->szSectName [0] = ' \0 ' ; \ 

IL_STRNCAT ( t r->szSectName, name, MAX_APP_NAME ) ; \ 

} 

// Set record count 

ffdefine ILSetRecCount ( tr , num) \ 

{ \ 
ILStatusSetRecCount ((tr), ((long) (num))); \ 

} 

// Set the record title 

f/def ine ILSetRecName (tr, name) \ 

{ \ 

tr-> Private . szRecName [ 0] = ' \0 * ; \ 

IL_STRNCAT (tr-> Private. szRecName, name, MAX_MSG-1 ) ; \ 

} 

// Specify number of records processed per timer event 

ffdef ine ILSetRecs PerTimer ( t r , num) \ 

{ \ 
tr->Private . nTimerRecs = (num > 0 ? num : 1); \ 

} 

// set of millisecods to wait durring ILTR_ERR_WAIT 

ffdefine ILSetWa itlnterval (tr, uTime) \ 
tr->uWait!nterval = uTime 



/ + 

* Access macros to PUBLIC members of ILTR_TRANSL structure. 

* All macros assumes that the ILTR_TRANSL structure is named "tr". 
+ *■ / 



ffde f ine 


ILTR 


CDFmapOnly 


( tr- 


>CDFmapOnly) 


ffdefine 


iltr" 


CDFnames 


( tr- 


>CDFnames ) 


ffdef ine 


iltr" 


CDFsep 


( tr- 


>CDFsep) 


ffdefine 


ILTR 


hPa rentWin 


( tr- 


>hParentWin) 


ffdefine 


ILTR 


hParentlnst 


(tr- 


>hParentInst ) 


ffdefine 


ILTR 


nAttribs 


(tr- 


>nAttribs) 


ffdefine 


ILTR 


nCmd 


(tr- 


>nCmd) 


ffdefine 


ILTR 


nDate 


( t r- 


>nDate) 


ffdefine 


ILTR 


nFileExists 


( tr- 


>nFileExists ) 


ffdef ine 


ILTR 


nFunct ion 


(tr- 


>nFunct ion ) 


ffdef ine 


ILTR 


^nHiDate 


( tr- 


>nHiDate) 


ffdefine 


ILTR 


IDateRangeEnd 


(tr- 


>nHiDate) 


ffdefine 


ILTR 


nLoDate 


(tr- 


>nLoDate ) 


ffdef ine 


ILTR 


IDateRangeStart 


(tr- 


>nLoDate ) 


ffdefine 


ILTR 


nPass 


(tr- 


>nPass ) 


ffdef ine 


ILTR 


nSchOpt 


( t r- 


>nSchOpt ) 


ffdef ine 


ILTR 


nSect ionAtt ribs 


(tr- 


>nSect ionAtt ribs ) 


ffdef ine 


ILTR 


nSysClass 


(tr- 


>nSysClass ) 


ffdefine 


ILTR 


nSystemError 


(tr- 


>nSystemError ) 


ffdef ine 


ILTR 


nSysType 


( tr- 


>nSysType) 
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ffdef ine 
ffdef ine 
ffdefine 
ffdef ine 
ffdef ine 
ffdefine 
#define 
ffdef ine 
ffdefine 
ffdefine 
ffdefine 
ffdefine 
ffdef ine 
ffdefine 
ffdefine 
ffdefine 
ffdef ine 
#def ine 
ffdefine 
ffdef ine 
ffdefine 
fldef ine 
ffdefine 
#def ine 
ffdefine 
ffdefine 
ffdefine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdefine 
ffdef ine 
ffdefine 
ffdefine 
^define 
ffdefine 
ffdefine 
ffdefine 
ffdefine 

ffdef ine 
ffdefine 
ffdefine 
ffdef ine 
ffdef ine 
ffdefine 
^define 
ffdefine 
ffdefine 
ffdefine 
ffdef ine 
ffdefine 
ffdefine 
ffdefine 
ffdefine 
ffdef ine 
ffdefine 
ffdefine 
ffdefine 
ffdefine 
ffdefine 
ffdefine 
ffdefine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdefine 
ffdefine 
ffdefine 
ffdefine 
ffdefine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 



ILTR 
ILTR 
ILTR 
ILTR 
ILTR* 

iltr' 

ILTR* 
ILTR* 
ILTR* 
ILTR' 
ILTR 
ILTR* 
ILTR 
ILTR* 
ILTR* 
ILTR~ 
ILTR* 
ILTR* 
ILTR* 
ILTR" 
ILTR' 
ILTR* 
ILTR" 
ILTR~ 
ILTR" 
ILTR" 
ILTR" 
ILTR" 

iltr" 
iltr" 
iltr" 
iltr" 
iltr" 
iltr" 
iltr" 
iltr" 
iltr" 
iltr" 
iltr" 

iltr 

iltr" 

iltr" 

iltr" 

iltr" 

iltr" 

iltr" 

iltr" 

iltr" 

iltr" 

iltr" 

iltr" 

iltr" 

iltr" 

iltr" 

iltr" 

iltr" 

iltr" 

iltr*" 

iltr" 

iltr" 

iltr" 

iltr" 

iltr" 

iltr" 

iltr" 

iltr" 

iltr" 

iltr" 

iltr" 

iltr" 

ILTR*" 

iltr" 
iltr" 
iltr" 



nUpdOpt 

szAltApp 

szAltSect 

szAppFile 

szAppLoc 

s zAppName 
""szCurWD 

szPswd 

szSectCode 
_szSectName 
[pFanBuf 
_nSynchronize 

bMuitiSession 
_cbProgress 
_uTimerInterval 

uWaitlnterval 

blnitDone 

eEnvironment 

uDlg Prog Flags 

h Prog ressBar Font 
"pILIF_Globals 
[pILTIF 

UmportRecs 

bExpInitialized 

blmplnitialized 

version 

phase 

"hILIF_Globals 
nHelpContext 
szHelpFi le 
[bVWRHelp 
lExportRecs 
szSrcTrans 
szTarTrans 
nRunEnviron 
CRPolicy 
pMustBeNullPtr 
pXt raData 



tr->nUpdOpt) 

tr->szAltApp) 

tr->szAltSect ) 

tr->szAppFile) 

tr->szAppLoc) 

tr->szAppName) 

tr->szCurWD) 

tr->szPswd) 

t r->szSectCode ) 

tr->szSectName) 

tr->pFanBuf ) 

tr->nSynchronize) 

tr->bMult i Session ) 

tr->cbProgress ) 

tr->uTimerInterval ) 

tr->uWa it Interval ) 

tr->bInitDone) 

tr->eEnvironment ) 

tr->uDlg Prog Flags ) 

tr->h Progress Bar Font ) 

tr->pILIF_Globals) 

tr->pILTIF) 

tr-> UmportRecs ) 

t r->bExpInitialized ) 

tr->bl reinitialized) 

tr->version ) 

t r->phase ) 

tr->hILIF_Globals) 

tr->nHelpContext ) 

tr->szHelpFile) 

tr->bVWRHelp) 

tr-> lExportRecs ) 

t r->szSrcTrans ) 

tr->szTarTrans) 

t r->nRunEnviron ) 

tr->CRPolicy) 

tr->pMustBeNullPtr ) 



tr->pXtraData ) 
bMustCleanllpBeforeQuitting 

( tr->bMustCleanUpBeforeQuitting ) 



\ 



Filter FieldBuf fer 

[hxFilter ( 

_px Filter ( 

Flags ( 

[hTablelnfo ( 

pTablelnfo { 

TodoPriorityType ( 

nSubSectionType { 

pTmpBuf { 

"hTmpBuf { 

"DtTmFmt ( 

"pSSTBuf ( 

[hSSTBuf ( 

SourceSST ( 

[TargetSST ( 

[pTargetSSTS ( 

Targe tSSTCount { 

TargetSSTList { 

[TifPhase { 

lEarliestDate { 

lLatestDate ( 

cDateType ( 

hAppSession ( 

1 FanningMinDate ( 

1 FanningMaxDate { 

FanoutMaxima { 
nDailyMaxFanout 
nWeeklyMaxFanout 
nMonthlyMaxFanout 
nQuarterlyMaxFanout 
nYearlyMaxFanout 
nOtherMaxFanout 
bCa nee 1 Pending 
^OKTP_Threshold 
szUserDir 



tr->Fi 1 ter FieldBuf fer ) 
tr->hxFilter ) 
tr->pxFilter } 
tr->Flags ) 
tr->hTableInfo) 
tr->pTableInfo) 
tr->TodoPriorityType) 
tr->nSubSectionType ) 
tr->pTmpBuf ) 
tr->hTmpBuf ) 
tr->DtTmFmt) 
tr->pSSTBuf ) 
tr->hSSTBuf ) 
tr->SourceSST) 
tr->TargetSST) 
tr->pTargetSSTS) 
ILTR_pTargetSSTS->sstCount ) 
ILTR_pTargetSSTS->sstList ) 
tr->Tif Phase) 
tr->lEarliestDate) 
tr->lLatestDate) 
tr->cDateType) 
t r->hAppSession) 
t r->l FanningMinDate ) 
tr->l FanningMaxDate ) 
tr->FanoutMaxima ) 
( ILTR_FanoutMaxima . nDailyMaxFanout ) 
( ILTR_FanoutMaxima . nWeeklyMaxFanout ) 
( ILTR_FanoutMaxima . nMonthlyMaxFanout ) 
( ILTR_FanoutMaxima . nQuarterlyMaxFanout ) 
( ILTR_FanoutMaxima . nYearlyMaxFanout ) 
t ILTR_FanoutMaxima . nOtherMaxFanout ) 
( tr->bCancel Pending ) 
( tr->OKTP_Threshold) 
(tr->szUserDir) 
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* Access macros to PRIVATE symbols in ILTR_PRIVATE structure. 

* All macros assume that the ILTR_TRANSL structure is named "tr n . 
* #/ 



ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
#def ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
#def ine 
ffdef ine 
#def ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
#def ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
^define 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
^define 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 



ILTR 
ILTR 
ILTR 
ILTR 
ILTR 
ILTR 
ILTR 
ILTR 
ILTR 
ILTR 
ILTR 
ILTR 
ILTR 
ILTR 
ILTR 
ILTR 
ILTR 
ILTR" 
ILTR 
ILTR' 
ILTR' 

iltr' 
iltr' 
iltr' 
iltr' 
iltr' 
iltr' 
iltr" 
iltr" 
iltr" 
iltr" 
iltr' 
iltr' 
iltr' 
iltr' 
iltr' 
iltr' 
iltr' 
iltr' 
iltr' 
iltr" 
iltr" 
iltr" 
iltr' 
iltr" 
iltr" 
iltr" 
iltr" 
iltr" 
iltr" 
i ltr" 
iltr" 
iltr" 
iltr" 
iltr" 
iltr" 
iltr" 
iltr" 
iltr" 
iltr" 

ILTR 



_act ion 

~ILCR~action 

_appData 

_bFilter 

_nFldError 

_cbBegin 

_cbEnd 

_cbGet 

_cbNew 

_cbPut 

_cbRecon 

_cbRepeat 

_cpack 

_direction 

_ebi 

f arPtrTable 
"field 

f IdError 
_hAppData 

hFromBarWin 

hToBarWin 
"hFld 
"hFlt 

hT.og 

_hProgWin 
hRes 

hSessionID 
"ILCR 

JLCR_itemID 

ILCR_msg 
"list 

log 

map 

nFldErrorNum 
nMapID 
[nFilterlD 
nProcessStage 
nRecords 
nSourcelD 
nSrcSect ion 
nSrcTime 
^Target ID 
nTarSection 
nTarTime 
pDriver 
rc 
rec 

recNum 

reversed 

szLineTerm 

szLogFi le 

szRecName 

szWorkFile 

view 

nTimerRecs 



(tr->Private. action) 
(tr->Private. recon->action } 
( tr-> Private . appData ) 
( tr->Private.bFilter ) 
{ tr->Private. nFldError ) 
(tr->Private. cbBegin ) 
(tr->Private. cbEnd ) 
( tr-> Private . cbGet ) 
(tr-> Private . cbNew) 
{ tr->Private. cbPut ) 
( t r-> Private . cbRecon ) 
(tr->Private. cbRepeat ) 
(tr->Private. cpack ) 
( tr-> Private .direct ion ) 
(tr-> Private . ebi ) 
( tr->Private. farPtrTable) 
<tr-> Private. field) 
(tr-> Private. f IdError) 
( t r-> Private . hAppData ) 
(tr-> Private. hFromBarWin ) 
(tr-> Private. hToBarWin ) 
(tr->Private.hFld) 
(tr->Private.hFlt) 
(tr->Private. hLog ) 
( t r-> Private . hProgWin ) 
( tr-> Private . hRes ) 
( tr-> Private . hSessionID) 
(tr->Private. recon) 

(tr-> Private. recon->curItem->ndxItem) 
(tr->Private. recon- >msg ) 
(tr-> Private. list) 
{tr->Pri vate. log) 
{ tr-> Private .map) 
( tr-> Private .nFldErrorNum) 
( tr-> Private. nMapID) 
(tr->Pri vate. nFilterlD) 
( tr-> Private . nProcessStage ) 
(tr->Private. nRecords ) 
{ tr-> Private . nSourcelD) 
( t r-> Private . nSrcSection ) 
( tr-> Private. nSrcTime) 
( t r->Private. nTargetID) 
( tr-> Private . nTarSection ) 
(tr->Private. nTarTime) 
( t r->Pri vate . pDri ver ) 
(tr->Private. rc) 
( t r-> Private . rec ) 
(tr->Private. recNum} 
(tr->Private. reversed ) 
{ tr-> Private . szLineTerm) 
(tr->Private. szLogFile ) 
( t r-> Private . szRecName ) 
( tr->Pri vate . szWorkFile ) 
(tr->Pri vate. view) 
(tr->Pri vate. nTimerRecs) 
nSourcelmportCharMapID (tr->Private. nSourcelmportCha rMapID) 
nSourceExportCharMapID (tr-> Private. nSourceExportCharMapID) 
sExportCharMap (tr->Private. sExportCharMap) 
slmportCharMap ( t r->sImportCharMap) 
_nTargetImportCharMapID ( tr->nTarge t Import CharMapID) 
_nTargetExportCharMapID ( tr->nTargetExportCharMapID) 



ffifdef 

} 

ffendif // 



cplusplus 
cplusplus 



// special handling for C++ code 



ffinclude "iltrfn.h" 
ffinclude "iltiffn.h" 



// ILTR function prototypes 
// TIF function prototypes 



ffendif // 



ILTR 
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(Jifndef ILTRFN_ALREADY_INCLUDED 
ffdefine ILTRFN_ALREADY_INCLUDED 

/* 

* Name: ILTRFN.H 

* Purpose: Function Prototypes for the IntelliLink Harness Library { ILTR} 

* NOTE: Please do NOT include this header directly. Just include ILTR . H 

* Author: Copyright (c) IntelliLink, 1992-1995 



/ 



// Special handling for C++ code 

ffifdef cplusplus 

extern "C" { 
flendif // cplusplus 



#ifdef SYSMGR 



* Function prototypes for STDIO routines used under SYSMGR. 

* This is only because FILEIO.H and STDIO. H are mutually exclusive 
+ * / 

int cdecl sprintffchar const char *, ...); 

#endif // SYSMGR 



* Function prototypes for common routines 
+ + / 

void IL_DECL ILAddBenignFieldError 
( ILTR_PTRANSL tr, 
IL_PSTR szFieldName, 
int nErrorCode ) ; 

void IL_DECL ILAddFieldError 
( ILTR_PTRANSL tr, 
IL_PSTR szFieldName, 
int nErrorCode ) ; 

int IL_DECL ILAppendLog 
( IL_HFILE hLog, 

IL_HINST hXlatorlnst, 
int nError, 
IL_PSTR lpParml, 
IL_PSTR lpParm2 ); 

int IL_DECL ILBackupFile 
( I LTR_PTRANSL tr, 
IL_PSTR szFile ) ; 

BOOLEAN ILComparePhone 

( IL_PSTR pszPhonel, 
IL_PSTR pszPhone2, 
int iMustMatch ) ; 



// Post error against field without "tally" 

// Name of field 

// Error ID to post 

// Post error against field 

// Name of field 

// Error ID to post 

// Append message to log file 

// Handle to log file 

// Translator instance handle 

// Error ID to post 

// First insertion string or NULL 

// Second insertion string or NULL 

// Create backup { BAK) of file 

// Path name of file to backup 

/ / Compa re phone string components 

// Pointer to first phone string 

// Pointer to second phone string 

/ / Component "must match" flags 



* WARNING: ILConvertType appends to the 

* buffer is initialized before 



1 toData 1 
you call 



buffer . Make 
ILConvertType 



sure your 



/ 



int IL_DECL ILConvertType // 

( I LTM_DTTM_ FMT_ PT R pDateTimeFormat, // 

char fromType, // 

ILTB_ATTRIB f romFieldAttributes , // 

IL_PSTR fromData, // 

unsigned int fromLen, // 

long fromBase, // 

B00L16 bNegativeFrom, // 

char toType, // 

ILTB_ATTRIB toFieldAtt ributes , // 

IL_PSTR toData, // 

unsigned int toLen, / / 



Convert between data types 

Date&Time Format Params 

'From" field type (eg. 'A') 

'From" field attributes 

'From" field value 

'From" field length 

'From" base value (relative) 

'From" base sign 

'To" data type (eg. *N') 

•To" field attributes 



*To" data value — 
*To" data length 



APPENDED to 
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long toBase, 

B00L16 bNegativeTo ); 

void IL_DECL ILCTStringTrans 
( IL_PSTR sSrc, 
int iLen, 

char IL_DJST +pcCharTransTbl ); 

int IL_DECL ILDatelnRange 
{ ILTR_PTRANSL tr, 
ILTR_PREPEAT repeat, 
long theDate ) ; 

int IL_DECL ILDumpFieldsToLog 
( I LTR_PTRANSL tr, 
IL_HFILE hLog ) ; 

int IL_DECL ILEndDriver 
( ILTR_PTRANSL tr, 
int rc }; 

int IL_DECL ILExpandBuf fer 

( IL_HAN DLE IL_DIST *lpHandle, 
IL_PSTR IL_DIST *lpBuffer, 
unsigned int nlncrement, 
unsigned int IL_DIST *nTotalLen ); 

int IL_DECL EXP ILExport 

( ILTR_PTRANSL tr ) ; 

int IL_DECL ILFldAssoc 

( ILTR_PTRANSL tr, 
IL_PSTR Label, 
IL_PSTR AssocLabel, 
BOOLEAN IL_DIST *bPositive ); 

int IL_DECL ILFldDesc 

{ ILTR_PTRANSL tr ) ; 

int IL_DECL ILFldFloat 
( IL_PSTR buffer, 

IL_PSTR IL_DIST *item, 
unsigned int IL_DIST * len, 
I LTR_FLDPTR fid, 
BOOLEAN bStrip ) ; 

int IL_DECL ILFldGet 

( ILTR_PTRANSL tr, 
IL_PSTR name, 
IL_PSTR buffer, 
unsigned int IL_DIST *len ); 

int IL_DECL ILFldGet Ex 

( ILTR_PTRANSL tr, 
IL_PSTR lpName, 
int nWhich, 

BOOLEAN bMapCharsI fNonBinary, 
IL_PSTR lpBuffer, 

unsigned int IL_DIST *pBufLen ); 

int IL_DECL ILFldGet Assoc 
{ ILTR_PTRANSL tr, 
int iFld, 

int IL_DIST *piAssoc ); 

int IL_DECL ILFldGetAtt r ibs 
( ILTR_PTRANSL tr, 
int iFld, 

unsigned long IL_DIST *plAtt ); 

int IL_DECL I LFldGetExtName 
( ILTR_PTRANSL tr, 
int iFld, 

IL PSTR pszExtName ); 
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// "To" base value (relative) 
V/ "To" base sign 

// Translate string via CharMap 

// String to translate (in place) 

// Length to be translated 

// Pointer to CharMap char, table 

// Determine if date is contained 

// Pointer to repeat record 
// Numeric date 

// Dump field mapping to log file 

// Handle to log file 

// Terminate translation 

// Final return code 

// Expand size of dynamic buffer 
// Pointer to buffer handle 
// Pointer to buffer itself 
// Size increment value to use 
// Total buffer size to return 

// Perform Export operation 



// Get label of associated field 

// Current internal field label 

// Associated field label (ret. ) 

// TRUE if association is + (ret.) 

// Generate ILIF field descriptors 



// Look for floating item in field 

// Field buffer 

// Floating item string to return 

// Floating item length to return 

// Pointer to current field node 

// Do we remove floating item? 

// Get value of field from IF 

// Field name to retrieve 
// Field buffer to return 
// Field length to return 

// variant of ILFldGet for TIF 
// -- see ILTIF.CPP 
// field name 

// which value to retrieve 
// TRUE for Character Mapping 
// buffer to put value in 
// IN/OUT: bufsize/valuelen 

// Get "associated field" index 

// Index of requested field 

// Pt r to int for associated index 

// Get field attributes 

// Index of requested field 

// Ptr to long to store attributes 

// Get field external field name 

// Index of requested field 

// Ptr to string for external name 
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int IL_DECL ILFldGetlntName 
{ ILTR_PTRANSL tr, 
int iFld, 

IL_PSTR pszIntName ); 

int IL_DECL ILFldGetltemNo 
{ ILTR_PTRAN5L tr, 
int iFld, 

int IL_DIST *piItemNo ); 

int IL_DECL ILFldGetPref ix 
( ILTR_PTRANSL tr, 
int iFld, 

IL_PSTR pszPrefix ); 

int IL_DECL ILFldGetTerm 
( ILTR_PTRANSL tr, 
int iFld, 

int IL_DIST *piTerm J; 

int IL_DECL ILFldGetType 
( ILTR_PTRANSL tr, 
int iFld, 

int IL_DIST *pcType ); 

int IL_DECL ILFldGetTypeDesc 
( ILTR_PTRANSL tr, 
int iFld, 

IL_PSTR pszTypeDesc ); 

int IL_DECL ILFldGetWidth 
( ILTR_PTRANSL tr, 
int iFld, 

long IL_DIST *plWidth ); 

void IL_DECL ILFldlnsert 

( ILTR_NDX IL_DIST + top, 
ILTR_N DX ndx, 
ILTR_FLDPTR field ) ; 

int IL_DECL ILFldlnToEx 
( ILTR_PTRANSL tr, 
IL_PSTR label, 
IL_PSTR name, 
int nameLen } ; 

int IL_DECL ILFldltem 

( IL_PSTR IL_DIST ^buffer, 
ILTR_FLDPTR lpFld, 
ILTR_N DX ndx ) ; 

int I L_DECL ILFldList 

{ ILTR PTRANSL tr ) ; 



// Get field internal field name 

// Index of requested field 

// Ptr to string for internal name 

// Get field item number 

// Index of requested field 
// Ptr to int for item number 

// Get field prefix string 

// Index of requested field 

// Pointer to string for Prefix 

// Get field terminator character 

// Index of requested field 

// Ptr to int for terminator char. 

// Get field data type code 

// Index of requested field 

// Pointer to char for data type 

// Get field TypeDesc 

// Index of requested field 

// Pointer to string for TypeDesc 

// Get field width (0 == variable) 

// Index of requested field 

// Pointer to long for field width 

// Sort field node in list 

// Pointer to top of field list 

// Index of field to sort 

// Pointer to field node 

// Get user field name 

// Internal field name 

// User field name returned 

// Size of user field buffer 

// Extract next item from field 

// Field buffer 

// Array of field map entries 

// Index of current item 

// Create list of field names 



int IL_DECL ILFldLoadMap 
( ILTR_PTRANSL tr, 

ILTR_FLDMAP IL_DIST ^fields, 
ILTB_ID nCharMapID ); 



// Load field map for category 

// Pointer to field map 

// ITB character map table ID 

// get Field Struct for given field 



int IL_DECL ILFldLookup 
( ILTR_PTRANSL tr, 

IL_PSTR szlnternalFieldName, // Internal field name 

BOOLEAN bLooklnTargetFieldList, // use FALSE to look in src fldlst 

ILTR_FLDPTR IL_DIST +ppFieldMapEnt ry );// OUT: ptr to field map entry 



int IL_DECL ILFldMapped 
{ ILTR_PTRANSL tr, 

IL_PSTR szlnternalFieldName, 
BOOLEAN bLooklnTargetFieldList); 

BOOLEAN IL_DECL ILFldName 
{ ILTR_PTRANSL tr, 
int itemNo, 
IL_PSTR fldName, 
int maxLen } ; 



// Determine if field is mapped 

// Internal field name 

// use FALSE to look in src fldlst 

// Get positional field name 

// Relative field number 

// Field name buffer 

// Size of field name buffer 
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int IL_DECL ILFldNameBylndex 
( ILTR_PTRANSL tr, 
int itemNo, 
IL_PSTR fldName, 
int maxLen ) ; 

BOOLEAN IL_DECL ILFldNum 
( ILTR_PTRANSL tr, 
int itemNo, 

I LTR_N DX IL_DIST *pFldNum ); 

int IL_DECL ILFldPhone 

( ILTR_PTRANSL tr, 
IL_PSTR label ); 

int IL_DECL ILFldPut 

( ILTR_PTRANSL tr, 
IL_PSTR name, 
IL_PSTR buffer, 
unsigned int len }; 

int IL_DECL ILFldSize 

( I LTR_PTRANSL tr, 
IL_PSTR label, 

unsigned long IL_DIST *pFldSize ); 

IL_PSTR IL_DECL ILFldStrip 
{ IL_PSTR buffer, 
int nSides ) ; 

int IL_DECL ILFldType 

( ILTR_PTRANSL tr, 
IL_PSTR label, 
IL_PSTR type, 

unsigned long IL_DIST *attribs ); 

int IL_DECL ILFldTypeEx 
( ILTR_PTRANSL tr, 
IL_PSTR label, 
IL J _PSTR type, 

I LTB_ATTRIB IL_DIST *attribs, 
INT32 IL_DIST *pFldSize, 
IL_PSTR pszTypeDesc ); 

int IL_DECL ILFldTypelnvertedLookup 
( ILTR_PTRANSL tr, 
IL_PSTR label, 
IL_PSTR type, 

I LTB_ATTRIB IL_DIST *attribs, 
INT32 IL_DIST *pFldSize, 
IL_PSTR pszTypeDesc ); 

IL_PSTR I L_DECL ILFldZeros 
{ IL_PSTR buffer } ; 

void IL_DECL ILFreeTables 
{ ILTR_PTRANSL tr ) ; 

int IL_DECL ILGetCDField 
{ IL_PSTR entryi 
int fldNo, 
IL_PSTR field, 
unsigned int IL_DIST *len, 
cha r sep } ; 

int IL_DECL ILGetOptions 
{ ILTR_PTRANSL tr, 
IL_PSTR wd ) ; 

int IL_DECL ILGetRepeat 
{ I LTR_PTRANSL tr, 

ILTR_PREPEAT repeat ); 

int IL DECL EXP ILImport 
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// Get field name by index 

// Relative field number 

// Field name buffer 

// Size of field name buffer 

// Get positional field number 

// field number in mini list 

// OUT: field number in full list 

// Locate default phone field 

// Name of default phone field 

// Place value of field in IF 

// Name of field to write 
// Field value to write 
// Length of field value 

// Get maximum size of named field 

// Internal field name buffer 
// Returned MAXIMUM field size 

// Strip field value of blanks 

// Field value to strip 

// Leading and/ or trailing blanks? 

// Get field type and attributes 

// Internal field name to use 

// Returned field type 

// Returned field attributes 

// Get field type, etc . 

// Internal field name to use 

// Returned field type 

/ / Returned field attributes 

// Returned MAXIMUM field size 

// Pointer to string for TypeDesc 

// for ups ide-down & backwa rds use 

// Internal field name to use 

// Returned field type 

// Returned field attributes 

// Returned MAXIMUM field size 

// Pointer to string for TypeDesc 

// Strip field of trailing zeros 
// Field value to strip 

// Free field mapping tables 



// Get relative field from string 

// String buffer 

// Relative field number to get 

// Field buffer to return 

// Field length to return 

// Field delimiter used in string 

// Get options in DOS command file 

// IntelliLink working directory 

// Get repeat record from IF 

// Pointer to repeat record 

// Perform Import operation 
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( ILTR_PTRANSL tr ) ; 

int IL_DECL ILInitDriver 
( ILTR_PTRANSL tr, 
IL_PSTR dir ) ; 

int IL_DECL ILInif ranslator 
{ ILTR_PTRANSL tr, 

void IL_DIST * IL_DIST +appData 

BOOLEAN IL_DECL ILIsBooiOK 

( IL_PSTR booiVaiue ); 

BOOLEAN IL_DECL ILIsNumberOK 
{ IL_PSTR numValue ) ; 

int IL_DECL ILIsRepeat 

( ILTR_PTRANSL tr, 

long IL_DIST *nStart, 
long IL_DIST + nStop }; 

int IL_DECL ILIsRepeat2 
( ILTR_PTRANSL tr, 

ILTR_PREPEAT pRepeat ); 

int ILItemHasInstancesInDateRange 
{ ILTR_PTRANSL tr, 
long IStartRange, 
long 1 End Range, 
ILTR_PREPEAT pRepeat ) ; 

int IL_DECL I LLoadCha rMapTbl 
( ILTB_ID nCharMapID, 
IL_PSTR pcCharMap ); 

void IL_DECL ILMakePhone 
( IL_PSTR phone, 
IL_PSTR label, 
IL_PSTR type, 
IL_PSTR country, 
IL_PSTR area, 
IL_PSTR number, 
IL_PSTR ext, 
IL_PSTR def ) ; 

int IL_DECL ILMapChars 
( IL_PSTR plnBuf, 
INT32 UnBuf, 
IL_PSTR szOldLineTerm, 
IL_PSTR szNewLineTerm, 
IL_PSTR pcMap, 
INT32 MaxLen, 
ILUT_PBUFFER pOutput ); 

int I L_DECL ILPutCDField 
{ IL_PSTR entry, 
int fldNo, 
IL_PSTR field, 
unsigned int IL_DIST Men, 
cha r sep ) ; 

int IL_DECL ILPutRepeat 
( ILTR_PTRANSL tr, 
ILTR_PREPEAT repeat, 
IL_PSTR startField, 
IL_PSTR stopField } ; 

void IL_DECL ILReorder Float ingFields 
{ IL_PSTR szLineTerm, 
IL_PSTR szOriginal, 
IL_PSTR szlnField, 
IL_PSTR szOutFieid ); 

int IL_DECL ILRepeatltem 
( ILTR PTRANSL tr, 



// Initialize for translation 

// IntelliLink working directory 

// Translator INIT callback 

); // Pointer to application data 

// Validate boolean field 

// String containing boolean value 

// Validate numeric field 

// String containing numeric value 

// Check if item is repeating type 

// Returned start date of item 
// Returned stop date of item 

// Check if item is repeating type 

// Repeat structure (filled in) 

// Check for instances in range 

// lower limit of date range 
// upper limit of date range 
// Repeat structure (supplied) 

/ / Load a char mapping table 

// ID of map table to load 

// Pointer to map table buffer 

// Create complete phone number 

// Resulting phone number field 

// Phone label 

// Phone type 

// Country code 

// Area code 

// Phone number 

/ / Phone extension 

// Default phone number flag ('-'J 

// map characters in a text string 

// ptr to input string 

// length of input string 

// e.g. "\r\n" or "\xFF" 

// e.g. "\xFF" or "\r\n H 

// ptr to char map 

// max STRLEN for converted string 

// -> header for reusable buffer 

// Put relative field in string 
// String buffer 

// Relative field number to insert 

// Field value to insert 

// Max length of string 

// Field separator used in string 

// Write out repeat record in IF 

// Pointer to repeat record 
// Start date field name 
// Stop date field name 

// Reorder field by field labels 
// Multiline field line terminator 
// Original field, set label order 
// Field to be reordered by labels 
// szlnField reordered by label 

// Fan out repeating item 
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I LTR_PRE PEAT repeat, 
int max } ; 



// Pointer to repeat record 

// max fanout count for pre-V26 era 



// the next 2 functions are in "unfold. c". The first function does 

// Date Range and Max Count setup and buffer management, 

// then calls the second function. 



int IL_DECL ILTRUnf oldRepeat 



// expand repeat pattern into array of dates 



( 



ILTR_PTRANSL tr, 
ILTR_PREPEAT pRepeat, 
int nMaxItems, 
long lToday, 
long 1 FanningMinDate, 
long 1 FanningMaxDate, 
I LT R_ P FANOU T_MAX I MA pMaxima, 



// 
// 
// 
// 
// 
// 



IN 
IN 
IN 
IN 
IN 
IN 



pattern to unfold 
pre-V26 fanout limits 
today's date 

lower bound of Date Range 
upper bound of Date Range 



V26 fanout limits 

ILUT_PBUFFER IL_DIST *ppFanBuf, // IN/OUT: ++ buffer 

int IL_DIST *pGoodCount, // IN/OUT: ff of unexcluded instances 

int IL DIST +pGrossCount ); // IN/OUT: ff of instances 



int IL DECL ILUnfoldRepeat 



{ ILTR_PREPEAT pRepeat, 
int nMaxItems, 
long lTodaysDate, 
long IDateRangeStart , 
long 1 DateRangeEnd, 
ILUT_PBUFFER pFanBuf, 
int IL_DIST *pGoodCount, 
int IL_DIST + pGrossCount 

int IL_DECL ILRepeatNextDate 
( ILTR_PREPEAT repeat, 
long IL_DIST + currDate, 
long IL_DIST *lastDate }; 

int IL_DECL ILSetupTables 
( ILTR PTRANSL tr ) ; 



// expand repeat pattern into array of dates 

// IN: pattern to unfold 

// IN: not to exceed this count (really!) 

// IN: Today's date 

// IN: date range lower bound 

// IN: date range upper bound 

// IN/OUT: ptr to header for reusable buffer 

// OUT: ff of unexcluded instances generated 

);// OUT: ff of instances { excluded+unexcluded ) 



// Get next date to repeat item 

// Pointer to repeat record 

// Pointer to current date 

// Pointer to last date processed 

// Set up field mapping tables 



void IL_DECL ILShowProgress 
( ILTR_PTRANSL tr ) ; 

void I L_DECL ILSplitPhone 
( IL_PSTR phone, 
IL_PSTR label, 
IL_PSTR type, 
IL_PSTR country, 
IL_PSTR area, 
IL_PSTR number, 
IL_PSTR ext, 
IL_PSTR def ) ; 

int IL_DECL ILTRGetField 
( ILTR_PTRANSL tr, 

IL_PSTR IpszFieldName, 

IL_PANY IpszFieldValue, 

long IL DIST *pFieldLength ); 



// Update progress bar 

// Separate phone number field 

// Ful 1 phone number buffer 

// Returned phone label 

// Returned phone type 

// Returned country code 

/ / Returned area code 

// Returned phone number 

// Returned phone extension 

// Returned default phone flag 

// Get field from ILIF or from TIF 

// tr 

// field name 

// field value 

// OUT: length; (see fidget. c) 



int IL_DECL ILTRGet FieldEx 
{ ILTR_PTRANSL tr, 

IL_PSTR IpszFieldName, 
int nWhich, 

IL_PANY IpszFieldValue, 

long IL_DIST +pFieldLength ); 



// Get field from ILIF or from TIF 

// tr 

// field name 

// TIF_AUTO or other selector 

// field value 

// OUT: length; (see fidget. c) 



/.* 

+ Name: ILTRPutField 

* Purpose: Low-level function to output a field to ILIF or TIF 

* 'bSpecialFanningAdjustment' is TRUE when REPEAT . C UpdateDateField 

* function calls this function. 

* NOTE: this function may or may not do character mapping, and may or 

* may not pass data on to the FILTERS mechanism, depending on last 

* two boolean arguments that it takes. 

* Of course for environments that don't support FILTERS, nothing 
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* is passed on to the FILTERS mechanism. 
+ 

* The reusable buffer * ILTR_pTmpBuf ' is used when ILTIFPutField 

* calls ILMapCharsToIL. 

* 

* Called from: fldput.c & repeat. c & putrep.c 

+ v 

int IL_DECL ILTRPutField ( ILTR_PTRANSL tr, 

IL_PSTR name, 
IL_PSTR text, 
INT32 len, 

BOOLEAN bSpecial FanningAdj ustment , 

BOOLEAN bDoCharacterMapping, 

BOOLEAN bSupplyDataToFiltersMechanism ); 

IL_PSTR IL_DECL ILTRJTempFileName // generate appropriate TMP file name 

{ int nSectionType, // ILTR_nFunction 

IL_PSTR lpszBuffer ); // buffer where pathname is built 

// field length (see fldput.c) 

int IL_DECL EXP ILWhatFields // Return default field list 

( IL_PSTR pFileName, // Pointer to qualified file name 

ILTB_ID nCharMapID, // ID of character map 

ILTB_PHNDL phTable, // Pointer to table handle 

IL_HANDLE IL_DIST + phList, // Pointer to field list handle 

int *pnList, // Pointer to field count 

char cDelimit ); // ASCII delimiter character 

int IL_DECL EXP ILWhatFieldsEx // Extended ILWhatfields call 

{ ILX_PWFParams pWFParams); // Ptr to WhatFields Param. Block 

// The following function is used only by ILFldGet and ILFldPut 

int IL_DECL ILMapI FErrToTRErr // Map ILIF error to ILTR error 

( int nErrlLIF ); // ILIF error code to be mapped 

/* 

* The following functions have not yet been ported to the MAC 
+ + 1 

#ifndef ILMAC 

BOOL IL_DECL EXP clb_sect // Display sections dialog 

( IL_HWIN hDlg, // Window handle 

UINT message, // Message ID 

W PARAM wParam, // wParam 

L PARAM IParam ); // lParam 

int IL_DECL ILFi Iter Field // Test field for filter condition 
( ILTR_PTRANSL tr, 

ILTB_ID filterlD, // Filter ID 

IL_PSTR ExtName, // User field name 

IL_PSTR IntName, // Internal field name 

int ItemNo, // Item number within field 

IL_PSTR text ); // Field value 

int IL_DECL ILFilterRecord // Test record for filter result 
( ILTR_PTRANSL tr, 

ILTB_ID filterlD ); // Filter ID 

void IL_DECL ILFilterCleanup // Terminate filter processing 
( I LTR_PTRANSL tr, 

ILDF_PHNDL hFlt ); // Handle to filter file 

int IL_DECL ILFilterStartup // Initiate for filter processing 
( ILTR_PTRANSL tr ) ; 

int IL^DECL ILFldParse // Parse field for items 
( ILTR_PTRANSL tr, 

IL_PSTR name, // Field name to parse 

IL_PSTR text, // Field value to parse 

int len ); // Length of field value 

int IL_DECL ILGetSection // Prompt user to select section 
( ILTR_PTRANSL tr, 

ILTR_PSECT IpSect ); // Pointer to section record 
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int ILInitSection 
( void ) ; 



// Initialize section processing 



int ILAddSection 

( IL_PSTR szName, 
LONG IKey ); 

int ILCleanupSection 
( void ) ; 

int IL_DECL ILProccessOnTimer 
( ILTR_PTRANSL tr, 
int nTimerDelay, 
TIMERPROC timerFunction} ; 

int IL_DECL ILSetDateRangeDig 
( ILTR_PTRANSL tr, 
IL_HINST hlnst, 
long *stDate, 
long *endDate ) ; 



// Add new section 

// Section name 

// Section key 

// Terminate section processing 



// Proccess func. per timer event 

// Millisecons per timer event 

// Timer CALLBACK funnction 

// Select date range to process 

// Caller instance handle 

// Pointer to encoded start date 

// Pointer to encoded end date 



Windows-specific dialog callback function 



BOOL IL_DECL EXP clb_pswd 
( IL_HWIN hDlg, 
UINT message, 
WPARAM wParam, 
LP ARAM lParam ); 



// Display password dialog 

// Window handle 

// Message ID 

// wParam 

// lparam 



#endif // tfifndef ILMAC 



/* 

* The following functions are user interface and/or OS dependent support 

* functions. The functions have the same names on both Windows and the 

* Macintosh, but the implementations of .these functions are OS dependent 

* and are often implemented in different source modules for each platform. 
* +/ 

int IL_DECL ILGetPassword 
( ILTR_PTRANSL tr, 
ILTR_PPSWD lpPswd ) ; 

int IL_DECL I LGet User Name 
( ILTR_PTRANSL tr, 

ILTR_PPSWD lpUserlD ); 

int IL_DECL ILGetUser Password 
( I LTR_PTRANSL tr, 

ILTR_PPSWD lpUserlD ); 



// Prompt user to specify password 

// Pointer to password record 

// Prompt user to specify User name 

// Pointer to User ID record 

// Prompt user to specify User password 

// Pointer to User ID record 



void IL_DECL ILNoWaiting 
( IL_HWIN hDlg, 

int nMsgControl ); 

int IL_DECL ILProcessMessages 
{ ILTR_PTRANSL tr ) ; 

void IL_DECL ILSet ProgressText 
( I LTR_PTRANSL tr, 
IL_PSTR text } ; 

void IL_DECL ILSt atusBegin 
{ ILTR_PTRANSL tr ) ; 

void IL_DECL ILStatusEnd 

( ILTR_PTRANSL tr ) ; 

void IL_DECL ILStatusExport 
( ILTR_PTRANSL tr, 
long INumRecs } ; 

void IL_DECL ILStatusImport 
{ ILTR_PTRANSL tr, 
long INumRecs ) ; 

void IL DECL ILStatusDone 



// Restore normal cursor 
// Handle to parent window 
// Control ID to update 

// Process appl ica t ion messages 

// Change text in progress bar 

// Text to reflect in progress bar 

// Signal "begin" to progress win 

// Signal "end" to progress window 

// Signal "export" to progress win 

// Number of records to completion 

// Signal "import" to progress win 

// Number of records to completion 

// Bring progress bar to 100% done 
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{ ILTR_PTRANSL tr ) ; 

void IL_DECL ILStatusInit 
( ILTR_PTRANSL tr, 
IL_PSTR szTheMsg, 
long INumRecs ); 

void IL_DECL ILStatusSetRecCount 
( ILTR_PTRANSL tr, 
long INumRecs } ; 

void IL_DECL ILStatusUpdate 
{ ILTR_PTRANSL tr ) ; 

void I L_DECL ILWaiting 
{ IL_HWIN hDlg, 

IL_HINST hlnstance, 
int nMsgControl, 
int nMsgID, 
IL_PSTR IpStrl, 
IL_PSTR lpStr2 ) ; 



// Initialize iltr progress bar 

// Progress window display text 

// Number of records for 100% 

// (Re-)set the progress bar size 

// Number of records to completion 

// Update progress for one record 



// Show hourglass while waiting 

// Handle to parent window 

// Parent instance handle 

// Control ID to update 

// Message ID to display 

// First insertion string 

// Second insertion string 



// Function prototypes for reconciliation routines . 

int IL_DECL ILCRBegin 

( ILTR_PTRANSL, 
IL_HINST, 

- BOOLEAN } ; 

int IL_DECL ILCREnd 

( ILTR_PTRANSL, 
IL_HINST ); 

int IL_DECL ILCRNew 

( ILTR_PTRANSL, 
IL_PSTR, 

void IL_DIST * ) ; 

int IL_DECL ILCRSetConf lict 
( ILTR_PTRANSL, 
IL_PSTR, 
IL_PSTR, 
IL_PSTR J ; 

int IL_DECL ILCRReconcile 
( ILTR_PTRANSL, 
IL_HINST, 

void IL_DIST * IL_DIST * ); 

int IL_DECL ILCRCleanUp 
( ILTR_PTRANSL ) ; 

int IL_DECL ILCRSetlnstruct 
( I LTR_PTRANSL tr, 

IL PSTR szlnstruct J; 



* The ILSST functions, in sst.c, are for Section SubType Tagging & Filteri 
■*■ 

// ADD TAG function for TIF to call 



ng 
V 



int IL_DECL ILSST_AddTag 
( ILTR_PTRANSL tr, 
INT32 SizeLimit, 

INT32 IL_DIST *pLength, // length including null terminator byte 
IL_PSTR IL_DIST *ppText, 
IL_PSTR szTagDigits, 
IL_PSTR szTypeDesc ); 

int IL_DECL I LSST_AddTag2 // ADD TAG function for ILFldGet to call 

( I LTR_PTRANSL tr, 

unsigned int bufSize, 

unsigned int IL_DIST *pLength, // length NOT including null terminator 
IL_PSTR lpBuffer, 
IL_PSTR szTagDigits, 
IL_PSTR szTypeDesc }; 



int IL DECL ILSST Filter 



// filter record by sub-type 
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( ILTR_PTRANSL tr ); 

int IL_DECL ILSST_StripTag // strip tag, cooy into 'szTaq' acq 

( I LTR_PTRANSL tr, 

IL_PSTR IL_DIST +ppText, 
unsigned int IL_DIST *pLen, 
IL_PSTR szTypeDesc, 

IL_PSTR szTag ); // OUT : tag string, e.g. "9" 

// {char szTag [ I LTR_MAX_TAG_LEN ] ) 

int IL_DECL ILSST_SubTypeOK // apply sub-type matching rules 

( ILTR_PTRANSL tr, 
IL_PSTR szSubType ); 

/ + 

* The ILTRTIFxxx function, in iltrtif.c, are used to avoid rev-locks 

* between various builds of translators and various builds of ILTIF.DLL. 

* All TIF entrypoints added since 12/1/1995 {ILWIN 3.40) are called via 

* ILTRTIFxxx bridge functions. 

* / 

int IL_DECL ILTRTI FDefFieldN // Tell TIF about a field 

( ILTR_PTRANSL tr, 

ILTR_N DX fldnum, // fields in full field list 

INT32 ExtraAttributes ); 

int IL_DECL ILTRTI FFa nit em // Ask TIF to Fan a recurring item 

{ ILTR_PTRANSL tr, 

int maxFanCount ); // max ff of fanned instances to create 

int IL_DECL ILTRTI FItemlsRecurring // Ask TIF whether current item is recurring 
( ILTR_PTRANSL tr ) ; 

ILBASEFN_int ILTRTI FFeatureSet // Turn TIF features on and/or off 
( ILTR_PTRANSL tr, 

UINT32 ulTurnOnBits, // bits to turn on {see iltif.h) 

UINT32 ulTurnOf fBits ); // bits to turn off {see iltif.h) 

/* 

+ Macros which handle the details of how certain special types are 

* stored in the intermediate files . 
* v 

ffdefine ILTR_BOOLEAN_TRUE "1" 
^define ILTR_BOOLEAN_FALSE "0" 

// Write out boolean value to IF 

^define ILTR_PUT_BOOLEAN ( t r , nm, val) 
{ 

if (val) 

ILFldPut (tr, nm, ILTR__BOOLEAN_TRUE, 1 ) ; 
else 

ILFldPut {tr, nm, ILTR BOOLEAN FALSE, 1); 

} 

// Read boolean value from IF 

#define I LTR_GET_BOOLEAN ( t r , nm, val) 
{ 

char szTemp [2] ; 
unsigned int nFldSize; 
nFldSize =» 2; 

ILFldGet (tr, nm, szTemp, &nFldSize); 
if (strncmp (szTemp, ILTR_BOOLEAN_TRUE, 1 ) == 0) 

val = TRUE; 
else 

val = FALSE; 

} 



\ 
\ 

\ 
\ 
\ 
\ 



\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 





* If the ILTR library is built with " I LTI F_IN_HARNESS" defined, then 

* executables that are linked with the ILTR library will automatically 

* load the ILTIF DLL, and will refuse to run if the I LTI F DLL isn't found. 
*■ 

ffifdef ILTIF IN HARNESS 
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/* 

* ILTR 



ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 

ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 



ILTIFxxxx functions are reaily just ILTIFxxxx functions. 
v 

ILTR_ILTI FHowManyRecords ( a , b) ILTI FHowManyRecords ( a , b ) 

ILTR_ILTIFInitRecord{a) ILTI FIni t Record ( a ) 

ILTR_ILTIFPutRecord ( a ) ILTI FPut Record ( a ) 

ILTR_IETlFGetField(a,b,c,d,e) ILTI FGe't Field (a, b, c,d, e) 

ILTR_ILTIFGetAndCopyField(a,b,c,d,e) ILTIFGetAndCopyField { a, b, c,d, e ) 
ILTR_ILTIFPut FieldEx (a, b, c,d,e,f } ILTI FPut FieldEx ( a, b, c,d, e, f ) 
I LTR_ILTIFGetFieldAt tributes (a,b,c,d,e) \ 

ILTIFGetFieldAttributes (a,b,c,d, e) 
ILTIFReadNextRecord (a) 



ILTR_ILTI FReadNextRecord ( a } 
ILTR_ILTIFItemIsRecurring (a ) 
ILTR_ILTIFFanItem(a,b) 
ILTR_ILTIFFeatureSet (a,b,c) 
ILTR_ILTI FReopen File ( a ) 
ILTR_ILTIFCloseFileTemporarily (a ) 



ILTI FItemlsRecurring ( a ) 
ILTIFFanItem(a,b) 
ILTIFFeatureSet {a,b, c) 
ILTIFReopenFile(a) 
ILTIFCloseFileTemporarily (a) 



#else 



/ 



If ILTR isn't built 
calls to ILTI F 



* make 
■*■ . 



with "ILTIF_IN 
entrypoints ! ! 



_IN_HARNESS", it is a boo-boo to 



ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
^define 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 



ILTR_ILTI FHowManyRecords (a, b) ILTR 
ILTR_ILTIFInitRecord{a) ILTR 
I LTR_ILTI FPut Record (a) ILTR" 
ILTR_ILTI FGet Field(a,b,c,d,e) ILTR^_ 
ILTR_ILTI FGetAndCopyField ( a , b, c, d, e ) ILTR 
ILTR_ILTI FPut FieldEx (a, b, c,d, e, f ) ILTR^ 
ILTR_ILTIFGetFieldAttributes {a,b,c,d, e) ILTR 
ILTR ILTIFReadNextRecord(a) ILTR ERR 



ERR 
ERR" 

err" 
err" 



CANT 

"cant" 
"cant" 
cant" 



USE 

"use" 
use' 
'use' 



■V 

ILTIF 
"ILTIF 
ILTI F 
ILTI F 



ERR_CANT_USE_ILTI F 
ERR_CANT_USE_ILTIF 

ERR_CANT_USE_ILTIF 
CANT USE ILTIF 



I LTR_ILTI FItemlsRecurring ( a ) ILTR" 

ILTR_ILTIFFanItem(a,b) ILTR" 

ILTR_ILTIFFeatureSet (a,b,c) ILTR" 

ILTR_ILTI FReopenFi le { a ) ILTR~ 

ILTR_ILTIFCloseFileTemporarily (a) ILTR" 



ERR 

"err" 
"err" 
"err" 
err" 



CANT 

cant' 
"cant" 
"cant" 
cant" 



USE 

"use" 
use" 
"use" 
use" 



ILTIF 
"ILTIF 

ILTIF 
"ILTIF 

ILTI F 



#endif 



ffifdef cplusplus 

1 

ffendif // cplusplus 



// special handling for C++ code 



ffendif // ffifndef ILTR FN ALREADY INCLUDED 
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/ 



Name : 
Purpose : 



+ 

+> 
+ 
* 
+■ 
*■ 

* 



Functions 



Authors : 



LOADMAP.C 

Functions to set up Field Lists, Field Mapping and Character 
Mapping tables into appropriate "tr" structure members. If the 
necessary table information has already been loaded by the 
engine (by calling ILX_LoadFieldLists ) , the table information we 
need is already available in the ILTR_TABLEINFO structure. If 
the tr structure does not contain a ILTR_TABLEINFO structure 
(i.e., we're running under an "old" engiine), OR if the engine 
has not called ILX_LoadFieldLists, the table information is 
retrieved from TABLES . ITB using ILFldLoadMap. 

ILSetupTables — Set up tables using I LT R_T AB L E I N FO if possible 

ILFreeTables Free table information after import or export 

ILFldLoadMap Load tables from TABLES. ITB if necessary 

Mike Blanchette, Copyright (c) IntelliLink, 1992 
Bob Daley, Copyright (c) IntelliLink, 1995 

- */ 



/* 

* NOTE: this is an "ILBASE" module, which means that it may be built into 

* a "base" DLL rather than being statically linked into every 

* translator. Please ensure that all non-static functions in this 

* module are declared with ILBASE_xxxx macros, defined in ILTYPES.H. 

* v 



# include "ilxapi . h" 



/ 



Name : 
Purpose 

Input : 
Return : 



ILSetupTables 

Set up tables using I LTR_TABLEINFO if possible. ILFldLoadMap is 
called if table information have not already been loaded in tr. 
tr — Pointer to translation structure 
SUCCESS or ILTR ERR code 



7 



ILBASEFN_int ILSetupTables // Set up tables using ILTR_TABLEINFO 

( ILTR_PTRANSL tr ) // Pointer to translation structure 

{ 

int nRc; // Return code 

// If no table information already loaded, use ILFldLoadMap instead 

if { (ILTR_VERSION_IS_PRIOR_TO (14)) || ( ILTR_pTableInfo == NULL)) 
{ 

ILTB_ID nCharMapID; 

// Set the Character Map ID for Export or Import as appropriate 

if (ILTR_nCmd == ILTR_EXPORT) 

nCharMapID = ILTR_nSourceExportCharMapID; 
else 

{ 

if ( (ILTR_VERSION_IS_PRIOR_TO (30))) 

nCharMapID = ILTR_nSourceImportCharMapID; 
else 

nCharMapID = ILTR_nTargetImportCharMapID; 

} 

// Load/initialize the f ield/charcter map structures from TABLES. ITB 

return ILFldLoadMap ( tr, &ILTR_map, nCharMapID) ; 

} 



/* 

* The table information has already been loaded into I LT R_T AB L E I N FO . We 

* now only need to copy this information into the appropriate "tr" 

* structure members and return success. When doing a "SyncPort" the 

* source and target system ID'S are reversed for phases ILTR_PHASE10 and 

* ILTR_PHASE40. We need to make sure the right information is loaded for 

* the current source and target for any of the ILTR phases. 

* V 

// If the source and target are NOT reversed, we use the data "asis" 

if (ILTR_phase != ILTR_PHASE10 && ILTR_phase != ILTR_PHASE40) 
i 

// Copy the complete field map table and its field list pointers 

ILTR_map = ILTR_pTableInfo->sFieldMap; 

} 
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// Source/target have been swapped, so we need to swap the table data 

else 
{ 

ILTR_PFLDMAP pMap; 

// Get ~a direct pointer to the original field map table information 

pMap = &ILTR_pTableInfo->sFieldMap; 

// Copy source data to target and target data to source 

ILTR_map. nSource = pMap->nTarget; // Count of source fields 

ILTR_map. nTarget = pMap->nSource; // Count of target fields 

ILTR_map. nMapStatus - pMap->nMapStatus ; // Map status indicator 
IL_STRCPY { ILTR_map. sName, // Template name 

pMap->sName ) ; // . . 

I LTR_map . Appt Da t e = pMap->ApptDate; // Index of appt date field 

ILTR_map. ShowSource = pMap->ShowTarget ; // Index of source "show" field 
ILTR_map.ShowTarget = pMap->ShowSource; // Index of target "show" field 
ILTR_map.TopSource = pMap->TopTa rget ; // Index of top source field 
ILTR_map.TopTarget = pMap->TopSource; // Index of top target field 
ILTR_map. nSource = pMap->hTa rget ; // Handle to source fields 

ILTR_map. nTarget = pMap->hSource; // Handle to target fields 

ILTR_map.pSource = pMap->pTarget; // Pointer to top source field 

ILTR_map.pTarget = pMap->pSource; // Pointer to top target field 

} 

// Copy the character map info for Export or Import as appropriate 

i f { ILTR_nSynchroni ze ) 
{ 

if ({ILTR_phase == ILTR_PHASE10 || ILTR_phase == ILTR_PHASE30 ) && 
(ILTR_VERSION_IS_AT_LEAST (30))) 

{ 

ILTR_sExportCharMap = ILTR_pTableIn f o->sTa rgetExportCharMap; 
ILTR__sImportCharMap = I LTR_pTableInfo->sTa rget ImportCha rMap; 

} 

else 
{ 

ILTR_sExportCharMap = ILTR_pTableInfo->sSourceExportCharMap; 
ILTR_sImportCharMap = ILTR_pTableInfo->sSourceImportCharMap; 

} 

} 

else 
{ 



if (ILTR_nCmd == ILTR_EXPORT || I LTR_VERSION_IS_PRIOR_TO (30)) 
{ 

ILTR_sExportCharMap = ILTR_pTableInfo->sSourceExportCharMap; 
ILTR_sImportCharMap = ILTR_pTableInfo->sSourceImportCharMap; 



} 

else 
{ 



} 



ILTR_sExportCharMap = ILTR_pTableInfo->sTargetExportCharMap; 
ILTR_sImportCharMap = ILTR_pTableInf o->sTa rget ImportCha rMap; 



} 



* The source and target field lists are now set. Construct a sorted list 

* of unique, INTERNAL field names along with a count of top level fields. 

* This list will be allocated by ILFldList and freed by ILFreeTables. 

+ , 

nRc = ILFldList (tr) ; 
if (nRc != SUCCESS) 
return nRc; 

// All done 

return SUCCESS; 



/ 



} 



/* 

* Name: ILFreeTables 

* Purpose: Free table information after import or export. The table 

* information in I LT R_TAB LE I N FO (when available) is NOT freed. 

* When ILTR_TABLEINFO is being used we simply clear any handles 
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* and pointers to table data copied to tr by ILSetupTables . 

* Input: tr — Pointer -to translation structure 

* Return : void 

* V 

I LBASE FN_vo id ILFreeTables // Free table info after import/export 

( ILTR_PTRAlTsL tr ) // Pointer to translation structure 

{ 

// If no table information loaded, free data allocated by ILSetupTables 

if ( (ILTR_VERSION_IS_PRIOR_TO (14)) |( (ILTR pTablelnfo == NULL) ) 



{ 



// Free the character mapping tables. 

if ( I LTR_sExpo rtCharMap. buffer ) 

IL_FREE_AND_ZERO { ILTR_sExportCharMap. handle, ILTR_sExportCharMap. buffer ) ; 
if (I LT R_s I mpo rtCharMap. buffer) 

IL_FREE_AND_ZERO ( I LTR_sImpo rtCharMap. handle, I LTR_sImpo rtCharMap. buffer } ; 

// Free the source and target field lists. 

i f ( ILTR_map. pSource ) 

IL_FREE_AND_ZERO ( I LTR_map . hSource, I LTR_map . pSou rce ) ; 
if ( ILTR_map. pTarget ) 

IL_FREE_AND_ZERO ( ILTR_map . hTarget , ILTR_map . pTarget ) ; 

// Clear selected source/target fields. 

ILTR_map. nSource = ILTR_map. nTarget = 0; 
ILTR_map.TopSource ~ ILTR_map.TopTarget = -1; 

// Free the sorted list of source field (internal) names 

if ( ILTR_list .Name) 

IL_FREE_AND_ZERO { I LTR_list . handle, I LTR_list . Name } ; 
ILTR_list .Count = 0; 

// All done. 

return; 

} 

/* 

* The table information in the tr structure was placed there from data in 

* ILTR_TABLEINFO. We now need clear the appropriate values in the tr 

* structure to "appear" that they have been freed. Note that we actually 

* DO free the sorted list of internal source field names in ILTR list, as 

* this list needs to be rebuilt for each individual import or export. 

*■ + / 

// Clear the character mapping table handle and pointer 

ILTR_sExportCharMap. handle = I L_NULL_HANDLE; 
ILTR_sExportCharMap. buffer = NULL; 
ILTR_sImportCharMap. handle =* IL_NULL_HANDLE; 
ILTR_sImportCharMap. buffer = NULL; 

// Clear the source and target field lists handles and pointers 

ILTR_map . hSource = ILTR_map . hTa rget = I L_NULL_HAN DLE ; 
ILTR_map. pSource = ILTR_map . pTa rget = NULL; 

// Clear selected fields. 

ILTR_sExportCharMap. width = 0; 
ILTR_sImportCharMap. width = 0; 
I LTR_map . nSource = ILTR_map . nTarget - 0; 
ILTR_map.TopSource = ILTR_map.TopTarget = -1; 

// Free the sorted list of source field (internal) names 

if (ILTR_list.Name) 

IL_FREE_AND_ZERO ( ILTR_list . handle, ILTR_list . Name ) ; 
ILTR_list. Count = 0; 

// All done 

return; 



/* 

* The remaining code ( ILFldLoadMap and ILFldLoadCharMap) are here only for 

* compatibility with the past. If the engine we are running under was built 

* with an ILTR version earlier than ILTR version 14, OR if the engine/ILWIN 

* did not call ILX_LoadFieldLists, there will not be any table information in 
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* the tr structure. In these cases, I LFldLoadMap is called as in the past 

* to load the necessary information from TABLES. ITB. Once we can be sure 

* that all supported versions of ILX and ILWIN are using ILX LoadFieldLists, 

* we can delete the following code and any references to it from above . 

* V 



// Internal function to load ITB 

static 

int IL_DECL ILFldLoadCharMap 
( ILTR_PTRANSL tr, 
ILTB_PHNDL phTable, 
ILTB ID nCharMapID ) ; 



character map table 

// Load field map and CharMap tables 

// Pointer to translation structure 

// Pointer to ITB open file handle 

// ITB character map table ID 



/ 



Name : 
Purpose 
Input : 



+ 
* 

* Return 

* Author 



ILFldLoadMap 

Create and load a field map template and CharMap table 

tr Pointer to translation structure 

fields Pointer to field map table 

CharMap Character map ID 
SUCCESS, FAILURE, or error code 

Mike Blanchette, Copyright (c) IntelliLink, 1992 



7 



ILBASEFN_int ILFldLoadMap 
( ILTR_PTRANSL tr, 

ILTR_FLDMAP IL_DIST * fields, 
ILTB_I D nCharMapID ) 

{ 



ILTR_NDX 


i; 


int 


error = SUCCESS; 


int 


f ieldCount ; 


int 


len; 


int 


memSize; 


int 


ndx; 


int 


rc = SUCCESS; 


ILTB ID 


sourceFldID; 


ILTB_ID 


targetFldID; 


char 


s Fi le [MAX_PATH J ; 


ILTB HNDL 


hTable; 


IL HANDLE 


hMap; 


IL HANDLE 


hSource; 


IL HANDLE 


hTa rget ; 


IL HANDLE 


hTemp; 


ILTB PMAP 


pMap = NULL; 


ILTB PFLDLST 


pSource = NULL; 


ILTB PFLDLST 


pTarget = NULL; 



// Load field map and CharMap tables 
// Pointer to translation structure 
// Pointer to field map table 
// ITB character map table ID 

// Loop variable 
/ / Return code 
/ / Field count 
// Record length 
// Memory size 
// Field index 
// Return code 

// field list ID of source list in file 

// field list ID of target list in file 

// Temporary file name 

// Handle to ILTB tables file 

// Handle to field map 

// Handle to source field list 

// Handle to target field list 

// Temporary handle 

// Pointer to map record 

// Pointer to source field list 

// Pointer to target field list 



// Clear variables. 

f ields->nSource = f ields->nTarget = 0; 
f ields->ShowSource = f ields->ShowTarget = -1; 
f ields->TopSource = f ields->TopTarget = -1; 
f ields->ApptDate = -1; 

f ields->pSource = f i e Ids ->pTa rget = NULL; 
f ields->nMapStatus = 0; 
f ields->sName [ 0] = 'NO'; 

// Locate the ITB tables file containing field and character maps 

IL_STRCAT (IL_STRCPY {sFile, ILTR_szCurWD) , IL_FILESEP_STR) ; 
IL_STRCAT (sFile, ILX_TABLES_FILE ) ; 

/ + 

+ Open System Table File in UPDATE mode, except that if the file is 

* READONLY, open it in READ mode. Most of our apps, including ILWIN, 

* need UPDATE access , but some, e.g. IntelliLink for Win Pad, 

* need nothing more than READ access. 

+ v 

if { I LTBOpen {sFile, &hTable, ILTB_MODE_AS_ALLOWED) ) 
return ILTR_ERR_MAPFILE; 

/* 

* Initialize the tr character mapping table, using the specified ITB 
+ character map ID if both specified and available. 

* V 

error = ILFldLoadCharMap {tr, ShTable, nCharMapID); 
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if (error) 
{ 

error = ILTR_ERR_NOCHARMAP; 
goto errorExit; 

} 

/ + 1 

* Find a suitable field map ID in ITB tables file if no Map ID is 

* specified in the translation structure. 

* / 

if ( ! ILTR_nMapID) 
{ 

if ( ! (ILTR_nMapID = ILTBFindMapID ( ShTable, 

ILTR_nSourceID, 
ILTR_nSrcSection, • 
ILTR_nTargetID, 
ILTR_nTarSection, 
&ILTR reversed } J ) 

{ 

error = ILTR_ERR_NOMAP; 
goto errorExit; 

} 

) 

// Now obtain the map record length. 

len = I LTBGetMapRecLen (fihTable, ILTR_nMapID) ; 

if (! len) 

{ 

error - ILTR_ERR_BADMAP; 
goto errorExit; 

} 

// Allocate sufficient memory to load map record in memory. 

I L_ALLOC_MEM (len, hMap, pMap); 

if (pMap == NULL) 

{ 

error = ILTR_ERR_NOMEM; 
goto errorExit; 

.} 

// Read the map record. 

if ( ILTBGetMapRec ( ShTable, ILTR_nMapID, NULL, pMap, len) ) 
{ 

error = I LT R_E R R_BADMA P ; 
goto errorExit; 

} 

// Check if systems are reversed in this field map. 

if ( ILTBGet FldAppI D (ShTable, pMap->sourceList ) — ILTR_nSourceID) 

ILTR_reversed = FALSE; 
else 

ILTR_reversed = TRUE; 

// Note the map name and number of mapped fields. 

IL_STRCPY ( f ields->sName, pMap->name); 

fieldCount = ILTBGet FldFieldNum (ihTable, pMap->sourceList ) ; 

// s et tne source and target field list ID*s based on order. ^ 

if (ILTR_reversed) 
{ 

sourceFldID = pMap->ta rgetList ; 
targetFldID = pMap->sourceList ; 

} 

else 
{ 

sourceFldID = pMap->sourceList ; 
targetFldID = pMap->ta rgetList ; 

} 

// Determine the size of the field list. 

len = ILTBGet FldRecLen (&hTable, sourceFldID); 

if (! len) 

{ 

error - ILTR_ERR_BADMAP; 
goto errorExit; 
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} 

// Allocate memory required to hold all source fields 

I L_ALLOC_MEM (len, hSource, pSource); 

if {pSource == NULL) 

{ 

error = I LT R_E RR_N OM EM ; 
goto errorExit; 

} 



// Now read the field list into memory. 

if ( ILTBGetFldRec ( &hTable, source Fid ID, pSource, len) ) 



error = ILTR_ERR_BADMAP; 
goto errorExit; 



// Post the field associations in the source fields. 

IL_SYNC_MEM {hMap, pMap); 
for {i = 0; i < fieldCount; 
( 

if ((ndx « pMap->map!ndex [ i ] ) != I LXJJNMAPPED) 



{ 



if (ILTR_reversed) 

pSource->field[ndx] .maplndex = i; 
else pSource->f ield [ i ] .maplndex = ndx; 



* Now allocate memory for the source list that will actually 

* be used by the translators. 
* */ 

f ields->nSource = pSource->f ieldNum; 

memSize = sizeof (ILTR_FIELD) * f ields->nSource; 

IL_ALLOC_MEM (memSize, hTemp, f ields->pSource ) ; 

f ields->hSource = hTemp; 

if ( f ields->pSource == NULL) 

{ 



error = ILTR_ERR_NOMEM; 
goto errorExit; 



} 



// Process all source fields . 

for ( i = 0; i < f ields->nSource; i + + ) 
{ 



Copy all fields from 



f ields->pSource 
f ields->pSource 
f ields->pSource 
f ields->pSource 
f ields->pSource 
f ields->pSource 
f ields->pSource 
f ields->pSource 
f ields->pSource 
f ields->pSource 
IL_STRCPY 
IL STRCPY 



. ItemNo 
•Type 
.Width 
.Term 
. Att ribs 
.MapField 
. Assoc 
. Index 
.NextField 
. PriorField 



input record to output buffer. 
= pSource->f ield [ i ] . itemNo; 

(char) pSource->field[i] .type; 



pSource-> field [ i 

pSource->f ield [ i 

pSource- >f ield [ i 

pSource->field[i 

pSource->f ield [ i 

-1; 

-1; 



.width; 
.delimit; 
. attribs; 
. maplndex; 
. assoc; 



IL 
IL* 



STRCPY 
"STRCPY 



-l; 

(fields->pSource[i] .IntName, pSource->f ield [ i ] .label) ; 
( f ields->pSource [ i ] .ExtName, pSource->f ield [ i ] .name) ; 



{ f ields->pSource [ i ] .Label, pSource->f ield [ i ) .prefix) ; 
( f ields->pSource [ i ] .TypeDesc, pSource->f ield [ i ] .typeDesc) 



} 



// Locate insertion point and post next/prior field indexes 

ILFldlnsert ( & f ields->TopSource, i, f ields->pSource ) ; 



// 
if 

{ 



} 



Free the source list record. 

( pSource ) 

IL_FREE_MEM (hSource, pSource); 
pSource = NULL; 



// Determine the size of the target field list 

len = ILTBGet FldRecLen (ihTable, targetFldID) ; 
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if {! len) 
< 

error = I LT R_E R R_BA DMA P ; 
goto errorExit; 

> 

// Allocate memory required to hold all target field descriptors. 

I L_AL LOC_M EM (len, hTarget, pTarget); 

if {pTarget == NULL) 

{ 

error = ILTR_ERR_NOMEM; 
goto errorExit; 

} 



// Now read target field list into memory. 

if ( ILTBGet FldRec UhTable, targetFldID, pTarget, len)) 
{ 

error = ILTR_ERR_BADMAP; 
goto errorExit; 

} 

// Post the field associations in the target fields. 

IL_SYNC_MEM (hMap, pMap); 

for (i = 0; i < fieldCount; i++) 

{ 

if ((ndx = pMap->mapIndex[i] ) != ILXJJNMAPPED) 
{ 

if { ILTR_reversed ) 

pTarget->f ield [ i ] . maplndex = ndx; 
else pTarget->f ield [ndx ]. maplndex = i; 

} 

} 



/ 



* Now allocate memory for the target list that will actually 

* be used by the translators. 
+ + / 

f ields->nTarget = pTarget->f ieldNum; 

memSize - sizeof (ILTR_FIELD) * f ields->nTarget ; 

I L_ALLOC_MEM {memSize, hTemp, f ields->pTa rget ) ; 

f ields->hTarget = hTemp; 

if ( f ields->pTarget == NULL) 

{ 



error = I LT R_ER R_NOM EM ; 
goto errorExit; 



// Process all source fields 

for (i = 0; i < f ields->nTa rget ; 
{ 



// Copy all 

f i elds ->pTa rget 
f ie Ids ->pTa rget 
f i e Ids ->pTa rget 
f ields->pTarget 
f i e Ids ->pTa rget 
f i e Ids ->pTa rget 
f ie Ids ->pTa rget 
f ie Ids ->pTa rget 
f ie Ids ->pTa rget 
f i e Ids ->pTa rget 
IL_STRCPY 
IL STRCPY 



fields from i 
. ItemNo 
•Type 
.Width 
.Term 
. At t ribs 
. MapField 
. Assoc 
. Index 
.NextField 



PriorField 
( f i elds- >pTa rget [ i 1 
( f ields->pTarget [ i ] 



IL_STRCPY ( f ields->pTarget [ i ] 
IL_STRCPY ( f ields->pTarget { i ] 



nput record to output buffer. 
= pTarget->f ield [ i ] . itemNo; 
= (char) pTarget->f ield { i ]. type; 
= pTarget->f ield [ i ] .width; 
~ pTarget->f ield [i] .delimit; 
= pTarget->f ield [ i ). att ribs; 
= pTarget->f ield [ i ] .maplndex; 
= pTarget->f ield [ i ] . assoc; 
= -1 
= -1 
= -1 

IntName, pTa rget -> field [ i ] . label ) ; 
Ext Name, pTa rget ->f ield [ i ] . name ) ; 
Label, pTarget->f ield [ i ] .prefix); 
TypeDesc, pTa rget->f ield [ i ] .typeDesc) 



// Locate insertion point and post next/prior field indexes. 

ILFldlnsert ( &f ields->TopTarget, i, f ields->pTarget ) ; 



/* 

* The source and target field lists are now set. Construct a sorted list 

* of unique, INTERNAL field names along with a count of top level fields. 

* This list will be allocated by ILFldList and freed by ILFreeTables . 
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error = ILFldList (tr); 
errorExit : 

// Free dynamic memory be fore leaving . 

if (pMap) 

IL_FREE_MEM ~{ hMap, pMap); 
if (pSource) 

IL_FREE_MEM (hSource, pSource); 
if (pTarget) 

IL_FREE_MEM (hTarget, pTarget); 

// Close the ILTB tables file. 

rc = ILTBClose UhTable); 

// Return with error code (default of SUCCESS). 

return (error ? error : rc); 

} 



+ 
* 

+ 



Name : 
Purpose : 

Input : 



Return : 
Author : 



ILFldLoadCharMap 

Initial ize the character mapping table. Load sys tern- spec i f ic 
CharMap table from ITB if one is specified and provided. 

tr Pointer to translation structure 

phTable — Pointer to ITB open file handle 

Cha rMap — Character map ID 

SUCCESS, FAILURE, or ILTB error code 

Bob Daley, Copyright (c) IntelliLink, 1995 



/ 



static 

int IL_DECL ILFldLoadCharMap 
( ILTR_PTRANSL tr, 
ILTB_PHNDL phTable, 
ILTB_ID nCharMapID ) 

{ 

int 
int 
int 

IL_HANDLE 
ILTB PCHARMAPREC 



i; 

iRc; 

nMemSize; 
hCharMap; 
pCharMap = NULL; 



// Load field map and CharMap tables 

// Pointer to translation structure 

// Pointer to ITB open file handle 

// ITB character map table ID 

// Temporary loop/index variable 

// Function return code 

// Number of bytes to be allocated 

// Handle for CharMap record buffer 

// Pointer to CharMap record buffer 



// Allocate memory for character mapping tables. 

nMemSize = I LT B_C H ARMA P_C H AR S * sizeof (char); 

IL_ALLOC_MEM ( nMemSize, I LTR_sExport Cha rMap. handle, ILTR_sExportCharMap. buffer) ; 
if ( ILTR_sExportCharMap. buffer == NULL) 
return ILTR ERR NOMEM; 



I L_ALLOC_MEM (nMemSize, ILTR_sImportCha rMap . handle, ILTR_sImportCharMap . buf f er ) ; 
if (ILTR_sImportCharMap. buffer == NULL) 
return ILTR_ERR_NOMEM; 

// Initialize null CharMap tables in case no CharMap provided. 

for (i = 0; i < I LTB_CHARMA P_CHARS; i++) 

{ 

ILTR_sExportCharMap.buf fer [i] = i; 
ILTR_sImportCharMap.buf fer ( i] = i; 

} 

// If no CharMap ID provided, simply return success. 

if (nCharMapID == 0) 
return SUCCESS; 

// Make sure we have a valid CharMap ID. 

if ( ! ILTBIsCharMapRec (phTable, nCharMapID) ) 
{ 

// Simply ignore error if this ITB file doesn't support CharMaps. 

iRc = ILTBLastError (phTable); 
if (iRc == ILTB_ERR_VERSION) 
return SUCCESS; 

// Not an "ITB file version" issue. We have a bad CharMap ID. 

return ILTR ERR MAPFILE; 
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// Get the record length for this CharMap ID. 

nMemSize = ILTBGetCharMapRecLen (phTable, nCharMapID); 
if (nMemSize ==0) 

return I LTR_ERR_MAP FI LE ; 

// Allocate memory for the FULL CharMap record. 

I L_ALLOC_MEM (nMemSize, hCharMap, pCharMap); 
if {pCharMap == NULL) 

return ILTR_ERR_NOMEM; 

// Read in the complete CharMap record. 

iRc = ILTBGetCharMapRec (phTable, nCharMapID, pCharMap, nMemSize); 

if (iRc) 

{ 

iRc = ILTR_ERR_MAPFILE; 
goto CleanUpAndReturn; 

) 

// Initialize the Character Mapping tables from the CharMap record data. 

for (i = 0; i < I LTB_CHARMAP_CHARS; i++) 
{ 

ILTR_sExportCharMap. buf f er [ i ] = pCharMap->cChars [ i ] ; 
ILTR_sImportCharMap.buf fer [il = pCha rMap->cCha rs [ i ] ; 

} 

// All done, indicate successful completion. 

iRc = SUCCESS; 

// Clean up and return status. 

CleanUpAndReturn : 
if (pCharMap) 

IL_FREE_MEM (hCharMap, pCharMap); 
return iRc; 
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/* 

* Name: CHARMAP.C 

* Part of: the IntelliLink Translation Harness ( ILTR library) 

* Contents: functions used for Character Mapping: 

* ILLoadCharMapTbl - Load a character mapping table from TABLES. ITB 

* ILMapChars - map characters in a string from one encoding to 

* another, using a character mapping table and a 

* pair of OLD and NEW line terminator strings. 

* Author: Roger Duchesneau, Copyright (c) IntelliLink Corporation, 1994 

* Bob Daley, Copyright (c) IntelliLink Corporation, 1995 

* David Boothby, Copyright {c) IntelliLink Corporation, 1995 

* / 

/* 

* NOTE: this is an "ILBASE" module, which means that it may be built into 

* a "base" DLL rather than being statically linked into every 

* translator. Please ensure that all non-static functions in this 

* module are declared with ILBASE_xxxx macros, defined in ILTYPES.H. 

* v 

^include "ilxapi.h" // Common translator definitions 

/* 

* Function: ILLoadCharMapTbl 

+ Purpose: Load a character mapping table from the ITB file 

* Input: nCharMapID -- the ID of the CharMap to be loaded 

* pcCharMap pointer to the CharMap character table 

* Returns: SUCCESS or ILTR error code 

* V 



ILBASEFN_int ILLoadCharMapTbl 
( ILTB_ID nCharMapID, 
IL_PSTR pcCharMap ) 

{ 

int 
int 
int 

IL_HANDLE 
I LTB_PCHARMAPREC 
ILTB HNDL 



i; 

iRc; 

nMemSize; 
hCharMap; 
pCharMap = NULL; 
hTable; 



// Load CharMap table from ITB file 

// ID of CharMap to be loaded 

// Pointer to CharMap table to fill in 

// Loop/index variable 

// Function return code 

// Number of bytes to be allocated 

// Handle for CharMap record buffer 

// Pointer to CharMap record buffer 

// Handle to ITB tables file 



// Initialize null CharMap table in case no CharMap provided. 

for (i = 0; i < ILTB_CHARMAP_CHARS; i++) 
pcCharMapfi] = i; 

// If no Cha rMap I D provided , simply return success. 

if (nCharMapID == 0) 
return SUCCESS; 

// Open the ILTB file in read-only mode. 

if (ILTBOpen ( ILX_TABL£S_FILE, &hTable, ILTB_MODE_READ) ) 
return ILTR_ERR_MAPFILE; 

// Make sure we have a valid CharMap ID. 

if (! ILTBIsCharMapRec (ihTable, nCharMapID)) 
{ 

// Simply ignore error if this ITB file doesn't support CharMaps 

iRc = ILTBLastError UhTable); 
if (iRc == ILTB_ERR_VERSION) 
return SUCCESS; 



} 



// Not an "ITB file version" issue. We have a bad CharMap ID 

return ILTR ERR MAPFILE; 



// G et tne record length for this CharMap ID. 

nMemSize = ILTBGetCharMapRecLen (ShTable, nCharMapID); 
if (nMemSize == 0) 

return ILTR_ERR_MAPFILE; 

// Allocate memory for the FULL CharMap record. 

IL_ALLOC_MEM (nMemSize, hCharMap, pCharMap); 
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if (pCharMap == NULL) 

return I LTR_ERR_NOMEM ; 

// Read in the complete CharMap record. 

iRc - ILTBGetCharMapRec (fihTable, nCharMapID, pCharMap, nMemSize); 

if (iRc) 

{ 

iRc = ILTR_ERR_MAPFILE; 
goto CleanUpAndReturn; 

} 

// Initialize the Character Mapping table from the CharMap record data. 

for (i = 0; i < ILTB_CHARMAP_CHARS; i + +) 
pcCharMap [ i ] = pCha rMap->cCha rs [ i ] ; 

// Make sure NULL maps to NULL ... otherwise we'll go crazy!! 

if {pcCharMaptO) != 0) 

iRc = ILERROR ( 0, ILTR_ERR_INTERNAL_ERROR) ; 
else 

iRc = SUCCESS; 

CleanUpAndReturn : 

// Free any allocated memory. 

if (pCharMap) 

IL_FREE_MEM (hCharMap, pCharMap); 

// Close the ILTB tables file. 

if (ILTBClose (ihTable) && iRc == SUCCESS) 
iRc = ILTR_ERR_MAPFILE; 

// Return status . 

return iRc; 

} 



/* 

* Name: 



ILMapChars - map characters in a string from one encoding 

to another. 



* Purpose: 1. Map characters to their new value using the specified mapping 

* table. 

* 2 . Switch from one line terminator string to another 

* Returns: SUCCESS 

* or ILTR_ERR_TRUNC or ILTR_ERR_NOMEM or ILTR_ERR_INTERNAL_ERROR 
+ 

+ Author:. David Boothby, Copyright (c) IntelliLink, 1995 

* Notes: 

* o . Conversion is never done in place . We always read from one buffer 

* and write to another. 



o. We do NOT require that the input string be null terminated, 
guarantee that the output string will be null terminated. 



But we 



o. We require that one of the line terminator "strings (either old or new) 
be exactly 1 character long. The other line terminator can be either 
1 or 2 characters long. 

o. The output buffer is a reusable buffer that the user is NOT expected 
to free. 

*/ 



ILBASEFN_int ILMapChars 

( IL_PSTR plnBut, 
INT32 lOldLen, 
IL_PSTR szOldLineTerm, 
IL_PSTR szNewLineTerm, 
IL_PSTR charmap, 
INT32 MaxLen, 
ILUT_PBUFFER pOutput ) 

{ 

int rc, rc2; 
INT32 i; 



// length of input string 



// max STRLEN for converted string 
// -> header for reusable buffer 
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INT32 INewLen; 

int nOldTermLen = IL_STRLEN (szOldLineTerm); 

int nNewTermLen = IL_STRLEN (szNewLineTerm) ; 

int delta - nNewTermLen - nOldTermLen; 

char cNewTermO = szNewLineTerm[0] ; 

char cNewTerml =. szNewLineTerm [ 1 ] ; 

char cOldTerm0-= szOldLineTerm(O) ; 

char cOldTerml = sz01dLineTerm[ 1 ] ; 

UINT8 ucOldTermO = { (UINT8 *) szOldLineTerm) [0] ; 

UINT8 ucOldTerml = ( (UINT8 *) szOldLineTerm) [ 1 ] ; 

IL_PSTR pOut; 

UINT8 *pln = (UINT8 *) plnBuf; 
char cMapSave ; 

/* 

* Enforce restrictions: require that both old and new line terminator 

* strings be 1 or 2 chars long, and don't allow BOTH to be 2 chars 

* long. 

*■ -tf J 

if ( (nOldTermLen < 1) 

I I (nOldTermLen > 2) 

II (nNewTermLen < 1) 
I | (nNewTermLen > 2) 

|| (nOldTermLen + nNewTermLen > 3) ) 
return ILERROR (nOldTermLen + ( 10*nNewTermLen) , ILTR_£RR_INTERNAL_ERROR ) ; 

/* 

* If conversion is other than 1-for-l character replacement, find out 

* how many line terminators there are. 

+ _ * i 

if (delta !^ 0) 
{ 

int deltaCount = 0; // number of size-changing replacements 

if (nOldTermLen == 1) 

{ 

for (i=0; i < lOldLen; i++) 
if (plnBuffi] == cOldTermO) 
deltaCount++; 

} 

else 
{ 

for (i=0; i < 101dLen-l; 

if (plnBuffi] == cOldTermO && pInBuf[i+l] == cOldTerml ) 
{ 

deltaCount++; 

i++; // double-step 

} 

} 

// See how much size will change if all replacements are made 

delta *= deltaCount; 

} 

/ 

* Compute how long converted string will be. Don't let it exceed max. 
■*• * i 

INewLen - lOldLen + delta; 
if (INewLen <= MaxLen) 

rc = SUCCESS; 
else 
{ 

INewLen = MaxLen; 
rc = ILTR ERR TRUNC; 



/* 

* Ensure that output buffer is big enough. If not, expand it. 

+ * y 

rc2 = I LUT_Get Buffer (pOutput, INewLen +1); // room for null 
if (rc2 == ILUT_ERR_NOMEM) 
return ILTR_ERR_NOMEM; 

else if (rc2 -= I LUT_ERR_SETTLE_FOR_LESS ) 
( 

INewLen = pOutput->lBu f Si ze - 1 ; //leave room for null 
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rc = ILTR_ERR_TRUNC; 

} 

// get local pointer to output buffer 

pOut = pOutput->pBuf f er ; 

/* — 

* If no size-changing replacements are required, do a simple 1-for-l 

* character replacement . 
* 

* NOTE: this clause is used not only for conversions with same-size 

* line terminators, but also for all conversions where the 

* input string contains no line terminators. 

* V 

if (delta == 0) 
{ 

// temporarily hack charmap to map EOLs correctly 

cMapSave = charmap[ucOldTerm0] ; 
charmap[ucOldTerm0] = szNewLineTerm[0] ; 

/* 

* Translate string, but not more than output buffer can handle!! 

+ */ 

for (i=0; i < INewLen; i++) 
*pOut++ = charmap[*pln++] ; 

*pOut = 0; // null-terminate output string 

/* 

* Restore the char map to the way it was. 

+ */ 

charmap [ucOldTermO] = cMapSave; 

) 

else 
{ 

/* 

* Do size-changing substitution. Make 'pOutMax' point to where 

* the null terminator for the output string should go. 

* + / 

UINT8 uln; 

IL_PSTR pOutMax *= &pOut [ INewLen ] ; 

while ((uln => *pln++) != 0) 
{ 

if (uln == ucOldTermO) 
{ 

// looks like we hit a line terminator in the input string 

if (nOldTermLen I) 
{ 

/* 

* Put 2-char line terminator in place of 1-char terminator 



/ 



+pOut++ = cNewTermO; 
if (pOut == pOutMax} 

{ 

*{ — pOut) = 0; // never put out HALF a line terminator 
break; 

) 

*pOut++ = cNewTerml; 
if (pOut == pOutMax) 
break; 

} 

else if {*pln == ucOldTerml} 
{ 

/* 

* Put 1-char line terminator in place of 2-char terminator. 
* */ 

pln++; 

*pOut++ = cNewTermO; 
if (pOut == pOutMax} 
break; 

} 

else 
{ 
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/* 

* Treat HALF a line terminator just like a vanilla character 

* V 

*pOut++ = charmapfuln] ; 

if (pOut ~~ pOutMax) 
break; 



} 



} 

else 
( 

// Do 1-for-l substitution for vanilla character 

*pOut++ = charmap [ uln ] ; 
if {pOut ~ pOutMax) 
break; 

} 

} 

*pOutMax = 0; // null-terminate converted string 

} 

// a n done. return SUCCESS or ILTR_ERR_TRUNC 

return rc; 



} 
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/* 

* Name : fidget . c 

* Part of: IntelliLink translation harness { ILTR library) 

* Contents: Functions for getting Field Values from ILIF or TIF 

* Functions : 

* ILFldGet - does Field Mapping to get field value 

* ILFldGetEx - the guts of ILFldGet, is directly callable 

* FormaText 

* GetBaseValue 

* MapFieldValue 

* MapText 

* StripFloatltems 

* ILTRGetField - gets field value directly, w/o field mapping 

* ILTRGet FieldEx - gets field value directly, w/o field mapping 

* NOTE: For all 3 functions, the last argument, "*pLength", is an 

* IN/ OUT parameter that is treated quirkily for TEXT fields: 

* ==> the IN value of +pLength is max size INCLUDING null terminator, 

* but the OUT value of + pLength is STRLEN (text ) — not including null. 

* So to get the value "Fred", you must supply *pLength >= 5, 

* and when the call completes you* 11 have *pLength =- 4. 

* Author: Copyright (c) IntelliLink, 1992-1995 

* v 

/ + 

* NOTE: this is an "ILBASE" module, which means that it may be built into 

* a "base" DLL rather than being statically linked into every 

* translator. Please ensure that all non-static functions in this 

* module are declared with ILBASE_xxxx macros, defined in ILTYPES.H 

* v 

#define MSC 

#include "iltr.h" 

^include "ilx.h" 

#define TEMP_NUM_SIZE 10 

// 

// WARNING: Programmer discretion advised! This source file contains 

// intricate and subtle code which must fully understood before attempting 

// any changes. Remember that the field mapping logic must handle cases 

// involving one-to-many, many-to-one, and many-to-many fields. No 

// changes should be attempted to this module without a thorough knowledge 

// of field mapping logic and a full assessment of consequences. 

/ + 

* NOTE: as of 4/25/95, this module is both called by TIF code, and makes 

* calls to TIF code, when we are using TIF in place of ILIF. 

*-- - - / 

// Function prototypes for internal functions 

static int FormaText ( ILTR_PTRANSL tr, 

int nWhich, 

IL_PSTR lpOutBuf, 

unsigned int nOutBuf , 

ILTR_NDX nTarget, 

ILTR_NDX nSource, 

IL_PSTR lpField, 

unsigned int nField ) ; 

static long GetBaseValue ( ILTR_PTRANSL tr, 

int nWhich, 
char cSrcType, 
ILTB_ATTRIB lSrcAttribs, 
IL_PSTR lpBaseName, 
char cBaseType, 
ILTB__ATTRIB IBaseAttribs, 
int nTarAssoc, 
BOOL16 *pbNegativeBase) ; 

static int MapFieldValue ( ILTR_PTRANSL tr, 

int nWhich, 
ILTR_NDX nTarget, 
ILTR NDX nSource, 
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IL_PSTR lpOutBuf, 

unsigned int IL_DIST * nOutBuf ); 

static int MapText ( IL_PSTR psText, 

unsigned int nMax, 
unsigned int IL_DIST 
IL_PSTR pszTerm, 
IL_PSTR charmap, 
ILUT_PBUFFER pTmpBuf 

static void StripFloatltems ( ILTR_FLDPTR lpFld, 

IL_PSTR lpBuffer, 
int nSrcNdx, 
int nCurNdx ) ; 

/* 

* Name: ILFldGet 

* Purpose: Retrieve and map requested data field 

* Input: Pointer to field name, contents, and max length 

* Return: SUCCESS or error code 

* Author: Mike Blanchette, Copyright (c) IntelliLink, 1992, 1993 



ILBASEFN_int ILFldGet ( ILTR_PTRANSL tr, 

IL_PSTR lpName, 
IL_PSTR lpBuffer, 
unsigned int IL_DIST *pBufLen ) 

( 

unsigned int bufSize = *pBufLen; 
char szTag Digits [ 12 ] ; 
char szTypeDesc [ I LTR_MAX_TYPEDESC] ; 
char fldtype; 
//??? dam 1/16 UINT32 maxlen; 
INT32 maxlen; 
LONG lSize; 
ILTB_ATTRIB attribs; 
int rc, rc2; 

rc = ILFldGetEx ( tr, lpName, TIF_AUTO, 

TRUE, // do character mapping if field is non-binary 
lpBuffer, pBufLen) ; 

switch (rc) 
< 

case SUCCESS: 

case ILTR_ERR_NODATA: 

case I LTR_ERR_TRUNC : break; 

default: return rc; 

) 

/ + 

* Now we may want to add an SST tag to the data, if all signals are GO. 



// If running under a pre-SST stone age app, do nothing 

if ( ILTR_VERSION_IS_PRIOR_TO{ 21 ) ) 
return rc; 

// if we » re NOT importing into a MAIN section, do nothing 

i f { ILTR_TargetSST ! = ILX_SUBSECT_MAIN ) 
return rc; 

// if TAGGING is disabled, do nothing 

if { ILTR_Flags & ILTR_DISABLE_SST_TAGGING ) 
return rc; 

// Q et field attributes 

rc2 = I LFldTypeEx (tr, lpName, &fldtype, iattribs, imaxlen, szTypeDesc); 
if (rc2 != SUCCESS) 

return ILERROR_S ( lpName, ILTR_ERR_INTERNAL_ERROR ) ; 

// — If field isn't TAGGED, do nothing 
if ({attribs & I LT B_ATT_T AGGE D ) == 0) 
return rc; 



*pLen, 

); 
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// Get the current _subType field value 

ISize = (LONG) sizeof (szTagDigits) ; 

rc2 = ILTRGet FieldEx (tr, ILTR_SUB_TYPE, TIF_AUTO, szTagDigits, SlSize); 
if (rc2 != SUCCESS) 

return ILERROR (rc2, ILTR_ERR_INTERNAL_ERROR) ; 

// If subtype is zero ( ILX_SUBSECT_MAIN ) do nothing 

if (IL_STRINGS_EQUAL( szTagDigits, "0" } ) 
return rc; 

rc2 = ILSST_AddTag2 ( tr, bufSize, pBufLen, lpBuffer, 

szTagDigits, szTypeDesc ); 

if (rc2 == SUCCESS) 
{ 

if (rc == ILTR_ERR_TRUNC) 
return ILTR_ERR_TRUNC; 

else if (*pBufLen == 0) // decorated value is ZERO-LENGTH 

return ILTR_ERR_NODATA; 

else 

return SUCCESS; 

} 

else 

return rc2; // I LTR_ERR_TRUNC or abnormal error 
} // ILFldGet 



/* 

* Name: ILFldGetEx 

* Purpose: Special entrypoint for TIF to call 

* to Retrieve and map requested data field 
■** 

* Allows control over which value (ORIGINAL, CURRENT, AUTO) you get. 

* Also allows control over character mapping. 

* Author: David Boothby, Copyright (c) IntelliLink, 1995 

* */ 

ILBASEFN_int ILFldGetEx ( ILTR_PTRANSL tr, 

IL_PSTR lpName, 
int nWhich, 

BOOLEAN bMapCharsIfNonBinary, 

IL_PSTR lpBuffer, 

unsigned int IL_DIST *pBufLen ) 

{ 



int rc; 


// 


Return code 


unsigned int nLine = 0; 


// 


Line length 


unsigned int nMaxLen; 


// 


Maximum field length 


unsigned int nTextLen = 0; 


// 


Text field length 


char cTerm [ ILTR MAX TERM]; 


// 


Field delimiter 


char szLineTerm[ILTR MAX TERM] ; 


// 


Line terminator character 


BOOLEAN bFloat = FALSE; 


// 


Is this a floating field? 


BOOLEAN bFoundOne = FALSE; 


// 


Did we find field name? 


BOOLEAN bGotData = FALSE; 


// 


Did we find data in field? 


BOOLEAN blsMapped = FALSE; 


// 


Is field mapped? 


ILTR FLDPTR IpFld; 


// 


Pointer to fields 


ILTR NDX ndx; 


// 


Array index 



//ffifdef DEBUG 

// char szBuf [100] ; 

// IL_SPRINTF(szBuf , " ILFldGet ( %s ) \ r\n" , lpName) ; 

// Output Debugs t ring (szBuf } ; 

//tfendif 



/* PROLOGUE 

* Traditionally, this function was used strictly on IMPORT to 

* retrieve and map the contents of a given input field. As of 4/25/95, 

* this function is also used during EXPORT, when we are using TIF in place 
+ of I LI F, and need to have Field Mapping take place . 

+ (The TIF file uses one app*s Field List; so we EXPORT from that APP w/o 

* doing any field mapping, but when exporting from the other APP, we have 
+ to do field mapping.) 
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* The caller supplies the name of the target field (corresponding 

* to selected appl icat ion ) and the text of the requested 

* field is returned following field mapping. Nevermind the 

* references to the IL_SYNC_MEM macro unless running under 

* Lotus System Manager. 

* V 

if (ILTR_phase ILTR_PHASE30 ) 
{ 

/* 

* Phase30, which occurs for ILX_V4 TIF-based translation only, 

* is where the Target Translator sanitizes the Source Records, 

* invokes TIF Conflict Resolution, and finally unloads to the 

* Target App. When Target Translator calls ILFldGet, no field 

* mapping should be done, cuz TIF (unlike ILIF) stores data in 

* Target format. 

+■ *• i 

long lien = (long) *pBufLen; 

rc = ILTRGet Fie id Ex (tr, IpName, nWhich, lpBuffer, &llen); 
*pBufLen = (unsigned int) lien; 
return rc; 

} 

lpBuffer [0] = I LTR_NU LL_CHAR ; 
nMaxLen = *pBufLen; 

/ + 

* Verify that the current buffer size is adequate to handle 

* the maximum length. The buffer is dynamically re-allocated 

* to fit the maximum possible field size if necessary. 

+ + / 

IL_SYNC_MEM ( ILTR_f ield . handle, ILTR_field. buffer } ; 

if (*pBufLen > ILTR_f ield . width ) 

{ 

/* 

* Ensure that required field size does not exceed supported 
+ maximum size of record. 

+ * 1 

if (*pBufLen > MAX_I F_ALLOC) 
return ILTR_£RR_NOMEM; 

// Reallocate field buffer to hold maximum field size 

ILTR_f ield .width = *pBufLen; 
IL_REALLOC_MEM ( ILTR_f ield .width, 

ILTR_f ield. handle, 

ILTR_field. buffer ); 

// Unable to allocate memory for larger buffer size 

if (ILTR_field. buffer == NULL) 
{ 

ILTR_f ield .width = 0; 
return I LT R_E R R_N OM EM ; 

} 

1 

/* 

* Treat special case fields . 

*■ _ _ _ * i 

if ( IL_STRINGS_EQUAL ( IpName, ILTR_APP_DATA) 
I | IL_STRINGS_EQUAL( IpName, ILTR_SUB_TYPE) 
I | IL_STRINGS_EQUAL( IpName, ILTR_REP_BASIC) 
I I IL_STRINGS_EQUAL( IpName, ILTR_REP_XDATE } ) 

{ 

long nTempLen = (long) ILTR_f ield .width; 

rc = ILTRGet Fie IdEx (tr, IpName, nWhich, ILTR_f ield . buff er, &nTempLen); 
nTextLen = (unsigned int) nTempLen; 

if ((rc != SUCCESS } && ( rc != ILTR_ERR__TRUNC) ) 
{ 

// Error - unable to retrieve field 

*pBufLen = 0; 
return rc; 

! 

if (nTextLen == 0) 



Copyright ©1996 Puma Technology, Inc. All Rights Reserved. 



Fldget.c 



Page 5 of 18 



{ 

// Found no field value or null field value 

*pBufLen - 0; 

return ILTR_ERR_NODATA; 

> 

/ + 

* Now copy data back into callers buffer. Do this differently for 

* TEXT vs BINARY fields. The only non-BINARY field is _subType. 

* + / 

if ( IL_STRINGS_EQUAL ( lpName, ILTR_SUB_TYPE) ) 
( 

if (nTextLen+1 > *pBufLen) 
{ 

// truncate text to fit into caller's buffer 

nTextLen = *pBufLen - 1; 
rc = ILTR_ERR_TRUNC; 

} 

IL_STRNCPY (IpBuffer, ILTR_f ield . buff er, nTextLen); 
lpBuffer [nTextLen] = 0; 

) 

else 
{ 

/* 

* squeeze binary data into caller's buffer 



if (nTextLen > + pBufLen) 
{ 

nTextLen ~ *pBufLen; 
rc * ILTR_ERR_TRUNC; 

} 

IL_MEMMOVE {lpBuffer, ILTR_f ield .buffer, nTextLen); 

} 

// pass back exact length (not including any null terminator) 

*pBufLen = nTextLen; 

return rc; // SUCCESS or ILTR ERR TRUNC 



// Set initial pointer and index to field map table 

IL_SYNC_MEM ( I LTR_map . hTa rget , I LTR_map . pTa rget ) ; 
lpFld = ILTR_map.pTarget ; 
ndx = I LTR_map . TopTa rget ; 

/* 

* Scan the field list until we find the field name or we reach 

* the end of list. A field index of -1 indicates end of list. 

*■ — — _ + 1 

rc = FAILURE; 
while (ndx != -1) 
{ 

// Compare the internal field names for a match 

if (IL_STRICMP (lpFld [ndx] . IntName, lpName) == 0) 
{ 

// Did we find the first item in field? 

if (IbFoundOne) 
{ 

/* 

* Is this a multi-line field? If so, we will later replace 

* all occurrences of EOS with the application-specific 

* line terminator. 

* + / 

if ( lpFld [ndx] .Attribs & ILTB_ATT_MULTLINE ) 
IL_STRCPY (szLineTerm, ILTR_szLineTerm) ; 

// Replace line terminators with spaces in single-line fields. 

else IL_STRCPY (szLineTerm, ILTR_SPACE_STR) ; 

// Signal that field name was located 

bFoundOne = TRUE; 

) 

/ + 
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* Now parse and retrieve the text from corresponding source field, 

* if there is one ! 

* v 

if UpFld[ndx] .MapField == I LT R_UNMA P PE D_BUT_TAGGE D ) 
{ 

/* 

* Special case to ensure that ILFldGetEx for an unmapped tagged 

* field will return ILTR_ERR_NODATA. Then the caller of 

* ILFldGetEx may Add a Tag to the field value. 

* v 

*pBufLen = 0; 

return ILTR_ERR_NODATA; 

} 

else if (IpFldfndx) .MapField == ILTR_UNMAPPED) 

/* 

* This item isn't mapped, but don't give up quite 

* yet. If we're looking at a multi-item field, we 

* check every item in the multi-item field (note 

* that every one has same Internal Field Name) 

* before giving up. We know it's time to give up 

* when we reach either a field with a different 

* internal field name, or end of list. 

* For now we say "rc=FAILURE", but that setting isn't 

* as conclusive as it sounds!! 

+ v 

rc = FAILURE; 
else 

{ 

/* 

* Indicate that at least one item is mapped and proceed 

* to retrieve the value from the source field. 

+ — * f 

blsMapped = TRUE; 

rc = MapFieldValue ( tr, nWhich, ndx, 

lpFld(ndx] .MapField, lpBuffer, pBufLen ); 

} 

/ / ERROR - out of memory condition 

if (rc == ILTR_ERR_NOMEM ) 
return rc; 



// Buffer size too small to hold full source value 

if (rc == ILTR_ERR_TRUNC) 
{ 

/* 

* If flag says we should, 

* map each character to its new value and replace line 

* terminator characters with the application-specific line 

* terminator. Recompute length (for case szLineTerm > 1). 

* */ 

i f (bMapCharsI f NonBina ry } 
{ 

int rc2 = MapText ( lpBuffer, nMaxLen, pBufLen, szLineTerm, 

ILTR_sImportCharMap. buffer, ILTR_pTmpBuf ) ; 

if (rc2 != SUCCESS) 

// report error; more serious than ILTR_ERR_TRUNC 

rc = rc2; 

} 

return rc; 

} 

// Did we get back a value from source field? 

if (rc == SUCCESS) 
{ 

bGotData = TRUE; 

nTextLen = nLine = IL_STRLEN (lpBuffer); 

} 

// Re-synchronize pointers in case we reallocated memory 

IL_SYNC_MEM ( ILTR_map. hTarget , ILTR_map. pTarget ) ; 
lpFld = ILTR_map.pTarget; 

/* --- 
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* Is the delimiter an end-of-line {represented as I LTR_EOS_CHAR ) ? 

* If so, truncate any excess field delimiters. This is done 

* to prevent trailing white space between the last field 

* character and the end of line. 

* */ 

if UpFld[ndx] .Term == I LTR_EOS_CHAR ) 
lpBuffer [nLine] = ILTR_NULL_CHAR; 

/* --- 

* Is this a floating item with no data? If so, avoid 

* placing the delimiter character(s) in the output buffer. 

* */ 

bFloat = { BOOLEAN ) ( lpFld [ ndx ] . Att ribs & I LTB_ATT_ FLOAT } ; 
if (bFloat && rc != SUCCESS) ; 

/* 

* Append delimiter to text and place a SPACE following 

* comma delimiter characters. Also convert *x' separator 

* to ' x ' for phone extensions . 

+ v 

else 
{ 

cTerm[0] = (char) lpFld(ndx) .Term; 

cTermfl] = ILTR_NULL_CHAR; 

if UpFld[ndx] .Term == ILX_TERM_COMMA) 

IL_STRCAT (cTerm, ILTR_SPACE_STR) ; 
if (lpFldfndx] .Term == ILX_TERM_X) 
{ 

cTerm[0] = I LTR_S PACE_CHAR ; 
cTerm[l] = (char) lpFld[ndx] .Term; 
cTerm[2) = ILTR_NULL_CHAR; 

} 

if (nTextLen + IL_STRLEN (cTerm) >= *pBufLen) 

return ILTR_ERR_TRUNC; 
IL_STRCAT (lpBuffer, cTerm) ; 

} 

/* 

* Recalculate the line length if the terminator is an EOS. 

* This is done in case we eliminated white space before the 

* end of line. 

* */ 

if (lpFld[ndx] .Term ILTR_EOS_CHAR) 
nLine = IL_STRLEN (lpBuffer); 

} 

else if ( bFoundOne ) 

/ + 

* All done mapping! We have found and processed one 

* or more field table entries that have the same 

* internal name as the requested field, but now we've 

* advanced beyond the last such entry, so it's time 

* to get out of this loop. 

* */ 

break; 

/* 

* Stop here if the COMBINED field has been successfully processed. 

* This means that a COMBINED field was mapped and had a value. 

* This logic enforces the precedence rule that COMBINED fields 

* have priority over component fields if mapped. 

* V 

if {rc == SUCCESS && { lpFld [ ndx ] . At t ribs & ILTB_ATT_COMBINED) ) 
break; 

// Now reset index to next field descriptor 

ndx = lpFld [ ndx] . Next Field; 

) 

/ + 

+ Truncate the field after the last text value to remove any 
* trailing delimiter characters. 

■*■ * / 

lpBuffer [nTextLen] = ILTR NULL CHAR; 
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/* 

* Return pointer to field contents. Determine if an error- code 

* also needs to be returned. We detect if the field was not found 

* in the list, the field was not mapped, or if the source field 

* contained no data. 

* */ 

*pBufLen = nTeXtLen; 
if (bFoundOne == FALSE) 

return I LT R_E R R_NO FL D ; 
if (blsMapped == FALSE) 

return ILTR_ERR_NOTMAPPED; 
if (bGotData FALSE) 

return ILTR_ERR_NODATA; 

/* 

* If flag says we should, 

* map each character to its new value and replace line 

* terminator characters with the application-specific line 

* terminator. Recompute length (for case szLineTerm > 1). 

* */ 

if ( bMapCharsIf NonBinary) 
{ 

rc = MapText { lpBuffer, nMaxLen, pBufLen, szLineTerm, 

ILTR_sImportCharMap. buffer, ILTR_pTmpBuf ) ; 

return rc; 

} 

else 

return SUCCESS; 

} // ILFldGetEx 



/* 

* Name: 

* Purpose 

* Input: 



* Return 

* Author 



FormaText 

Format target field item and append to output buffer 
Translation structure, output buffer, length of output buffer, 
index of target field, index of source field, pointer 
to field buffer, length of field buffer 
SUCCESS or FAILURE 

Mike Blanchette, Copyright (c) IntelliLink, 1993 



/ 



static int FormaText 



( ILTR_PTRANSL tr, 
int nWhich, 
IL_PSTR lpOutBuf, 
unsigned int nOutBuf, 
ILTR_NDX nTarget, 
ILTR_NDX nSource, 
IL_PSTR lpField, 
unsigned int nField ) 



int rc = SUCCESS; 

long nFromBase = 0; 

long nToBase = 0; 

unsigned int nPhoneLen; 

unsigned int nTotLen; 

char cltemType; 

char szArea [ ILTR_MAX_PHONE] ; 

char szCountry[ILTR_MAX_PHONE] ; 

char szDef ault [ ILTR_MAX_PHONE] ; 

char szExt [ILTR_MAX_PHONE] ; 

char szLabel [ILTR_MAX_PREFIX+2] ; 

char szNumber [ILTR_MAX_PHONE] ; 

char sz Phone [ILTR_MAX_PHONE] ; 

char szTypeDesc[ILTR_MAX_TYPEDESC] 

ILTR_FLDPTR IpSrc; 

ILTR_FLDPTR lpTar; 

ILTR_NDX nBaseNdx; 

BOOL16 bNegativeFrom; 

BOOL16 bNegativeTo; 

// Nothing in field 

if (InField) 

return ILTR ERR NO DATA; 



// Return code 

// "From" base value 

// "To" base value 

// Length of phone field 

// Total buffer length 

// Item type 

// Area code 

// Country code 

// Default phone 

/ / Extension 

// Phone label and delimiters 

// Number 

/ / Ful 1 phone number 

/ / Phone type description 

// Pointer to current source item 

// Pointer to current target item 

// Index of "base" field 

// Is From base negative? 

// Is To base negative? 



Get pointers to source and target field lists 
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I L_SYNC_MEM ( ILTR_map. hSource, ILTR_map . pSource ) ; 
IL_SYNC_MEM { ILTR_map. nTarget, ILTR_map.pTarget ) ; 
IpSrc = ILTR_map.pSource; 
lpTar = ILTR_map.pTarget; 

/* 

* Calculate cwrrent output buffer length. Note that data may 

* already exist in the buffer when this routine is called. In 

* the case of multi-item fields, the preceding items will have 

* been formatted and placed in the output buffer. This routine 

* appends to the end of the existing buffer and assumes that 

* the caller has cleared the buffer between fields. 



nTotLen = IL_STRLEN (lpOutBuf); 

// Is this a phone number field? 

if (lpTar[nTarget] .Type == ILX_TYPE_PHONE) 
{ 

/* 

* Copy incoming phone number into temporary buffer. 

* Make sure that length does not exceed al lowable phone 

* number length . 

* v 

szPhone[0] = 'NO*; 

nPhoneLen = (nField >= ILTR_MAX_PHONE) ? ILTR_MAX_PH0NE-1 : nField; 
IL_STRNCAT (szPhone, IpField, nPhoneLen); 

// Note that phone field has been truncated 

if (nPhoneLen != nField) 

ILAddFieldError (tr, lpTa r { nTarget 1 . IntName, ILTR_ERR_TRUNC) ; 

// Separate phone number, into its constituent parts 

ILSpl i t Phone ( sz Phone, 

szLabel , 

szTypeDesc, 

szCount ry, 

szArea, 

szNumber , 

szExt , 

szDef ault ) ; 

/ + 

* Does phone number need to be stripped of extraneous components? 

* When the KEEPHONE attribute is set on the target item, this 

* means that all phone number components should remain intact 

* in the returned value. If the attribute if not set, then 

* the phone number is constructed strictly using the country 

* code, area code, number, and extension. All other parts are 

* dropped before appending the phone number to output buffer. 

* v 

if (! (lpTar(nTarget) .Attribs & ILTB_ATT_KEEPHONE ) ) 
( 

// Now reconstruct the phone field without extra parts 

ILMakePhone ( sz Phone, 

NULL, 

NULL, 

szCount ry, 
szArea , 
szNumber, 
szExt , 
NULL ); 

/* 

* Prepend the floating label to phone field. This handles 

* the case where the phone number is a simple floating field 

* such as is the case for the HP 95LX (like "+f-" prefix). 

* Note that this only occurs if the KEEPHONE attribute is 

+ turned off since the Label field would otherwise be used 

* to contain the phone label (ex. "<Business>" ) rather than 

* the floating field prefix. If this is confusing, it may 

* be due to the fact that the Label field is overloaded and 

* used for two distinct purposes (unfortunate but true) . 

* * i 

if (lpTar [nTarget] .Attribs & I LT B_ATT_ FLOAT ) 
{ 
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IL_STRCPY (szNumber, lpTar [nTarget ]. Label ) ; 
IL_STRNCAT ( szNumber, 

szPhone, 

( ( ILTR_MAX_PHONE - IL_STRLEN (szNumber)) - 1) ); 
IL_STRCPY (szPhone, szNumber); 

} 

} 

// Keep all phone number components 

else 
{ 

/* 

* Funny business going on here. Check if a phone label exists 

* in the source field. If not, then first try to use the 

* phone number type as the label if one exists. If this 

* fails, then use the default phone number label contained 
+ in the field descriptor. Confused? You should be. 

* This logic exists to address unique problems associated 

* with exporting and re-importing phone number labels 

* between diverse applications like PackRat and Intel AB. 

* */ 

if (!szLabel[0} && lpTar [ nTarget J . Label [ 0] ) 
{ 

if (szTypeDesc[0] ) 

IL_STRNCAT (szLabel, szTypeDesc, ILTR_MAX_PREFIX) ; 
else IL_STRCPY (szLabel, lpTar [nTarget ]. Label ) ; 

} 

/* 

* Does a phone type exist in the source field? If not, 

* apply the default phone type value contained in the field 

* descriptor. 

* + / 

if (! szTypeDesc [ 0] && lpTar [ nTarget ]. TypeDesc [ 0] ) 
IL_STRCPY (szTypeDesc, IpTa r [ nTa rget ] .TypeDesc) ; 

// Rebui Id the phone number field in all its glory 

ILMakePhone ( szPhone, 

szLabel, 

szTypeDesc, 

szCount ry, 

szArea, 

szNumber, 

szExt , 

szDe fault ) ; 

} 

// Move the phone number to target buffer 

// (i.e. do type conversion and append result to IpOutBuf) 

rc = ILConvertType ( & I LTR_DtTmFmt , 

IpSrc [ nSource] .Type, 

IpSrc [ nSource ] .Attribs, 

szPhone, 

IL_STRLEN (szPhone) , 

nFromBase, 

(nFromBase < 0} , 

lpTar [nTarget] .Type, 

lpTar [nTarget] .Attribs, 

IpOutBuf, 

nOutBuf , 

nToBase, 

( nToBase < 0) ) ; 

// Place note of invalid field in log file 

if { (rc == I LTR_ERR_CANT_CONVERT_TY PE } 

f| (rc == ILTR_ERR_CANT_CONVERT_VALUE) J 

{ 

ILAddFieldError (tr, IpTa r [ nTa rget ]. IntName, rc); 

// pass back "traditional" return code rather than new 

// codes which may upset callers of ILFldGet 

rc = ILTR_ERR_CORRUPT_DATA; 

} 



// Thank God this is not a phone number 



Copyright ©1996 Puma Technology, Inc. All Rights Reserved. 



Fldget.c 



Page li of 18 



else 
{ 

/*-- 

* Place the item prefix in the field (if one exists) after 

* verifying the field length. 

* */ 

if (lpTarfnTarget] .Label[0] ) 
{ 

IL_STRCPY (szLabel, lpTa r ( nTa rget ) .Label) ; 

if ((nTotLen += IL_STRLEN (szLabel)) >= nOutBuf) 

return ILTR_ERR_TRUNC; 
IL_STRCAT (lpOutBuf, szLabel) ; 

} 

/*-- 

* Does the source field of number type have a dependency? 

* A number field may need special processing if it includes 

* a dependency rule that associates it either with a date 

* or time field. This mechanism enables number fields to 

* represents relative date and relative time values based 

* on some other date and time field in the record. 

* */ 

if { lpSrcfnSource] .Type == ILX_TYPE_NUMBER IpSrc [ nSource ). Assoc } 
{ 

/* 

* Is the number field mapped to a date or time field? If sc, 

* we need to convert it to an actual date or time field. 

+ */ 

cltemType = lpTa r [ nTa rget ]. Type; 

if {cltemType == I LX_TY PE_DATE II cltemType == I LX_TYPE_TIME ) 
{ 

/* 

* Determine name of dependent field in intermediate record. 

* Return no value if dependent field is unmapped. 

V 

nBaseNdx = (abs ( IpSrc [ nSource ]. Assoc ) ) - 1; 
if { lpSrc[nBaseNdx] .MapField == ILTR_UNMAPPED) 
return SUCCESS; 

/ + 

+ Retrieve the value of base field. The "base" field is 

* simply the field that will be used to compute the actual 

* date or time value. 

* + / 

nFromBase = GetBaseValue ( tr, nWhich, 

lpTar [nTarget] .Type, 
lpTar [nTarget] .Attribs, 
IpSrc [ nBaseNdx] . IntName, 
lpSrc[nBaseNdx] .Type, 
IpSrc [ nBaseNdx 1 .Attribs, 
IpSrc [ nSource ] .Assoc, 
sbNegativeFrom} ; 

} 

} 

/* 

* Does the target date or time field have a dependency? The 

* inverse of the logic described for source fields applies here. 

* A date or time field may have a dependency on a number field. 

* This means that it needs to be computed based on the number 

* field before being returned. 

* */ 

cltemType = IpSrc [ nSource ] .Type; 

if (cltemType I LX_TY PE_DATE || cltemType == ILX_TYPE_TIME ) 
{ 

// Is the source field have a dependency on a number? 

if { lpTar{ nTa rget] .Type == I LX_TYPE_NUMBER &4 lpTar [ nTarget ]. Assoc ) 
( 

/* 

* Get name of dependent field. 

* Return no value if dependent field is unmapped. 

* V 

nBaseNdx = (abs ( lpTar [nTarget] .Assoc) ) - 1; 
nBaseNdx = lpTa r [ nBaseNdx ]. MapField ; 
if (nBaseNdx == ILTR UNMAPPED) 
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return SUCCESS; 



Get value of dependent field from intermediate file. 
The value returned contains a positive or negative 
number representing a relative date or relative time. 
Thrs is a long value encoded using either IL DateEncoe 
or IL_TimeEncode functions. The base value will be 
used in a later call to the function ILConvertType . 



nToBase = GetBaseValue ( 



7 



tr, nWhich, 
IpSrc(nSource) .Type, 
lpSrc[nSource] .Attribs, 
lpSrc[nBaseNdx] .IntName, 
lpSrc(nBaseNdx) .Type, 
lpSrc(nBaseNdxl .Attribs, 
lpTar [nTarget] .Assoc, 
SbNegativeTo ) ; 



/ 



* Convert item to appropriate format and place in output buffer 

* This call will result in data conversions between field types 

* It will also handle the computation of relative date and time 

* fields. Data validation of typed fields is also performed 

* as part of this call to ILConverType . 



(ILConvertType does type conversion and appends result to lpOutBuf) 



rc = ILConvertType { 



/ 



& I LTR_DtTmFmt , 

IpSrc [ nSource) .Type, 

IpSrc [ nSource ] .Attribs, 

lpField, 

nField, 

nFromBase, 

bNegativeFrom, 

lpTar [nTarget ] .Type, 

lpTar (nTarget] .Attribs, 

lpOutBuf , 

nOutBuf , 

nToBase, 

bNegativeTo ) ; 



//■ 
if 

{ 



I I 



- Place note in log file if we couldn't convert field 
(rc == ILTR_ERR_CANT_CONVERT_TYPE) 
(rc == ILTR ERR CANT CONVERT VALUE ) ) 



ILAddFieldError ( tr, lpTar [ nTarget ] . IntName, rc) ; 

// pass back "traditional" return code rather than new 

// codes which may upset callers of ILFldGet 

rc = ILTR ERR CORRUPT DATA; 



// All better now 

return rc; 



} // FormaText 



*■ 



Name : 

* Purpose 

* Input: 

* Return: 

* Author: 



GetBaseValue 

Retrieve base value from intermediate file 

Translation structure, source item type, base field name, 

base field type, index of dependent field 

Base value or OL in case of error 

Mike Blanchette, Copyright (c) IntelliLink, 1992 



/ 



static long GetBaseValue 



( ILTR_PTRANSL tr, 
int nWhich, 
char cSrcType, 
ILTB_ATTRIB ISrcAttribs, 
IL_PSTR lpBaseName, 
char cBaseType, 
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I LTB_ATTRIB IBaseAtt r ibs , 

int nTarAssoc, 

BOOL16 * pbNegativeBase) 

int month, day, year; // Date components 

int hours, mins; // Time components 

int rc; * // Return code 

long len; // Data length 

long nValue; // Base field value 

char szBase [TEMP_NUM_SIZE] ; // Temporary base value 

char szNewBase [TEMP_NUM_SIZE] ; // Temporary base value 

// Clear the return value 

nValue = OL; 

/* 

* Retrieve the value of dependent field from the intermediate file. 

* Note that this assumes that the dependent field is a single-item 

* field, otherwise this scheme does not work. This means that all 

* number, date, and time fields having dependencies MUST be single 

* fields and not be part of a multi-item field. Seems like a fair 

* assumption at this time but one to keep in mind for the future. 

* v 

len = sizeof (szBase) ; 

rc = ILTRGet FieldEx (tr, lpBaseName, nWhich, szBase, &len); 

// Something is definitely wrong here 

if (rc) 

return nValue; 

/* _ 

* Convert base type to source type and place. This call validates 

* the value of the base field and converts types if necessary. 

* _ + / 

IL_MAKE_STRING_NULL { szNewBase ) ; 

// do type conversion and append result to szNewBase 

if ( ILConvertType ( &ILTR_DtTmFmt, 

cBaseType, 

IBaseAttribs, 

szBase, 

IL_STRLEN (szBase), 
OL, 

FALSE, 

cSrcType, 

ISrcAttribs, 

szNewBase, 

sizeof (szNewBase) , 

OL, 

FALSE)) 

return nValue; 

// Convert source date to relative date field 

if (cSrcType == ILX_TYPE_DATE ) 
{ 

IL_AlphaToDate (szNewBase, &month, Sday, &year); 
IL_DateEncode (month, day, year, &nValue}; 

} 

// Convert source time field to relative time field 

else if (cSrcType == ILX_TYPE_TIME) 
{ 

IL_AlphaToTime (szNewBase, & hours, &mins ) ; 
IL_TimeEncode (hours, mins, 0, AnValue); 

} 

// Invalid type for field association 

else return nValue; 

/* 

* Adjust the base value to reflect sign direction. If the dependent 

* field is negative, it means that the base value will be deducted 

* from the source value. Otherwise, the base value will be added. 

* v 

if (nTarAssoc < 0) 
{ 
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nValue - 0 - nValue; 
*pbNegativeBase = TRUE; 

} 

else 

*pbNegativeBase = FALSE; 

// Return without error 

return nValue; 

} // GetBaseValue 



/ + 

* Name: 

* Purpose 

* Input: 

* Return: 
+ Author: 



MapFieldValue 

Map and retrieve the value of associated source field 
Translation structure, index of target field, index of 
source field, pointer to field buffer, buffer length 
SUCCESS or FAILURE 

Mike Blanchette, Copyright (c) IntelliLink, 1992 



/ 



static int MapFieldValue 



int nlnitialRC; 
int rc; 

long nTempLen; 
unsigned int nFldLen; 
BOOLEAN bStrip; 
IL_PSTR lpNext; 
IL_PSTR IpStart; 
ILTR_FLDPTR lpFld; 
ILTR_NDX nCurNdx; 
ILTR NDX nFirstNdx; 



{ ILTR_PTRANSL tr, 
int nWhich, 
ILTR_NDX nTarget, 
I LTR_NDX nSource, 
IL_PSTR lpOutBuf, 
unsigned int IL_DIST * nOutBuf ) 

// Remember TRUNCATE error 

// Return code 

// Temporary length field 

// Actual field length 

// Must the prefix be stripped? 

// Pointer to next field item 

// Pointer to start of field item 

// Pointer to current field item 

// Index to current field item 

// Index to first field item 



//#ifdef DEBUG 
// char szBuf [100] ; 
// IL_SPRINTF<szBuf , " 
// Output DebugSt ring { szBuf ) ; 
//ffendif 



MapFieldValue ( %d, %d ) \ r\n" , nSource, nTarget ) ; 



// Set initial pointer and index values 

I L_SYNC_MEM ( ILTR_rec. handle, ILTR_rec. buffer ) ; 
IL_SYNC_MEM ( ILTR_map. hSource, ILTR_map.pSource } ; 
lpFld = ILTR_map . pSource; 
nlnitialRC = SUCCESS; 

// Retrieve the field from intermediate file 

nTempLen = (long) ILTR_field. width; 

rc = ILTRGetFieldEx ( tr, lpFld [ nSource] . IntName, nWhich, 

ILTR field. buffer, SnTempLen ); 



/ 



Warning - field truncated on input. Field buffer too small 
for incoming field. Proceed with formatting the field anyway 



/ 



if 
{ 



} 



(rc == ILTR_ERR_TRUNC) 

i f { *nOutBuf > (unsigned int) nTempLen ) 

♦nOutBuf = (unsigned int) nTempLen; 
ILTR_field.buffer[ILTR_field. width - 1] 
nlnitialRC = I LTR_ERR_TRUNC; 
rc = SUCCESS; 



= *\0 



// Oops! Something is wrong here. 

if (rc != SUCCESS) 
return rc; 



// Seems that there is nothing in the field 

if (nTempLen == 0) 

return ILTR ERR NODATA; 
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/+ 

* Is this a floating item? If so, locate it directly in the field 

* buffer using the item prefix and leave. 

V 

if ( (lpFld[nSource] .Attribs & ILTB_ATT_FLOAT ) ) 
{ 

/* 

* Keep the prefix prepended to the field? 

* The prefix is only retained for floating phone number items. 

*- V 

if UpFld[nSource] .Type == ILX_TYPE_PHONE) 

bStrip = FALSE; 
else bStrip = TRUE; 

/ + 

* Retrieve the floating item from the field buffer and 

* return formatted field. 

* V 

rc = ILFldFloat ( ILTR_field. buffer, 

SlpStart , 
&nFldLen, 
& lpFld [ nSource] , 
bStrip ) ; 

// Did we fi n( j t he floating field? 

if (rc) 
{ 

// Now format the output string and leave 

if ((rc = FormaText ( tr, nWhich, 

IpOutBuf , 

*nOutBuf , 

nTarget , 

nSource, 

IpStart, 

nFldLen ) ) ) 

return rc; 
else return nlnitialRC; 

} 

// Floating field not present in buffer 

else return I LT R_E R R_N 0 DATA ; 

} 

/* 

* Is this the first item for given source field? 

* Walk the field map table in reverse order until the first 

* item is located. 

*• * / 

nFirstNdx = nSource; 

while (lpFldtnFirstNdx] .ItemNo != 1) 

nFirstNdx = IpFld [nFirstNdx] . PriorField; 

/* 

* Is the first item in the field a COMBINED item? 

* Skip the COMBINED item if request is for a component item. 

* + / 

if UpFld[nFirstNdx] .Attribs & ILTB_ATT_COMBINED) 
{ 

if (nFirstNdx != nSource) 
{ 

nFirstNdx++; 

StripFloatltems (IpFld, ILTR_field. buffer, nSource, nFirstNdx); 

} 

/* 

* But don't strip floating items if the combined field itself is mapped, 

* as opposed to having one of the items within a combined field be mapped . 
+ _ + f 

)' 

else 
{ 

/ + 

* Not a floating item. Remove all occurrences of floating items 

* from the field buffer before proceeding. This will leave 

* the buffer containing only non-floating ■ items in their 
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* ordinal positions . 

* */ 

StripFloatltems (ipFld, ILTR_f ield .buffer, nSource, nFirstNdx); 

J 

/* 

* Prepare to vralk the linked list of field items. 

* Start by retrieving first item from field buffer. 

* */ 

nCurNdx = nFirstNdx; 

IpStart = lpNext = ILTR_f ield. buffer; 

nFldLen = ILFldltem ({IL_PSTR IL_DIST *) SlpNext, IpFld, nCurNdx); 

// Parse all source fields until the desired field is located 

while {nCurNdx != -1) 
{ 

/* 

* Make sure that the field contains data and that it 

* corresponds to the desired field name. 

* V 

if (IL_STRICMP (lpFld[ nCurNdx] . IntName, IpFld [nSource] . IntName) != 0) 
break; 



/* 

* Skip all floating item nodes since all occurrences of floating 

* items have been removed from the buffer by this time. 

* V 

if { UpFldfnCurNdx] .Attribs & ILTB_ATT_FLOAT) ) 
{ 

nCurNdx = IpFld [ nCurNdx ]. Next Field; 
continue; 

} 



// Found the item we want 

if (nCurNdx == nSource) 

{ 

// Unfortunately no value in the item 

if (nFldLen == 0) 

break; 
else 
{ 

// Format the output string 

if ( ( rc - FormaText ( tr, nWhich, 

lpOutBuf , 
*nOutBuf , 
nTarget , 
nSource, 
IpStart, 
nFldLen ))) 

return rc; 
else return nlnitialRC; 

> 



// Go to the next item node and get next item value from field 

nCurNdx = IpFld [nCurNdx] .NextField; 
IpStart = lpNext; 
if (nCurNdx != -1) 

nFldLen = ILFldltem ((IL_PSTR IL_DIST + ) SlpNext, IpFld, nCurNdx); 

> 

// Return without a field value 

return I LT R_E R R_N 0 DATA ; 

} // MapFieldValue 

/* 

* Name: MapText 

* Purpose: Replace EOS with application-specific line terminator 

* Input: Pointer to buffer, buffer length, pointer to field terminator 

* Return: SUCCESS or error code 

* Author: Roger Duchesneau, Copyright (c) IntelliLink, 1994 
V 

static int MapText ( IL PSTR psText, 
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unsigned int uiMax, 
unsigned int IL_DIST *pLen, 
IL_PSTR pszTerm, 
IL_PSTR charmap, 
ILUT_PBUFFER pTmpBuf ) 

int nRc; 

INT32 IMax = min ( ILTR_MAX_FIELDLENGTH, (INT32) uiMax); 

nRc = ILMapChars ( psText, 

(INT32) *pLen, 



ILTR_EOS_STR, 
pszTerm, 
cha rmap, 
IMax, 

pTmpBuf ); 



// oid line terminator ("\xFF") 

// new line terminator (e.g. "\r\n") 



if (pTmpBuf->pBuf fer != NULL} 

I L_SAFE_STRINGCOPYN (psText, pTmpBuf->pBuf fer, (unsigned int) IMax); 

*pLen = I L^STRLEN (psText ) ; 

return nRc; 

} // MapText 



/* 

* Name: StripFloatltems 

* Purpose: Remove all floating items from buffer 

* Input: Pointer to field node f pointer to buffer, 

* Return: SUCCESS or error code 

* Author: Mike Blanchette, Copyright (c) IntelliLink, 1993 

+ 

static void StripFloatltems ( ILTR_FLDPTR IpFld, 

IL_PSTR lpBuffer, 
int nSrcNdx, 
int nCurNdx ) 

{ 

int rc; // Return code 

unsigned int nLen; // Item length 

int nToMove; // ff characters to move 

IL_PSTR lpltem; // Pointer to item value 

// Scan all item nodes for floating items 

while (nCurNdx != -1} 
{ 

// Make sure that we have not gone beyond relevant field 

if (IL_STRICMP (lpFld[nCurNdx] .IntName, IpFld [ nSrcNdx ] . IntName ) != 0) 
break; 

// Is this a floating item? 

if ( ( lpFld[nCurNdx] .Attribs & ILTB_ATT_FLOAT } == ILTB_ATT_FLOAT ) 
{ 

// Get its position in the string 

rc = ILFldFloat ( lpBuffer, 

&lpltem, 

&nLen, 

&lpFld [ nCurNdx] , 
TRUE ) ; 

// Now remove it from the string 

if (rc) 
{ 

lpltem -= IL_STRLEN ( IpFld [ nCurNdx] . Label } ; 

nLen += IL_STRLEN ( IpFld [ nCurNdx ]. Label ) + 1; 

nToMove = ( lpBuf f er+IL_STRLEN ( lpBuffer ) ) - ( lpl t em+nLen ) + 1; 

// Slide buffer over, or zap if last item in buffer 

if (nToMove > 0} 

IL_MEMMOVE ( lpltem, 

lpItem+nLen, 
nToMove ) ; 

else 

lpltem(0] = 'VO'; 



7 
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} 

> 

// Go to the next item node and get next item value from field 

nCurNdx lpFld [ nCurNdx ]. Next Field ; 

} 

} // StripFloatltems 



/* 

* ILTRGetField 

* public function to get unmapped field value, either from ILIF or from TIF. 

* when reading from TIF, always uses option 'TIF_AUTO' 

* / 

ILBASEFN_int ILTRGetField ( 

ILTR_PTRANSL tr, 
IL_PSTR IpszFieldName, 
IL_PANY IpszFieldValue, 
long IL_DIST ^pFieldLength } 

{ 

int rc = ILTRGetFieldEx { tr, IpszFieldName, TIF_AUTO, 

IpszFieldValue, pFieldLength ); 

return rc; 
} // ILTRGetField 



/ + 

* ILTRGetFieldEx — called by ILFldGet Ex & ILTRGetField 4 from repeat. c 
v 

ILBASEFN_int ILTRGetFieldEx 

( ILTR_PTRANSL tr, 

IL_PSTR IpszFieldName, 
int nWhich, 

IL_PANY IpszFieldValue, 
long IL_DIST ^pFieldLength ) 

{ 

int rc; 

/ + 

* Now we get the field either from ILIF or from TIF. 

* The t r structure member ILTR_phase tells us which to use . 

* v 

if (ILTR_phase == I LTR_PHASE_I LX_V3_M0DE ) 
{ 

rc = ILIFGetField ( I LTR_view, 

I LTR_rec. buffer, ILTR_rec . width, 
IpszFieldName, IpszFieldValue, pFieldLength ) ; 

// tne ilif error to an ILTR error. 

rc = ILMapI FErrToTREr r ( rc ) ; 

} 

else 
{ 

/ + 

* To get from TIF, we call a special TIF entrypoint that copies 

* result into caller's buffer and applies truncation rules just 

* like ILIF does. (Note that standard ILTI FGet Field returns a 

* pointer to an un-truncated field value in a buffer owned by 

* TIF, and returns a length that is exact for BINARY 

* fields, and is exactly STRLEN ( text ) +1 for text values.) But 

* ILTI FGetAndCopy does copying and truncation, and for text 

* fields it returns length=STRLEN { text ) , not STRLEN ( text } +1 . 

* / 

rc = I LTR_ILTI FGet AndCopyField ( tr, IpszFieldName, nWhich, 

pFieldLength, IpszFieldValue ) ; 

} 

return rc; 
} // ILTRGetFieldEx 



Copyright ©1996 Puma Technology, Inc. All Rights Reserved. 



Fldput.c 



Page 1 of 4 



/* 

* Module Name: fldput.c 

* Part of: the IntelliLink Translation Harness (ILTR library) 

* Contents: 2 public functions for putting a field to ILIF or TIF: 

* ILFldPut — high-level function 

* - ILTRPutField — low-level function 
★ 

* ILFldPut is called by every single translator. 

* ILTRPutField is called from several ILTR modules. 

* Copyright (c) IntelliLink, 1992-1995 

*- - " V 

/* 

* NOTE: this is an " ILBASE" module, which means that it may be built into 

a "base" DLL rather than being statically linked into every 

translator. Please ensure that all non-static functions in this 

module are declared with ILBASE_xxxx macros, defined in ILTYPES . H . 
v/ 



+ 



^include "iltr.h" 

#define EXIT_WITH_ERROR ( e ) (rc=e; goto Exit;} 

/ + 

* Name: ILFldPut 

* Purpose: High-level function to output a field to ILIF or TIF 

* after doing character mapping. 
Input: Pointer to field name and contents 



* Note: Pass exact bytecount of field value as "len" arg. For 
non-binary fields do NOT include the null terminator 
byte in the bytecount. For "Job" pass len=3. 



The input value need not be nul 1 -terminated . Passing 
text=" JobCode" with len=3 is equivalent to passing 

* text="Job" with len=3. 
+ 

* Return: SUCCESS, or error code 

* Author: Mike Blanchette, Copyright (c) IntelliLink, 1992 

* + / 

ILBASEFN_int ILFldPut { ILTR_PTRANSL tr, 

IL_PSTR name, 
IL_PSTR text, 
unsigned int len ) 

{ 

int rc; 

BOOLEAN isaTextField; 
BOOLEAN DMustMapChars; 

BOOLEAN bSupplyDataToFiltersMechanism; 
BOOLEAN bSpecial FanningAd j ustment; 



char szTypeDesc [ I LTR_MAX_TYPEDESC] ; 
char fid type = I LX_TY PE_TEXT ; 
//??? dam 1/16 UINT32 maxlen = 0; 
INT32 maxlen = 0; 
ILTB ATTRIB attribs = 0; 



// Get field attributes 

rc = ILFldTypeEx (tr, name, Sfldtype, iattribs, &maxlen, szTypeDesc); 

// If failure, field not mapped - all done 

if (rc SUCCESS) 

return ILTR_ERR_NOFLD; 

isaTextField = (fldtype != ILX_TYPE_BINARY } ; 

// xf tnis is a TAGGED field, strip tag and put it in _subType field 

// (but don't do this when running under a pre-SST stone age App) 

if ((attribs & ILTB_ATT_TAGGED) && ILTR VERSION IS AT LEAST(21}) 
{ - - - 

char s zTag [ ILTR_MAX_TAG_LEN ] ; 

rc = ILSST_StripTag (tr, &text, &len, szTypeDesc, szTag); 
if (rc != SUCCESS) 
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return rc; 

if ( IL_STRING_ISNT_NULL ( szTag ) } 
{ 

rc = ILTRPutField ( tr, ILTR_SUB_TYPE, 

szTag, IL_STRLEN (szTag) , 
FALSE, FALSE, FALSE ); 

if (rc != SUCCESS) 

return ILERROR (rc, I LTR_ERR_INTERNAL ERROR); 

} 



/* 

* If field type is non-binary text, do character mapping and pass 

* field data on to the FILTERS mechanism. Then, for ALL field types, 

* put field into the intermediate file (either ILIF or ILTIF). 

/ 

bMustMapChars = isaText Field; 

bSupplyDataToFiltersMechanism = isaText Field; 
bSpecial FanningAd j ustment = FALSE; 

rc = ILTRPutField ( tr, name, text, (INT32) len, 

bSpecial FanningAd j ustment , 
bMustMapChars, 

bSupplyDataToFiltersMechanism ); 

return rc; 

} 



/* 

* Name: ILTRPutField 

* Purpose: Low-level function to output a field to ILIF or TIF 

* 'bSpecialFanningAdjustment ' is TRUE when REPEAT. C UpdateDateField 

* function calls this function . 



* NOTE: this function may or may not do character mapping, and may or 

may not pass data on to the FILTERS mechanism, depending on the 
last two boolean arguments that it takes. 



Of course for environments that don't support FILTERS, nothing 
is passed on to the FILTERS mechanism. 



The reusable buffer ' ILTR_pTmpBuf ' is used here 
+ 

* Called from: this module & putrep.c & repeat. c & sst.c 

* / 

ILBASEFN_int ILTRPutField ( I LTR_PTRANSL tr, 

IL_PSTR name, 
IL_PSTR text, 
INT32 len, 

BOOLEAN bSpecial FanningAd j ustment, 

BOOLEAN bDoCharacterMapping, 

BOOLEAN bSupplyDataToFiltersMechanism ) 



{ 



int rc; 

IL_PSTR pOutBuf; 

if (bDoCharacterMapping ) 
{ 

/* 

•* Do character mapping, and put result string is ILTR_pTmpBuf . 
* I LTR_pTmpBuf is managed as a reusable buffer to minimize heap activity 

* V 

rc = ILMapChars ( text, 

len, // may or may not equal strlen(text) 

ILTR_szLineTerm, // old line terminator (e.g. "\r\n") 
ILTR_EOS_STR, // new line terminator ("\xFF") 

ILTR_sExportCharMap. buffer, 
ILTR_MAX_FIELDLENGTH, 
ILTR_pTmpBuf } ; 

if (rc != SUCCESS) 

return ILERROR (rc, I LTR_ERR_INTERNAL_ERROR ) ; 

pOutBuf = ILTR pTmpBuf->pBuf fer; 
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len = IL_STRLEN (pOutBuf); 

} 

else 

pOutBuf = text; 



if (bSupplyDatSToFiltersMechanism) 
{ 

ffifdef ILWIN 

// Is there a filter active? 

if (ILTR_nFilterID != -1) 
{ 

rc = ILFldParse (tr, name, pOutBuf, (int) len); 
if (rc != SUCCESS) 

EXIT_WITH_ERROR ( ILERROR ( rc, ILTR ERR INTERNAL ERROR)); 

} 

#else 

; // NO-OP 
ffendif 

} 



if (ILTR_phase != ILTR_PHASE_I LX_V3_MODE ) 
{ 

/* 

* Using TIF as intermediate file. Put field to TIF. We've already 

* done character mapping, so tell TIF not to. We pass "len" to TIF, 

* but BEWARE: TIF ignores "len" for non-binary fields; it gets STRLEN 

* of string (works fine iff string is NULL-terminated . 



rc - ILTR_ILTI FPut FieldEx ( tr, name, (IL_PANY) pOutBuf, 

len, // ignored for non-binary fields!! 
bSpecial FanningAdj ustment , 
FALSE ) ; 

if {rc != SUCCESS) 

rc = ILERROR (rc, ILTR_ERR_INTERNAL ERROR); 

} 

else 
{ 

// NOT USING TIF: Place field in ILIF output record. 

IL_SYNC_MEM ( ILTR_rec . handle, ILTR_rec.buf fer ) ; 

/* 

* Keep trying to add field to ILIF record, expanding record as 

* necessary; until we succeed or give up when maxed out. 

* v 

for (;;) 

{ ■ 

rc = ILI FPut Field ( ILTR_view, 

ILTR_rec. buffer, 
ILTR_rec. width, 
name, 

(IL_PANY) pOutBuf, 
( long ) len ) ; 

// break out of loop on SUCCESS or serious error 

if (rc != ILI F_E RR_NOROOM } 
break; 

/* 

* Increment buffer size and verify that it does not exceed max 



ILTR_rec. width +- MAX_IF_INCR; 

if { ILTR_rec. width > MAX_IF_ALLOC) 

{ 

ILTR_rec. width MAX_IF_INCR; // back to currently allocated size 
EXIT_WITH_ERROR ( ILTR_ERR_RECORD_TOO_BIG ) ; 

} 

// Reallocate buffer to larger size. 

IL_REALLOC_MEM ( ILTR_rec . width, ILTR_rec . handle, ILTR_rec .buffer ) ; 
if (ILTR__rec. buffer == NULL) 

EXIT_WITH_ERROR (ILTR ERR NOMEM); // allocation failure 

} 
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// Map the ILIF error to an ILTR error. 

rc = ILMapI FEr rToTRErr { rc ) ; 

} 

Exit: 

return rc; . 

} 
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File Name: 


f ldtype .c 






Part of: 


IntelliLink Translation Harness 


(ILTR) library 




Entrypoints : 


ILFldType and ILFldTypeEx 






Copyright (c) IntelliLink Corp., 


1993-1995 





NOTE 



/ 



this is an " ILBASE" module, which means that it may be built into 
a "base" DLL rather than being statically linked into every 
translator. Please ensure that all non-static functions in this 
module are declared with ILBASE_xxxx macros, defined in ILTYPES.H 



#def ine 
#def ine 



MSC 

ILX NO 



GLOBALS 



#include "ilxapi .h" 



/ 



* GetTypeFromMap — old-fashioned way to get field type 



static int GetTypeFromMap 
< ILTR_PTRANSL tr, 
IL_PSTR label, 
IL_PSTR type, 

ILTB_ATTRIB IL_DIST *attribs, 
INT32 IL_DIST *pFldSize, 
IL_PSTR pszTypeDesc ); 



/ 



// Internal field name to use 

// Returned field type 

// Returned field attributes 

// Returned MAXIMUM field size 

// Pointer to string for TypeDesc 



/ 



+ GetTypeFromTable — new-fangled way to get field type 



static int GetTypeFromTable 
( ILTR_PTRANSL tr, 
IL_PSTR label, 
BOOLEAN blnvertedLookup, 
IL_PSTR type, 

ILTB_ATTRIB IL_DIST *attribs, 
INT32 IL_DIST *pFldSize, 
IL_PSTR pszTypeDesc ); 



/ 



// Internal field name to use 

// Invert usual lookup rules? 

// Returned field type 

// Returned field attributes 

// Returned MAXIMUM field size 

// Pointer to string for TypeDesc 



/ 



Name : 
Purpose 
Input : 
Return : 
Author : 



ILBASEFN_int ILFldType 



ILFldType 

Obtain the field type given its internal name 

Translation structure, field label, field type, attributes 

SUCCESS or FAILURE if field name not found 

Mike Blanchette, Copyright (c) IntelliLink, 1993 
*/ 

( ILTR_PTRANSL tr, 
IL_PSTR label, 
IL_PSTR type, 

unsigned long IL DIST *attribs ) 



INT32 ISize; 

int rc - ILFldTypeEx 

return rc; 



( tr, label, type, attribs, &lSize, NULL ) 



/ 



* Name : 

* Purpose 



* 
* 

* 



ILFldTypeEx 

Obtain the field type and several more useful bits of info: 

Field Attributes, MAX Field Size, and the 'TypeDesc' 
string which TIF uses for Default Value. 



NOTE: 



if last arg is NULL the TypeDesc string is not 
copied back to the caller. 



* Input: 

* Return 

* Author 

* 



Translation structure, field label, field type, attributes 
SUCCESS or FAILURE if field name not found 
Mike Blanchette, Copyright (c) IntelliLink, 1993 
V 

ILBASEFN_int ILFldTypeEx // Get field type, etc. 

{ ILTR_PTRANSL tr, // Pointer to translation record 

IL_PSTR label, // internal field name to use 
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IL_PSTR type, 

ILTB_ATTRIB IL_DIST 'attribs, 
INT32 IL_DIST *pFldSize, 
IL_PSTR pszTypeDesc ) 



// Returned field type 

// Returned field attributes 

// Returned MAXIMUM field size 

// Pointer to string for TypeDesc 



int re- 



type [0] = '\0'; // return NULL field type if lookup fails 

if (ILTR_VERSION_IS_AT_LEAST(14) && ILTR_pTableInfo != NULL) 
rc = GetTypeFromTable ( tr, label, FALSE, type, 

attribs/ pFldSize, pszTypeDesc ); 

else 

rc = GetTypeFromMap (tr, label, type, attribs, pFldSize, pszTypeDesc); 
return rc; 



* Name : 

* Purpose 



ILFldTypelnvertedLookup 

Obtain the field type and several more useful bits of info 

Analogous to ILFldTypeEx, but the rules for deciding which 
field list to scan are inverted. 



Called from ILTIF.CPPULTI 
"nested" getfield request. 
Phase40 of synchronization 
into the "source app" and 



FGetAndCopyField when handling a 

This probably only happens in 
, when we're importing updates 
having to do field mapping. 



Author: David Boothby, Copyright (c) IntelliLink, 1995 



V 

ILBASEFN_int ILFldTypelnvertedLookup 
( ILTR_PTRANSL tr, 
IL_PSTR label, 
IL_PSTR type, 

ILTB_ATTRIB IL_DIST *attribs, 
INT32 IL_DIST *pFldSize, 
IL_PSTR pszTypeDesc ) 



{ 



// Pointer to translation record 

// Internal field name to use 

// Returned field type 

// Returned field attributes 

// Returned MAXIMUM field size 

// Pointer to string for TypeDesc 



int rc; 



type[0] = '\o«; // return NULL field type if lookup fails 

if (ILTR_VERSION_IS_AT_LEAST(14) && ILTR_pTableInf o != NULL) 
rc = GetTypeFromTable ( tr, label, TRUE, type, 

attribs, pFldSize, pszTypeDesc ); 

else 

// inverted lookup shouldn't happen in such a rustic setting 

return ILERROR { 0 , ILTR_ERR_INTERNAL_ERROR) ; 



return rc; 



- old-fashioned way to get field type 



* GetTypeFromMap - 



static int GetTypeFromMap 
( ILTR_PTRANSL tr, 
IL_PSTR label, 
IL^PSTR type, 

ILTB_ATTRIB IL_DIST *attribs, 
INT32 IL_DIST *pFldSize, 
IL_PSTR pszTypeDesc ) 

{ 

int ndx = 0; 
ILTR_FLDPTR fid; 
ILTR NDX cur; 



1t/ 

// Internal field name to use 

// Returned field type 

// Returned field attributes 

// Returned MAXIMUM field size 

// Pointer to string for TypeDesc 

// Array position of name 

// Pointer to fields 

// Index to current field 



// Are we importing? If so, use the list of TARGET fields. 

if (ILTR_direction ILTR IMPORT) 
{ 

IL_SYNC_MEM ( ILTR_map . hTarge t , ILTR_map . pTarget) ; 
fid = ILTR_map.pTarget; 
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cur = ILTR_map.TopTarget; 

} 



// Are we exporting? If so, use the list of SOURCE fields. 

else 

{ 

IL_SYNC_MEM* ( ILTR__map . hSource , ILTR_map.pSource) ; 
fid = ILTR_map.pSource; 
cur = ILTR_map.TopSource; 

) 

// Scan the fi e xd ii s t until we find the given field label. 

while (cur \~ -1) 
{ 

/* 

* Does the current field label match the one we need? 

* Stop scanning the list when we find first match. 
* v 

if (IL_STRICMP <fld[cur] .IntName, label) -= 0) 
break; 

// Label does not match. Scan next item in the list. 

cur = fld[cur] .NextField; 

} 

// Reached end of list without finding required field label 

if {cur -1) 

return FAILURE; 

// Set tne attributes and type. 

*attribs = fld[cur] .Attribs; 
*type = fid [cur ]. Type; 
*pFldSize = fldfcur] .Width; 

if (pszTypeDesc != NULL) 

IL_SAFE_STRINGCOPYN (pszTypeDesc, fld[cur] .TypeDesc, ILTR_MAX_TYPEDESC) ; 

// Return without error. 

return SUCCESS; 

} 



/* 

* GetTypeFromTable -- new-fangled way to get field type 

static int GetTypeFromTable 
( ILTR_PTRANSL tr, 

IL_PSTR label, // internal field name to use 

BOOLEAN blnvertedLookup, // invert usual lookup rules? 

IL_PSTR type, // Returned field type 



/ 



{ 



ILTB_ATTRIB IL_DIST *attribs, // Returned field attributes 

INT32 IL_DIST * P FldSize, // Returned MAXIMUM field size 

IL_PSTR pszTypeDesc ) // Pointer to string for TypeDesc 

ILTR_PFLDMAP pMap = &ILTR_pTableInf 0->sFieldMap; 
ILTR_FLDPTR pList; 
int count; 
int i; 

if (ILTR_phase == ILTR_PHASE ILX V3 MODE) 
{ - - _ 

if (blnvertedLookup) 

// inverted lookup shouldn't happen in such a rustic setting 

return ILERROR ( 0 , ILTR_ERR_INTERNAL_ERROR) ; 

if (ILTR_direction == ILTR IMPORT) 
{ 

// When importing use list of TARGET fields. 

pList = pMap->pTarget; 

count = pMap->nTarget + ILTR pTableInfo->nExtraFields; 

} 

else 
{ 

// When exporting use list of SOURCE fields. 

pList = pMap->pSource;. 
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count = pMap->nSource + ILTR_pTableInfo->nExtraFields; 

} 

> 

else 
{ 

/* 

* The standard un-inverted rule is that we look up the field in the 

* target field list if we're currently in PhaselO (exporting from 

* target) or in Phase30 (importing into target) . 

* + / 

BOOLEAN bUseTargetList =* (ILTR_phase == ILTR_PHASE10 

II ILTR_phase == ILTR_PHASE30) ; 

/* 

* For inverted lookup simply reverse the standard rule. 



if (blnvertedLookup) 

bUseTargetList = IbUseTargetList; 

if (bUseTargetList) 
{ 

pList = pMap->pTarget; 

count = pMap->nTarget + ILTR_pTableInf o->nExtraFields ; 

} 

else 
{ 

pList = pMap->pSource ; 

count = pMap->nSource + ILTR_pTableInfo->nExtraFields; 

} 

} 

// Scan the field list until we find the given field label. 

for (i=0; i < count; i++) 
{ 

if (IL_STRINGS_CI_EQUAL(pList [i] .IntName, label)) 
( 

*attribs = pList [ i ] . Attribs; 
*type = pList [i] .Type; 

*pFldSize = pList [ij .Width; 
if (pszTypeDesc != NULL) 
{ 

IL_SAFE_STRINGCOPYN ( pszTypeDesc, 

pList [i] .TypeDesc, 
ILTR_MAX TYPEDESC ) ; 

} 

return SUCCESS; 

} 

} 

// Reached end of list without finding required field label. 

return FAILURE; 

} 
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/ 

* Name: sst.c 

* Part of: IntelliLink translation harness (ILTR library) 

* Contents: SST (Section SubType) Tagging & Filtering Functions: 

ILSST_AddTag — for TIF to call 

* lLsST_AddTag2 -- for ILTR\f ldget . c to call 

ILSST_Filter 

ILSST_SubTypeOK 

* ILSST_StripTag 
+ 

* Author: David Boothby, Copyright (c) IntelliLink, 1996 
+ 

v 

/* 

* NOTE: this is an " ILBASE" module, which means that it may be built into 

* a "base" DLL rather than being statically linked into every 

* translator. Please ensure that all non-static functions in this 

* module are declared with ILBASE_xxxx macros, defined in ILTYPES.H. 

* V 

#include "iltr.h" 
#include "ilx.h" 
#include <ctype.h> 



/* 

* Name: ILSST_AddTag 

* Called from: ILTIF2XILTIF. cpp\ILTIFGetField and from ILSST_AddTag2 

* RETURNS: SUCCESS or ILTR_ERR_TRUNC or error code for fatal abnormal error 



ILBASEFN_int ILSST_AddTag 
( ILTR_PTRANSL tr, 
INT32 SizeLimit, 

INT32 IL_DIST *pLength, // length including null terminator byte 
IL_PSTR IL_DIST *ppText, 
IL_PSTR szTagDigits, 
IL_PSTR szTypeDesc ) 

{ 

int rc, rc2; 

INT32 newFullSize, newActualSize; 
int copyBytes; 
char szTag[20] ; 
IL_PSTR p; 

// Construct full tag to use as suffix to "real" field value 

if {*pLength < 2) 

IL_SPRINTF(szTag, "{%.10s}", szTagDigits); 
else 

IL_SPRINTF(szTag, " {%.10s}'\ szTagDigits); 

// gee whether adding tag will push us over the size limit 

newFullSize = *pLength + IL_STRLEN ( szTag) ; 
if (newFullSize <= SizeLimit) 

{ 

// plenty of room for tagged value 

newActualSize = newFullSize; 
copyBytes (int) *pLength - 1; 
rc = SUCCESS; 

} 

else 
{ 

//- we'll have to do truncation!! 

newActualSize = SizeLimit; 

copyBytes = (int) (*pLength - 1L - (newFullSize - SizeLimit)); 
rc = I LTR_ERR_TRUNC ; 

} 



if (ILTR_pSSTBuf == NULL) 
{ 

// initialize reusable buffer ILTR_pSSTBuf 

IL_ALLOC_MEM (sizeof ( ILUT_BUFFER) , ILTR_hSSTBuf , ILTR pSSTBuf ) ; 
if (ILTR_pSSTBuf == NULL) ~ 
return ILERROR (sizeof ( ILUT_BUFFER) , ILTR_ERR_NOMEM) ; 

rc2 => ILUT_InitBuffer ( ILTR_pSSTBuf , 0, 512, ILTR MAX FIELDLENGTH+1 ) ; 
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if (rc2 != SUCCESS) 

return ILERROR(rc2, I LTR_ERR_I NTERNAL_ERROR ) ; 

} 

// Ensure that *SST' buffer is big enough. If not, expand it. 

rc2 = ILUT_GetBuf fer ( ILTR_pSSTBuf , newActualSize) ; 
if (rc2 != SUCCESS) 

return ILERROR ( rc2 , ILTR_ERR_NOMEM) ; 

p = (IL_PSTR) ILTR_pSSTBuf->pBuf fer; 
IL_STRNCPY <p, +ppText, copyBytes); 
IL_STRCPY (p+copyBytes, szTag) ; 

*pLength = newActualSize; 
*pipText = p; 

return rc; 

} // ILSST AddTag 



/* 

* Name: ILSST_AddTag2 

* Called from: ILTR\ fidget . c 
* 

* RETURNS: SUCCESS or ILTR_ERR_TRUNC or error code for fatal abnormal error 



ILBASEFN_int ILSST_AddTag2 // ADD TAG function for ILFldGet to call 
{ ILTR_PTRANSL tr, 

unsigned int bufSize, 

unsigned int IL_DIST *pLength, // length excluding NULL 
IL_PSTR lpBuffer, 
IL_PSTR szTagDigits, 
IL_PSTR szTypeDesc ) 

{ 

int rc; 

INT32 len = (INT32) *pLength+l; // length including NULL 

IL_PSTR pData = lpBuffer; 

rc = ILSST_AddTag (tr, (INT32) bufSize, slen, SpData, szTagDigits, szTypeDesc); 

if (rc == SUCCESS | | rc ILTR_ERR TRUNC) 

{ 

♦pLength = (unsigned int) len-1; // length excluding NULL 
IL_STRCPY (lpBuffer, pData) ; 

} 

return rc; 
} // ILSST_AddTag2 



/* 

* ILSST_Filter — decide whether or not to EXCLUDE current record 

* Called from ILTR\EXPORT . C 

* Returns: 

* SUCCESS if record is NOT to be excluded. 
ILTR_SKIP_WRITE if record IS to be excluded. 

* other abnormal error codes if necessary 



ILBASEFN_int ILSST_Filter ( ILTR_PTRANSL tr) 
{ 

int rc; 

char szBuf [10] ; 
long len; 

// Don't exclude record if SST filtering is disabled 

if (ILTR_Flags & ILTR_DISABLE_SST_FILTERING) 
return SUCCESS; 

// a Pply special exclusions when synchronizing 

if ( ILTR_nSynchronize) 
{ 

// don't exclude record when synchronizing a ' TotalRebuild ' system 

if (ILTR_nAttribs & ILTB_ATT_TOTAL_REBUILD) 
return SUCCESS; 
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/* 

* For Fast Sync, don't check subtype for DELETE items. 

* Typically DELETE items are devoid of any data content, 

* including sub type information. 
v 



* 



// Retrieve value of _Delta field. 

len = (long) sizeof (szBuf ) ; 

rc = ILTRGetField (tr, ILTR_FLD_DELTA, szBuf, ilen) ; 
// Don't check subtype if this is a DELETE 

if (rc == SUCCESS && IL_STRINGS_EQUAL ( szBuf , ILTR_DELTA_DELETE) ) 
return SUCCESS; 



// Retrieve value of SUBTYPE field. 

len ~ (long) sizeof (szBuf) ; 

rc = ILTRGetField (tr, ILTR_SUB_TYPE, szBuf, &len) ; 
if (rc != SUCCESS) 

return ILERROR (rc, ILTR_ERR_INTERNAL_ERROR) ; 

// apply subtype matching rules 

rc = ILSST_SubTypeOK (tr, szBuf ) ; 
switch (rc) 
{ " 

case FALSE: ILTR_action = ILTR_ACT_FILTER; 

return ILTR_SKI P_WRITE; 

case TRUE: return SUCCESS; 
default : return rc; 

} 

} // ILSST Filter 



/* 

* ILSST_SubTypeOK -- apply subtype matching rules to decide whether record 

* subtype is suitable for transfer 
+ to the current Target Section. 

* Called from ILIF2\TIFPUT.CPP\ComputeSearchKeyValues and from ILSST Filter. 

* Returns: ~ 

TRUE/FALSE if record subtype is OK/not OK 

* other abnormal error codes if necessary 



ILBASEFN_int ILSST_SubTypeOK ( ILTR_PTRANSL tr, IL PSTR szSubType) 
{ 

int subtype; 

subtype = IL_atoi (szSubType); 

if ( ILTR_TargetSST == ILX_SUBSECT MAIN) 
{ 

if (subtype == ILX_SUBSECT_MAIN) 

// good match: both record and target section have subtype==0 

return TRUE; 
else 
{ 

int i; 

for (i=0; i < ILTR_TargetSSTCount; 

if (subtype == ILTR TargetSSTList [i] ) 

/* 

* EXCLUDE this record on THIS translation pass. There is an 

* an exact-match "home" for this record, in the Target App, so 

* we don't want to put it into the "catch-all" MAIN section. 



return FALSE; 

// no exact-match home, so let record go into catch-all MAIN section 
return TRUE; 

> 

} 

else if (subtype == ILTRJTargetSST) 

// subtype of record matches subtype of target section 

return TRUE; 
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else 

// subtype of record does not match subtype of target section 

return FALSE; 

} // ILSST_SubTypeOK 



/* 

* Name: ILSST_StripTag 

* Called from: ILTR\f ldput . c and ILTIF2ULTIF. cppULTIFPutField 

* NOTE: some day this function may get a lot fancier. Right 

* now it only knows how to detect NUMERIC SUFFIX TAGS . 

* The overall field formats that it knows about are 

* just these two {shown by example) : 
* 

"{9}" -- no "real data", just a tag 

"Fred {9}" real data "Fred" with tag suffix 

* the "szTypeDesc" arg will someday prescribe other formats 
* 

NOTE: trailing spaces after a tag are tolerated, and are STRIPPED. 

If a TAG is found it is stripped from the field that carries it, 
and is copied back into the caller's f szTag' buffer. The caller 

* is responsible for putting the tag value into the "_subType" field. 

* if no TAG is found, szTag buffer is set to NULLSTRING. 
* 

* RETURNS: SUCCESS or error code for fatal abnormal error 



ILBASEFN_int ILSST_StripTag 

( ILTR_PTRANSL tr, 

IL_PSTR IL_DIST *ppText, 
unsigned int IL_DIST *pLen, 
IL_PSTR szTypeDesc, 

IL_PSTR szTag ) // char szTag [ ILTR MAX TAG LEN] 

{ - - _ 

IL_PSTR p; 

IL_PSTR pCloseCurly; 
IL_PSTR pOpenCurly; 
int tagDigits; 

IL_MAKE_STRING_NULL ( s zTag ) ; // null tag, unless changed below... 

/* 

* Commented out this next check - it was messing us up in ILX V3 

* SmartMerge Import from a nonMain section into a MAIN section. 

* The PutProcessing code, of the Target xlator, uses ILFldGet to 

* read from ILIF file. Tagged field gets decorated. Then xlator 

* calls ILTIFPutField. We want decorations stripped back off again. 

* NOTE: with this check disabled we can "see" tags when exporting 

* from nonMain sections. This was not really intended, but isn't 

* harmful. Such tags should only get there due to user deviousness. 

* IntelliLink will never put tags into nonMain sections. 



// If we're NOT working with data from a MAIN section, do nothing 

//if (ILTR_SourceSST != ILX_SUBSECT_MAIN) 
// return SUCCESS; 

// If TAGGING is disabled, do nothing 

if (ILTR_Flags & ILTR_DISABLE_SST_TAGGING) 
return SUCCESS; 

/* 

* search for suffix tag in curly braces; if we don't find one, this 

* function is a happy little NO-OP. 
+ 

// find LAST closing curly brace 

pCloseCurly = IL_STRRCHR (*ppText, '}'); 
if (pCloseCurly == NULL) 

// no curly brace means no tag, hence NO OP 

return SUCCESS; 

// check for non-SPACE char after closing brace 
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p - pCloseCurly+l ; 
while (*p != 0) 

if (*p++ != • ') 

// found something; must be no tag. hence NO OP 

return SUCCESS; 

// find LAST opening curly brace 

pOpenCurly = IL_STRRCHR <*ppText, '{'); 
if (pOpenCurly == NULL) 

// no curly brace means no tag, hence NO OP 

return SUCCESS; 

// demand that there be a SPACE between the real data and the tag 

if ((pOpenCurly > *ppText) && ( * (pOpenCurly-1 ) != ' ')> 

// no SPACE means no tag, hence NO OP 

return SUCCESS; 

tagDigits = (pCloseCurly-pOpenCurly ) - 1; 

if (tagDigits > ILTR_MAX_TAG_LEN | | tagDigits < 1) 

// too much or too little "meat" between the braces; not a valid tag 

return SUCCESS; 

// make sure the tag is 100% numeric 

p = pOpenCurly+1 ; 
while (p < pCloseCurly) 
if ( !isdigit(*p++) ) 

// tag isn't all numeric; isn't a valid tag; NO-OP 

return SUCCESS; 

/* 

* Tag Validation is complete. Copy the "meat" of the tag into the 

* caller's buffer 



IL_STRNCPY (szTag, pOpenCurly+1 , tagDigits); 
szTag[tagDigits) = 0; 

/* 

* NOTE: we never need to copy the data into another buffer. 

* For SUFFIX tags, we simply reduce the LENGTH of the field value; 

* for PREFIX tags, shift the text pointer AND reduce the length. 

* / 

if (pOpenCurly == *ppText) 

*pLen = 0; 
else 

*pLen = pOpenCurly - *ppText - 1; 
return SUCCESS; 
} // ILSST_StripTag 
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/* 

* Name: ILRPT.H 

* Purpose: Header file used with repeating items 

+ Author: Mike Blanchette, Copyright (c) IntelliLink Corporation, 1993 

* — */ 

ffifndef ILRPT // Only include header once 

ffdefine ILRPT * // Signal header inclusion 

// Common Intellilink types 

ffinclude "iltypes.h" 

// Miscellaneous constants 

ffdefine I LT R_MAX_ FL DN AME 31 // Max size of field names 

ffdefine ILTR_REP_BASIC "_repBasic" // Basic repeat field 

#define ILTR_REP_XDATE "_repExcl" // Exclusion date field 

ffdefine ILTR APP DATA " appData" // Application binary field 



// 

typedef 
ffdef ine 
ffdefine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 

// 

ffdefine 
ffdef ine 
ffdef ine 



— Days of the week 
INT16 ILTR_DAY; 
ILTR_SUN 
ILTR_MON 
ILTR_TUE 
ILTR_WED 
ILTR_THU 
ILTR_FRI 
ILTR SAT 



(use INT16, not enum, to be size-invariant) 



1 
2 
3 
4 
5 
6 
7 



// Sunday 

// Monday 

// Tuesday 

// Wednesday 

// Thursday 

// Friday 



// Saturday 

Next 3 values used with xxx_AND_CLASS repeat patterns only 

ILTR_ANY_DAY 8 // any day of the week 

I LT R_AN Y_WE E K DAY 9 // any 1 of Mon-Fri 

ILTR ANY WEEKEND DAY 10 // Saturday or Sunday 



Months of the year (use INT16, not enum, to be size-invariant) 



typedef 


INT16 ILTR 


MONTH; 




ffdef ine 


ILTR 


MONTH 


JAN 


1 


ffdefine 


ILTR 


"month' 


FEB 


2 


ffdef ine 


iltr] 


[month 


_MAR 


3 


ffdef ine 


iltr" 


"month 


APR 


4 


ffdef ine 


iltr" 


"month' 


MAY 


5 


ffdef ine 


ILTR 


"month' 


~JUN 


6 


ffdef ine 


ILTR" 


"month 


"JUL 


7 


ffdefine 


ILTR 


"month" 


AUG 


8 


ffdefine 


ILTR 


"month" 


SEP 


9 


ffdefine 


ILTR 


"month" 


OCT 


10 


ffdef ine 


iltr" 


month' 


NOV 


11 


ffdef ine 


iltr" 


"month" 


DEC 


12 



// 

typedef 
ffdefine 
ffdef ine 
ffdefine 
ffdefine 
ffdefine 
ffde f ine 
ffdef ine 
ffdefine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdefine 
ffdef ine 



Supported repetition types (use INT16, not enum, 
INT16 ILTR RE PEATY PE; 



to be size-invariant) 



ILTR NOREPEAT 


0 


// 


No repeat 


ILTR DAILY 


1 


// 


Daily 


ILTR WEEKLY 


2 


// 


Weekly 


ILTR MONTHLY 


3 


// 


Monthly 


ILTR MONTHLY BY POS 


A 


// 


Monthly by position 


ILTR YEARLY 


5 


// 


Yearly 


ILTR YEARLY BY POS 


6 


// 


Yearly by position 


ILTR MIXED 


7 


// 


Mixed 


ILTR MIXED BY POS 


8 


// 


Mixed by position 


ILTR EXCLUSION 


9 


// 


Exclusion 


ILTR MONTHLY BY POS AND CLASS 


10 


// 


e.g. 1st weekday of each month 


ILTR YEARLY BY POS AND CLASS 


11 


// 


e.g. 1st weekday of May 


ILTR WEEKLY DAYS 


12 


// 


e.g. every Mon,Wed,Fri 


ILTR QUARTERLY 


13 


// 


Quarterly 


ILTR QUARTERLY BY POS 


14 


// 


Quarterly by position 



if you add repeat types, please update the TEST program! 



/ 



NOTE: when using the Repeat Types I LTR_MONTHLY_BY_POS_AND_CLASS and 
ILTR_YEARLY_BY_POS_AND_CLASS, you must set "dayOfWeek" to one 
of ILTR_ANY_DAY, ILTR_ANY_WEEKDAY, or ILTR_ANY_WEEKEND_DAY, 
and you must set "day" to any one of the ILTR_POSITION_IN_MONTH 
enum values. 

v 



// 



Weeks of the month (use INT16, not enum, to be size-invariant) 
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typedef INT16 ILTR_WEEK; 
ffdefine ILTR_WEEK_1ST 
ffdefine ILTR_WEEK_2ND 
ffdefine I LTR_WEEK_3RD 
ffdefine ILTR_WEEK_4TH 
ffdefine ILTR WEEK .LAST 



1 
2 
3 
4 
5 



// First week 

// Second week 

// Third week 

// Fourth week 

// Last week 



// 


Weeks of the quarter (use INT16, 


not enum, to be size-invariant) 


typedef 










sde t ine 


ILTR QUARTER WEEK 1ST 


1 


// 


First week 


ffdef ine 


ILTR QUARTER WEEK 2ND 


2 


// 


Second week 


ffdefine 


ILTR QUARTER WEEK 3RD 


3 


// 


Third week 


ffdef ine 


ILTR QUARTER WEEK 4TH 


4 


// 


Fourth week 


ffdefine 


ILTR QUARTER WEEK 5TH 


5 


// 


Fifth week 


#def ine 


ILTR QUARTER WEEK 6TH 


6 


// 


Sixth week 


ffdefine 


ILTR QUARTER WEEK 7TH 


7 


// 


Seventh week 


ffdefine 


ILTR QUARTER WEEK 8TH 


8 


// 


Eighth week 


ffdefine 


ILTR QUARTER WEEK 9TH 


9 


// 


Ninth week 


ffdefine 


ILTR QUARTER WEEK 10TH 


10 


// 


Tenth week 


#def ine 


ILTR QUARTER WEEK 11TH 


11 


II 


Eleventh week 


ffdefine 


ILTR QUARTER WEEK 12TH 


12 


II 


Twelfth week 


ffdef ine 


ILTR QUARTER WEEK 13TH 


13 


// 


Thirteenth week 


ffdefine 


ILTR QUARTER WEEK LAST 


14 


// 


Last week 


// 


Artificial "last" values 






ffdefine 


ILTR MONTH DAY LAST 


32 


// 


Last day of month 


ffdefine 


I LTR_QUARTER_DAY_LAST 


99 


// 


Last day of quarter 



/* 

* NOTE 



the following enum values are only used with the 
Repeat Types ILTR_MONTHLY_BY_POS_AND_CLASS and 
ILTR_YEARLY_BY_POS_AND_CLASS. Put in the "day" field 



/ 



typedef INT16 ILTR_POSITION_IN_MONTH; 

ffdefine ILTR_P0S_1ST 1 

ffdefine ILTR_POS_2ND 2 

ffdefine ILTR_POS_3RD 3 

ffdefine ILTR_P0S_4TH 4 

ffdefine I LTR_POS_LAST 5 

// Pointer to numeric date field 

typedef long IL_DIST * ILTR_PDATES; 

// Repeating item structure 

typedef struct _repeat 

{ 

/* 

* Default values must be supplied for all common fields below. 

* Observe the following rules in using the structure: 

+ (1) All dates are expressed as the number of days since 1/1/1900 

* (2) Set stopDate to -1 if no stop date exists (indefinite item) 

* (3) Set numExDates to 0 and exDates to NULL if no exclusions exist 
+ (4) Memory for exDates must be allocated by the caller 

* V 



// Common fields for ALL repeat types 

ILTR_REPEATYPE type; 
long startDate; 
long stopDate; 
INT16 frequency; 
INT16 numDays; 

char start Field [ ILTR_MAX_FLDNAME] ; 
char stopField[ILTR MAX FLDNAME] ; 



// Repeat type 

// Duration start date 

// Duration stop date 

// Repeat frequency {every n) 

// Consecutive days to repeat 

// Name of start date field 

// Name of stop date field 



/ 



Variable portion of structure. Values must be provided in fields 
listed below based on the indicated repeat type: 



ILTR_NOREPEAT: 
ILTR_DAILY: 
ILTR WEEKLY: 



I LTR_MONTHLY : 
ILTR_MONTHLY_BY_POS 
ILTR YEARLY: 



(None but numDays field may be set) 
(None ) 
dayOfWeek 

(NOTE: for an item that occurs every weekday, 
use Type=WEEKLY, dayOfWeek=MONDAY, numDays=5) 
day 

dayOfWeek, wee kOf Month 
month, day 
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★ 
+ 

+ 

+ . 



I LTR_YEARLY_BY_POS : dayOfWeek, month, weekOfMonth 

ILTR_MIXED: day, months 

ILTR_MIXED_BY_POS: days, months, weeks 

ILTR_MONTHLY_BY_POS_AND_CLASS: day, dayOfWeek 
ILTR_YEARLY_BY_POS_AND_CLASS: day, dayOfWeek, month 
ILTR_WEEKLY_DAYS: days 
I LTR_QUA&TERLY : day 

ILTR_QUARTERLY_BY_POS dayOfWeek, weekOfMonth (alias weekOf Quarter ) 
v 



INT16 day; 
INT16 month; 
ILTR_DAY dayOfWeek; 
ILTR_WEEK weekOfMonth; 
BOOL16 days [7] ; 
BOOL16 months [12] ; 
BOOL16 weeks [5] ; 



// Day of month (1-31 ) 

// Month of year (1-12) 

// Day of week (Sun-Sat) 

// Week of month (1-5) 

// Day of week (TRUE or FALSE) 

// Months (TRUE or FALSE) 

// Week of month (TRUE or FALSE) 



* This information must be the last in this structure. Because Repeat 

* information is passed between the translators, and different trans- 

* lators use different memory models, exDates may be either a near or 

* a far value. The value dummy is provided to account for cases where 

* the source translator uses near and the target uses far (a near value 

* goes into the intermediate file, and the dummy goes into the 

* v 

INT16 numExDates; // Count of exclusion dates 

IL_HANDLE hExDates; // Handle to exclusion list 

IL_HANDLE_PADDING(xx) // pad if IL_HANDLE is less than 32 bits 
ILTR_PDATES exDates; // Pointer to exclusion list 

INT16 dummy; // Account for near/far mismatch 

ILTR REPEAT; 



/ 



* Max Fanout counts: the following structure is used to hold a set of 

* maxima which apply when fanning repeating items. 

* Different limits apply to different repeat types. A negative 

* count is used to make the maximum vary according to the numDays count 

* (or for ILTR_WEEKLY_DAYS to vary according to the number of days 

* selected per week). For example if weekly limit is -52 then 

* a WEEKLY_DAYS pattern for Mondays, Wednesdays, and Fridays will be 
+ fanned out for 52 weeks, for a total of 156 instances. A positive 

* count gives a simple rigid limit, with no "numDays" dependency. 

* The commonly used maxima structure is ILTR_FanoutMaxima . ILTR.H 

* has access macros for each of the members of ILTR_FanoutMaxima . 
+■ 

* At the start of each translation phase (hence independently for source 

* and target translators) the fanout limits are set to "reasonable" 

* default values. Some translators may override the defaults by 

+ putting different values into the ILTR_FanoutMaxima structure when 
the DataStore's "Open" function is called. 



typedef struct 
{ 

INT16 nDailyMaxFanout; // max for DAILY patterns 

INT16 nWeeklyMaxFanout; // max for WEEKLY & WEEKLY_DAYS 

INT16 nMonthlyMaxFanout; // max for all 3 MONTHLY patterns 

INT16 nQuarterlyMaxFanout; // max for QUARTERLY patterns 

INT16 nYearlyMaxFanout; // max for all 3 YEARLY patterns 

INT16 nOtherMaxFanout; // max for all other patterns 

} 

ILTR_FANOUT_MAXIMA, IL_DIST v I LTR_PFANOUT_MAXIMA; 
ffendif // ILRPT 



7 
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/* 

* Name: ILRepeatNextDate 

* Purpose : Get next valid date for repeating item 

* Input: Pointer to repeat structure and start date field 

* Return: SUCCESS or error code 

* Author: Mike Blanchette, Copyright {c) IntelliLink, 1992 

* --- V 

/* 

* NOTE: this is an "ILBASE" module, which means that it may be built into 

* a "base" DLL rather than being statically linked into every 

* translator. Please ensure that all non-static functions in this 

* module are declared with ILBASE_xxxx macros, defined in ILTYPES.H. 

* _ . . + / 

^include "iltr.h" 
^include <time.h> 

// Function prototypes. 

static int isLast ( long ) ; 
static int normalizeDay ( int, 

int, 

int }; 

static void normalizeDate ( int IL_DIST *, 

int IL_DIST *, 
int IL_DIST + , 
int IL_DIST * ) ; 

static void goBackward ( ILTR_PREPEAT repeat, 

long IL_DIST +nDate, int nDay );. 

static void goForward ( ILTR_PREPEAT repeat, 

long IL DIST +nDate, int nDay ); 
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// //////////////////////////////////////////////////////////////////////// 

ILBASEFN_int ILRepeatNextDate ( ILTR_PREPEAT repeat, 

long IL_DIST *nDate, 
long IL DIST *priorDate ) 



{ 



// please use & maintain the test program in iltr\test !!!! 

if ( repeat->type != ILTR_NORE PEAT ) 
{ 

if ( ( repeat->startDate < 0) 
I | ( repeat->stopDate < -1) 
II ( repeat->f requency < 1) 
II ( repeat->numDays < 1) ) 
return ILERROR ( ILTR_ERR_REPEAT, ILTR_ERR_REPEAT ) ; 

} 

switch ( repeat->type ) 
{ 



case 


ILTR 


DAILY: 


return 


case 


ILTR" 


WEEKLY: 


return 


case. 


iltr" 


_WEEKLY_ 


DAYS: 








return 


case 


ILTR 


MONTHLY 


: return 


case 


iltr" 


YEARLY: 


return 


case 


iltr" 


MIXED: 


return 


case 


iltr" 


MONTHLY 


BY POS: 


case 


iltr" 


YEARLY 


BY POS: 



return nextByPos (repeat, nDate, priorDate}; 
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case ILTR_MIXED_BY_POS: 

return nextMixedByPos (repeat, nDate, priorDate); 
case I LTR_MONTH LY_BY_POS_AN D_CLASS : 
case ILTR_Y£ARLY_BY_POS_AND_CLASS: 

return nextByPosAndClass (repeat, nDate, priorDate); 
case I LTR_QU ART E RLY : return nextQuarterly (repeat, nDate, priorDate); 
case ILTR_Q0ARTERLY_BY_POS: 

return nextQuarterlyByPos (repeat, nDate, priorDate); 

case ILTR_NOREPEAT: 

*priorDate = *nDate; // no change from previous version... 
return SUCCESS; // should this be tightened up? 

case ILTR_EXCLUSION : // inappropriate repeat type 

default: // unknown repeat type ! ! 

return ILERROR (ILTR ERR REPEAT, ILTR ERR REPEAT); 



// ///////////////////////////////////////////////////////////////////// 

static int nextDaily ( ILTR_PREPEAT repeat, 

long IL_DIST *nDate, 

long IL_DIST ^priorDate ) 

{ 

// First valid date IS the start date. 

if (*priorDate == -1) 

*nDate — repeat->st art Date ; 

// Increment date by frequency number. 

else *nDate = *priorDate + repeat->f requency; 

+ priorDate = *nDate; 
return SUCCESS; 

• } 



// ///////////////////////////////////////////////////////////////////// 

static int nextWeekly ( ILTR_PREPEAT repeat, 

long IL_DIST + nDate, 

long IL_DIST ^priorDate ) 

( 

// Compute first date having specified day of week (Sun-Sat). 

if (*priorDate == -1) 
{ 

int nDay = IL_DayOfWeek ( repea t->start Date ) ; 
*nDate = repeat->start Date + repeat->dayOfWeek - nDay; 
if (nDay > repeat->dayOfWeek ) 
*nDate += 7; 

} 

// Increment date by number of weeks specified by frequency. 

else + nDate = ^priorDate + ( repea t->f requency * 7); 

^priorDate = *nDate; 
return SUCCESS; 



/* 

*■ Name: chooseNextDay 

* Called by: nextWeeklyDays (only caller) 

* Purpose: scan through the "days" array for next day. 

* Examples: if days[] says MonWedFri, and nPreviousDay is Mon or Tue 
*■ choose Wednesday; if nPreviousDay is Fri Sat or Sun, 

* choose Monday . 

+■ + 1 

If ///////////////////////////////////////////////////////////////////// 

static int chooseNextDay (int nPreviousDay, B00L16 *days) 

{ 

int i, daylndex; 

daylndex = nPreviousDay-1 ; // get zero-based index from 1-based enum 
for (i=0; i < 1; 
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daylndex += 1 ; 
if (daylndex > 6) 

daylndex = 0; 
if (days [daylndex) ) 

return (daylndex+l ) ; 



} 

return ( -1 ) ; 



// ERROR 



// advance to next day 

// after Saturday... 

// ...is Sunday (next week} 



no t rue days [ ] 



// ///////////////////////////////////////////////////////////////////// 

static int nextWeeklyDays ( ILTR_PREPEAT repeat, 

long IL_DIST *plDate, 

long IL_DIST *plPriorDate ) 

{ 

long 1 Previous Date ; 
int nPreviousDay; 
int nThisDay; 

lPreviousDate = *pl PriorDate; 
i f ( 1 Previous Date == -1 ) 

lPreviousDate = repeat->startDate - 1; 
nPreviousDay - IL_DayOfWeek (lPreviousDate}; 

nThisDay = chooseNextDay {nPreviousDay, repeat->days ) ; 
if (nThisDay == -1 ) 

return ILERROR ( ILTR_ERR_REPEAT, I LT R_E R R_R E PEAT ) ; 

// Now figure DATE for chosen DAY. 

*plDate = lPreviousDate + (nThisDay - nPreviousDay); 
if (nThisDay < nPreviousDay} 

{ // e.g. This is Monday; Previous is Friday 

if (*plPriorDate == -1) 

*plDate += 7; // for FIRST occurrence, use date in the week 

// right after the startDate (ignore FREQUENCY } 

else 

*plDate += ( repeat->f requency * 1 ) ; // go forward N weeks 

} 

*plPriorDate = *plDate; 
return SUCCESS; 

} 



// 



///////////////////////////////////////////////////////////////////// 



static int nextMonthly ( ILTR_PREPEAT repeat, 

long IL_DIST *nDate, 
long IL DIST *priorDate } 



int nDay = 0; 

int nWeek = 0; 

int month, day, year; 
long holdDate; 



// Day of week (Sun-Sat) 

// Week of month (1-5) 

// Date fields 

// Encoded date 



/ 



if 



Compute next date having the specified day of month (1-31). 
Decode start date on initial call. On subsequent calls, 
use the prior date field. 



/ 



(*priorDate == -1) 
holdDate = repeat->startDate; 
else holdDate = *priorDate; 

IL DateDecode (holdDate, &month, &day, &year); 



/ 



* Iterate until we have a date that exceeds the start date. 

* By definition, this loop can never iterate more than twice 



7 



if (*priorDate == -1) 
do 

{ 

day = normalizeDay ( repeat->day, month, year); 
IL DateEncode (month, day, year, nDate); 
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month++; 

normalizeDate (&year, Smonth, SnWeek, SnDay) ; 

} 

while (*nDate < repeat->startDate) ; 

// Increment month based on setting of frequency field. 

else 
{ 

month += repeat->f requency; 

normalizeDate (&year, &month, &nWeek, &nDay) ; 
day = normalizeDay (repeat-> day, month, year); 
IL_DateEncode (month, day, year, nDate); 

} 

+ priorDate = *nDate; 
return SUCCESS; 

} 



// ///////////////////////////////////////////////////////////////////// 

static int nextByPos ( ILTR_PREPEAT repeat, 

long IL_DIST *nDate, 

long IL DIST *priorDate ) 



{ 



int nDay = 0; // Day of week (Sun-Sat) 

int nDays = 0; // Days in month (1-31) 

int nWeek = 0; // Week of month (1-5) 

int holdDay = 0; // Temporary day of week 

int holdWeek = 0; // Week of month (1-5) 

int month, day, year; // Date fields 

long holdDate; // Encoded date 

/* 

* Begin with start date on initial call. Use the prior date 

* field on subsequent calls. 
+ + 1 

if (*priorDate -~ -1) 

holdDate = repeat->startDate; 
else holdDate = *priorDate; 

I L_Date Decode (holdDate, Smonth, &day, Syear ) ; 

// Increment month or year on subsequent calls. 

if ( + priorDate != -1) 

if ( repeat->type == ILTR_MONTHLY_BY_POS ) 

{ 

month += repeat -> frequency; 

normalizeDate (Syear, &month, &nWeek, &nDay) ; 

} 

else year += repeat->f requency; 

/* 

* Compute next date in specified week of month and on given 

* day of week. Start from the end of month and work backwards 

* to locate the desired date. 

+ 4- I 

if { repeat->type == ILTR_YEARLY_BY_POS ) 
month = repeat ->month; 

/ + 

* This loop computes the date of given repeat item for 

* the starting month and again for the succeeding month 

* IFF the first date precedes the prior date. 

* By definition, the loop can never iterate more than twice. 
■*- i 

do 
{ 

/* 

* Find the last day of the month and locate the last 

* occurrence of the desired day of week. 
+ 1 

nDays = IL_DaysInMonth (month, year); 
IL_DateEncode (month, nDays, year, nDate); 
nDay = IL_DayOf Week (*nDate); 
if (nDay < repeat->dayOf Week ) 

*nDate = *nDate - 7 + { repeat->dayOfWeek - nDay); 
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else 

*nDate = *nDate - (nDay - repea t->dayOf Week ) ; 

/* 

* Now adjust the computed date to correspond to the 

* desired week of month. 
* Z */ 

nWeek - IL_WeekInMonth (*nDate); 
if ( repeat->weekOfMonth < nWeek) 

*nDate -= (7 * (nWeek - repea t->weekOfMonth )) ; 

// Increment the month or year in case we iterate again. 

if ( repeat->type == ILTR_YEARLY_BY_POS ) 

year++; 
else month++; 

normalizeDate {&year, imonth, &nWeek, &nDay); 

) 

while (*nDate < repeat->startDate) ; 

*priorDate = * nDate; 
return SUCCESS; 

} 



// ///////////////////////////////////////////////////////////////////// 

static int nextYearly ( ILTR_PREPEAT repeat, 

long IL_DIST *nDate, 

long IL_DIST *priorDate ) 

{ 

int month, day, year; // Date fields 

/* 

* Decode start date on initial call. On subsequent calls, 

* use the prior date field. 
+ — _+ 1 

if {*priorDate == -1) 
{ 

IL_DateDecode ( repeat->startDate, &month, &day, &year); 

/* 

* This loop can never iterate more than twice. It computes 

* the yearly date and only iterates a second time if the 

* first computed date precedes the item start date. 
* *■ i 

do 
{ 

day = normalizeDay ( repeat->day, repeat->month, year}; 
IL_DateEncode ( repea t->month , day, year++, nDate); 
} while (*nDate < repeat->startDate ) ; 

} 

else 
{ 

// Increment year based on setting of frequency field. 

IL_DateDecode ( **pr iorDate, Smonth, &day, &year); 
year += repeat->f requency; 

day = normalizeDay ( repeat->day, month, year); 
IL_DateEncode {month, day, year, nDate); 

} 



*priorDate = *nDate; 
return SUCCESS; 

} 



// ///////////////////////////////////////////////////////////////////// 

static int nextMixed ( ILTR_PREPEAT repeat , 

long IL_DIST *nDate, 

long IL DIST *priorDate ) 



{ 



int nDay =0; 
int nWeek = 0; 

int holdDay =* 0; 
int month, day, year; 
long holdDate; 



// Day of week (Sun-Sat) 

// Week of month (1-5) 

// Temporary day of week 

// Date fields 

/ / Encoded date 
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/* 

* Compute next date having the specified month and day of month. 

* Decode start date on initial call. On subsequent calls, 

* use the prior date field. 
+ _ / 

if ( + priorDate == -1) 

holdDate = f epeat->sta rt Date; 
else holdDate = *priorDate; 

IL_DateDecode (holdDate, &month, &day, Syear); 

// Increment month based on setting of frequency field. 

if (*priorDate != -1) 

{ 

month++; 

normalizeDate (&year, Smonth, SnWeek, AnDay); 
day = normalizeDay ( repeat->day, month, year); 

} 

/ + 

* Iterate until we have a date that exceeds the start date. 

* The loop stops when the date exceeds the start date AND 

* corresponds to one of the checked months. 
+ */ 

while (TRUE) 
{ 

// Is month checked in list? Skip it if not in list. 

normalizeDate (&year, &month, SnWeek, &nDay) ; 

if ( repeat->months [month-1 ] == FALSE ) 

{ 

month++; 
continue; 

} 

// Is the date in range? 

day = normalizeDay (repeat-> day, month, year); 
IL_DateEncode (month, day, year, nDate); 
if (*nDate < repeat->sta rt Date ) 
{ 

month++; 
continue; 

} 

// Found valid date. Stop the loop. 

break; 

} 

*priorDate = *nDate; 
return SUCCESS; 

} 



// ///////////////////////////////////////////////////////////////////// 

static int nextMixedByPos ( ILTR_PREPEAT repeat, 

long IL_DIST *nDate, 
long IL_DIST *priorDate ) 



{ 



int nDay - 0, 

int nWeek = 0, 

int holdDay = 0, 

int holdWeek = 0, 

int month, day, year; 

int okToProcess; 



// Day of week (Sun-Sat) 

// Week of month (1-5) 

// Temporary day of week 

// Week of month (1-5) 

// Date fields 

// Process flag 



/ 



* Find first date in specified list of months, weeks, and 

* days. Start by computing the week number and day of week 

* for the starting date. 



7 



if (*priorDate == -1) 

• + nDate = repeat->st a rtDa te; 
else + nDate = *priorDate + 1; 



/ 



* This loop iterates until a date is found which meets 

* the month, week, and day specification. 
* * / 
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while {TRUE ) 
{ 

/* 

* . Is this month checked in the list? 

* If not, skip it and go on to the next month. 
* * J 

I L_Date Decode (*nDate, &month, &day, &year); 

i f ( repeat ->months [month-1 ] =- FALSE) 

{ 

month++; 

norma lizeDate ( &year, &month, &nWeek, SnDay) ; 
IL_DateEncode (month, 1, year, nDate); 
continue; 

} 

/ + 

+ Is this week checked in the list? 

* If not, skip it and go on to the next week. 
+ v 

holdWeek = IL_WeekInMonth (+nDate); 

/ + 

* Accept date if this is the last occurrence of 

* the day this month and LAST week has been specified. 
+ */ 

if ( repeat->weeks [holdWeek-1 ] == FALSE) 
{ 

okToProcess = 0; 

if (holdWeek == ILTR_WEEK_4TH } 

if ( repeat->weeks [ ILTR_WEEK_LAST-1 ] == TRUE) 
if (isLast (*nDate) ) 
okTo Process ++; 

// Accept the date? 

if ( ! okToProcess ) 
{ 

(*nDate)++; 
continue; 

} 

} 

/* 

* Is this day of week checked in the list? 

* If not, skip it and go on to the next day. 
+ +■ i 

holdDay = IL_DayOfWeek ( v nDate); 

if ( repeat ->days [holdDay-1 ] == FALSE) 

( 

(*nDate) ++; 
continue; 

} 

// Found a date. Stop the loop. 

break; 

} 

// Set prior date field and return successfully. 

*priorDate = *nDate; 
return SUCCESS; 



// ///////////////////////////////////////////////////////////////////// 

static int nextByPosAndClass ( ILTR_PREPEAT repeat, 

long IL_DIST *nDate, 
long IL_DIST *priorDate ) 



{ 



int nDay = 0; 

int nDays = 0; 

int nWeek = 0; 

int holdDay = 0; 

int holdWeek = 0; 

int month, day, year; 
long holdDate; 

int position; 



// Day of week (Sun-Sat) 

// Days in month (1-31) 

// Week of month (1-5) 

// Temporary day of week 

// Week of month (1-5) 

// Date fields 

/ / Encoded date 



Copyright ©1996 Puma Technology, Inc. All Rights Reserved. 



Rptnext.c 



Page 8 of 13 



int dayClass; 

position = repeat->day; 

if ((position < ILTR_P0S_1ST) || (position > I LTR_POS_LAST ) ) 
return ILERROR ( ILTR_ERR_REPEAT, ILTR_ERR_REPEAT) ; 

dayClass = repeat ->dayOf Week; 
if ( (dayClass != ILTR_ANY_DAY ) 

&& (dayClass != ILTR_ANY_WEEKDAY ) 

&& (dayClass != I LTR_ANY_WEEKEND_DAY ) ) 
return ILERROR { ILTR_ERR_REPEAT, ILTR_ERR_REPEAT) ; 

/* 

* Begin with start date on initial call. Use the prior date 

* field on subsequent calls. 
+ + / 

if (*priorDate == -1) 

holdDate = repeat->startDate; 
else holdDate = *priorDate; 

I L_Date Decode ( holdDate, & month, &day, Syear ) ; 

// Increment month or year on subsequent calls. 

if (*priorDate != -1) 

if ( repeat->type ILTR_MONTHLY_BY_POS_AND_CLASS) 

{ 

month += repeat->f requency; 

normalizeDate (&year, &month, SnWeek, &nDay); 

} 

else year += repeat->f requency; 

if ( repeat->type == ILTR_YEARLY_BY_POS_AND_CLASS ) 
month = repeat->month; 



* This loop computes the date of given repeat item for 

* the starting month and again for the succeeding month 

* IFF the first date precedes the prior date. 

* By definition, the loop can never iterate more than twice. 
* */ 

do 
{ 

if (position == I LTR_POS_LAST ) 
{ 

// g e t date and day of last day of month as starting point 

nDays = IL_DaysInMonth (month, year}; 
IL_DateEncode (month , nDays , year, nDate ) ; 
nDay = IL_DayOfWeek (*nDate); 
goBackward ( repeat, nDate, nDay) ; 

} 

else 
( 

// get date and day of first day of month as starting point 

IL_DateEncode (month, 1, year, nDate); 
nDay = IL_DayOfWeek (*nDate); 
goForward (repeat, nDate, nDay); 

} 

// Increment the month or year in case we iterate again. 

if ( repeat->type == ILTR_YEARLY_BY_POS_AND_CLASS ) 

year++ ; 
else month++; 

normalizeDate (&year, &month, &nWeek, inDay); 

} 

while (*nDate < repeat->sta rtDate ) ; 

*priorDate =* *nDate; 
return SUCCESS; 

} 



// ///////////////////////////////////////////////////////////////////// 

static int nextQuarterly ( ILTR_PREPEAT repeat, 

long IL_DIST *nDate, 

long IL_DIST *priorDate ) 

{ 



Copyright ©1996 Puma Technology, Inc. All Rights Reserved. 



Rptnext.c 



Page 9 of 13 



int nDay = 0; // Day of week (Sun-Sat) 

int nWeek = 0; // Week of month (1-5) 

int month, day, year; .// Date fields 

int tmpMonth, tmpDay, tmpYear; // Temp date fields 

long holdDate; // Encoded date 

/* 

* Compute next date having the specified day of month (1-31). 

* Decode start date on initial call. On subseguent calls, 

* use the prior date field. 
* v 

if ( + priorDate == -1) 

holdDate = repeat->startDate; 
else holdDate = + priorDate; 

// Compute first date of this quarter and decode 

IL_DateDecode (holdDate, &month, &day, &year } ; 
month =« 1 + (((month - 1) / 3) + 3); 
day = 1; 

IL_DateEncode (month, day, year, SholdDate); 
// Now decode it 

I L_Date Decode (holdDate, &month, &day, &year ) ; 

/* 

* Iterate until we have a date that exceeds the start date. 
*■ * 1 

if (*priorDate == -1) 
do 

{ 

IL_DateEncode (month, day, year, nDate); 

*nDate += repeat-> day - 1; // Compute actual date in quarter 

// Fudge for "last" day of quarter 

IL_DateDecode (*nDate, StmpMonth, &tmpDay, StmpYear); 
while (tmpMonth < month | | // Back up Jan into December 

tmpMonth > month+2) // ...others 

{ 

(*nDate) — ; 

IL_DateDecode (*nDate, &tmpMonth, &tmpDay, StmpYear); 

} 

month += 3; 

normalizeDate (Syear, imonth, &nWeek, &nDay) ; 
while (*nDate < repeat->s ta rt Da te ) ; 

// Increment month based on setting of frequency field. 

else 

{ 

month += 3; 

normalizeDate (&year, &month, &nWeek, &nDay) ; 
IL_DateEncode (month, day, year, nDate) ; 

*nDate += repeat-> day - 1; // Compute actual date in quarter 

// Fudge for "last" day of quarter 

IL_DateDecode (*nDate, StmpMonth, StmpDay, StmpYear); 
while (tmpMonth < month | I // Back up Jan into December 

tmpMonth > month+2) // ...others 

{ 

(*nDate) — ; 

IL_DateDecode (+nDate, &tmpMonth, StmpDay, &tmpYear); 

} 

*priorDate = *nDate; 
return SUCCESS; 



// ///////////////////////////////////////////////////////////////////// 

static int nextQuarterlyByPos ( ILTR_PREPEAT repeat, 

long IL_DIST *nDate, 
long IL DIST *priorDate ) 
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int holdDay = 0; // Temporary day of week 

int month, day, year; // Date fields 

long holdDate; // Encoded date 

/*--- 

* Begin with start date on initial call. Use the prior date 

* field on subsequent calls. 
* - + / 

if (*priorDate == -1) 

holdDate = repeat->startDate; 
else holdDate = *priorDate; 

// Compute first date of this quarter and encode 

I L_Date Decode (holdDate, & month, &day, &year ) ; 
month => 1 + (((month - 1) / 3) * 3); 
day = 1; 

// Make sure that desired date is in range 

if (*priorDate == -1) 
{ 

// Skip to desired week 

if (repeat-> weekOfMonth == ILTR_QUARTER WEEK LAST) 
{ 

int nTempMonth, nTempYear ; 

// g 0 to first week of next quarter 

nTempMonth = month + 3; 
nTempYear = year + 3; 

normalizeDate (SnTempYear, SnTempMonth, NULL, NULL); 
IL_DateEncode (nTempMonth, 1, nTempYear, &holdDate); 

// Back up to desired day 

holdDate — ; 

while ( IL_DayOfWeek (holdDate) != repeat-> dayOfWeek) 
holdDate — ; 

} 

else 
{ 

// Goto first day of the quarter 

I L_Date Encode (month, day, year, & holdDate ) ; 
while ( IL_DayOfWeek (holdDate) != repeat-> dayOfWeek) 
holdDate++; 

// Advance by specified number of weeks 

holdDate += 7 + (repeat-> weekOfMonth - 1); 

} 

// Only increment if outside range 

if (holdDate < repeat-> startDate) 
month += 3; 

} 

// Increment quarter 

else 

month += 3; 

// Fix values if needed 

normalizeDate (&year, Smonth, NULL, NULL); 

// Skip to desired week 

if (repeat-> weekOfMonth == ILTR QUARTER WEEK LAST) 
{ 

// Go to first week of next quarter 

month = month + 3; 

normalizeDate ( &year, &month, NULL, NULL) ; 
IL_DateEncode (month, 1, year, nDate) ; 

// Back up to desired day 

( +nDate ) — ; 

while ( IL_DayOfWeek (*nDate) != repeat-> dayOfWeek) 
(*nDate)— ; 

} 

else 
{ 

// Now find the first day of the quarter 
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IL_DateEncode {month, day, year, nDate); 
while ( IL_DayOfWeek ( *nDate) ! = repeat -> dayOfWeek) 
( + nDate)++; 

// Advance by specified number of weeks 

♦nDate 7 (repeat-> weekOfMonth - 1); 

) 

*priorDate = *nDate; 
return SUCCESS; 

} 



/* 

* Name: goBackward 

* Purpose: for MONTHLY/ YEARLY by POS AND CLASS, 

* adjust date from Last of month to desired day in month 

* Author: David Boothby, Copyright (c) IntelliLink, 1994 
+ 

static void goBackward { ILTR_PREPEAT repeat, 

long IL DIST *nDate, int nDay ) 

{ 

/* 

+ Tables of "subtracters" to get from date of Last day of month 
* to date of last weekday / weekend day of month 



static int weekday_subt racter [ 7 ] - 
{ // If Last day of the month is... 

// Sun Mon Tue Wed Tnu Fri Satf ff then subtract number in table 

2, 0, 0, 0, 0, 0, 1 // to reach last weekday 

I • 

/ 9 

static int weekend_subt racter { 7 ] = 
{ // If Last day of the month is... 

// Sun Mon Tue Wed Tnu Fri Satf if then subtract numDer in table 

°r 1» 2, 3, 4, 5, 0 // to reach last weekend day 

/ 9 

switch ( repeat->dayOfWeek ) 

case ILTR_ANY_DAY: // no adjustment necessary 

brea k; 
case ILTR_ANY_WEEKDAY: 

*nDate -= weekday_subtracter [nDay-1] ; 

break; 

case ILTR_ANY_WEEKEND_DAY: 

*nDate -= weekend_subt racter [nDay-1]; 
break ; 

} 

} 



/* 

* Name : go Forward 

* Purpose: for MONTHLY/ YEARLY by POS AND CLASS, 

* adjust date from First of month to desired day in month 

* Author: David Boothby, Copyright (c) IntelliLink, 1994 

* v 

static void goForward ( ILTR_PREPEAT repeat, 

long IL_DIST *nDate, int nDay } 



{ 



/* 

* Tables of "adders" to get from date of First day of month 

* to date of Nth weekday/weekendDay of the month. 
+ / 

static int weekday_adder [ 4 ] [7 ] = 

{ // If First day of the month is... 

// Sun Mon Tue Wed Th(J Fri Sat ^ f f then add number in table 

// to reach 1st weekday 

// to reach 2nd weekday 

//to reach 3rd weekday 

// to reach 4th weekday 

}; 

static int weekend adder[4][7] = 





Sun 


Mon 


Tue 


Wed 


Thu 


Fri 


1, 


0, 


0, 


0, 


0, 


0, 


2, 


2, 


1, 


1, 


1, 


1, 


3, 


3, 


3, 


2, 






4, 


4, 


4, 


4, 


3, 


3, 


5, 


5, 


5, 


5 
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// 
// 



If First day of the month is... 

Sun Mon Tue Wed Thu Fri Sat, // then add number in table 



0. 5, 4, 3, 2, 1, 

6, 6, 5, 4, 3, 2, 

7, 12, 11, 10, 9, 8, 
13, 13, 12, 11, 10, 9, 



0, 

8 



// to reach 1st weekend day 

// to reach 2nd weekend day 

// to reach 3rd weekend day 

// to reach 4th weekend day 



int stepsToTake » repeat->day - ILTR_P0S_1ST; 

switch { repeat->dayOfWeek) 
{ 

case ILTR_ANY_DAY: 

*nDate += stepsToTake; 

break; 

case ILTR_ANY_WEEKDAY: 

*nDate += weekday_adder [stepsToTake] [nDay-1] 
break; 

case ILTR_ANY_WEEKEND_DAY: 

*nDate += weekend_adder {stepsToTake] fnDay-1] 
break; 



* Name : isLast 

* Purpose: Check if date is last occurrence of day in given month 

* Input: Date 

* Return: TRUE if date is last occurrence, FALSE othewise 

* Author: 
+ 



Mike Blanchette, Copyright (c) IntelliLink, 1992 



static int isLast 
{ 

int nDay; 
int month, day, 
int holdDays; 
int holdDay; 
long holdDate; 



( long nDate ) 



year; 



/ 



// Day of week 

/ / Date components 

// Temporary number of days 

// Temporary day of week 

// Temporary date 



// Compute day of week and total number of days in month. 

I L_Date Decode ( nDate, &month, &day, &year ) ; 
holdDays = IL_DaysInMonth (month, year) ; 
nDay - IL_DayOfWeek (nDate); 

// Compute date of last occurrence of given day of week. 

IL_DateEncode (month, holdDays, year, SholdDate); 
holdDay = IL_DayOfWeek (holdDate); 
holdDate = (holdDay < nDay) ? 

(holdDate - 7 + (nDay - holdDay)) : 

(holdDate - (holdDay - nDay)); 



// Is it the last one? 

return (holdDate == nDate ? TRUE 



FALSE) ; 



/ + 

* Name : norma 1 i zeDate 

* Purpose: Normalize date fields after increment operation 

* Input: Pointers to year, month, week, dayOfWeek 

* Return : None 

+ Author: Mike Blanchette, Copyright (c) IntelliLink, 1992 
+ ________________ 

static void normalizeDate ( int IL_DIST *year, 

int IL~DIST *month, 

int IL_DIST *week, 

int IL DIST v dow ) 

{ 

// Normalize day of week and adjust week if necessary. 

if (dow != NULL && *dow > 7) 
{ 

if (week != NULL) 

*week += ((*dow - 1) / 7); 
Mow %- 7; 

*dow - *dow ? *dow : 7; 
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} 

// Normalize week of month and ad j ust month if necessary. 

if (week != NULL && *week > 5) 

{ 

if (month NULL) 

*month +=~ ((*week - 1) / 5); 
*week %- 5; 

*week = *week ? *week : 5; 

} 

// Normalize month and adjust year if necessary. 

if (month != NULL && *month > 12) 
{ 

if (year != NULL) 

♦year += ((*month - 1) / 12); 
*month %= 12; 

♦month = *month ? *month : 12; 

} 



/ + 

+ Name : normalize Day 

* Purpose: Normalize day field to max for specified month & year 

* Input: Values of day, month & year 

* Return: Correct day for specified month/year 

+ Author: Bill Berthoud Copyright (c) IntelliLink, 1993 

* V 

static int normalizeDay ( int day, 

int month, 
int year) 

{ 

int maxDays(12] = { 31, 28, 31, 30, 31, 30, 

31, 31, 30, 31, 30, 31 }; 

// Account for leap year 

if ((year % A == 0 && year % 100 != 0) || (year % 400 0)) 
maxDays[l] = 29; 

return (min (day, maxDays [ month - 1]}); 
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/* 

* Name: unfold. c 

* Part of: IntelliLink translation harness (ILTR library) 

* Contents: core logic for FANNING a repeating item into N simple instances 

ILItemHasInstancesInDateRange 

ILWUnfoldRepeat — higher-level entrypoint 

ILUnfoldRepeat -- lower- level entrypoint 

Adj ustDateRange 
ComputeEnoughDays 
Unfold 

DiscardExcess 
SetMaxFanout 

* Author: Copyright (c) IntelliLink, 1994-1996 
+■ 

v/ 

/* 

* NOTE: this is an "ILBASE" module, which means that it may be built into 

* a "base" DLL rather than being statically linked into every 

* translator. Please ensure that all non-static functions in this 

* module are declared with ILBASE xxxx macros, defined in ILTYPES H 

* / 

#include "iltr.h" 

static int Ad j ustDateRange 

{ ILTR_PREPEAT pRepeat, 
int nMaxItems, 
long Today, 

long IL_DIST *pStartDate, 
long IL_DIST *pStopDate ); 

static int ComputeEnoughDays 
( ILTR_PREPEAT pRepeat, 
long ItemCount, 
long IL_DIST *pDayCount ); 

static int Unfold 

( ILTR_PREPEAT pRepeat, 
int nMaxItems, 
long StartDate, 
long StopDate, 
ILUT_PBUFFER pFanBuf, 
int IL_DIST *pGoodCount, 
int IL_DIST *pGrossCount 

static int DiscardExcess 
( int nMaxItems, 
long Today, 
ILUT_PBUFFER pFanBuf, 

int IL_DIST *pGoodCount, // IN/OUT: # of unexcluded instances 

int IL_DIST *pGrossCount );// IN/OUT: # of instances 

stat ic int SetMaxFanout 
{ I LTR_PTRANSL tr, 

ILTR_PREPEAT pRepeat, 

ILTR_PFANOUT_MAXIMA pMaxima, // IN: V26 fanout limits 
int IL_DIST *pnMaxItems }; // OUT: computed limit for this pattern 



* Functions : 
+ 

+ 
+ 

+ 



// IN/OUT lower bound 
// IN/OUT upper bound 



// OUT: # of unexcluded instances generated 
);// OUT: # of instances ( excluded+unexcluded ) 



/* 

* ILItemHasInstancesInDateRange 

* Callers: EXPORT. C and IMPORT . C and TIFPUT.CPP DateRange checking 
+ Returns TRUE or FALSE or Error Code for Abnormal Error 

* + / 

int ILItemHasInstancesInDateRange // Check for instances in range 
( ILTR_PTRANSL tr, 

long IStartRange, // lower limit of date range 

long lEndRange, // upper limit of date range 

^ ILTR_PREPEAT pRepeat ) // Repeat structure (supplied) 

int rc; 

int GoodCount; 
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int GrossCount; 



/ 



Fan out just ONE instance of the pattern into a simple Date Array 
containing both excluded and un-excluded dates, in chronological order. 
Excluded dates are NEGATIVE in the Date Array. 



rc = ILTRUnfoldRepeat ( tr, pRepeat, 

ILTR_nDate, 
IStartRange, 
lEndRange, 
NULL, 

&ILTR_pTmpBuf 
SGoodCount , 
&GrossCount ) , 



if (rc != SUCCESS) 

return ILERROR (rc, rc); 



/ 



// max fanout 

// "Today" 

// Low end of fanning range 

/ / High end of fanning range 

// no maxima struct; we just want 1 

// buffer into which to fan 

// count of unexcluded dates 

// count of ALL dates 



/ / a bno rma 1 e r ro r 



else 

return (GoodCount > 0); 



} // ILItemHasInstancesInDateRange 



/* 

* Name: ILTRUnfoldRepeat 

* Callers: ILTR\ repeat . c\ ILRepeatltem 

* ILTIF2\tifsync . cpp\TI FSyncFanOut Recurrence Pattern 

* ILXNOW\evrepeat . c\EventDBFanEvent 

* This is the highest-level function in this module. It encapsulates the 

* Date Range and Max Count setup logic, plus the call to the 

* lower-level ILUnfoldRepeat function. 

* NOTE: pass in -1 for lFanningMinDate to have Date Range established 

* by this function rather than setting it up yourself. 



ILBASEFN_int ILTRUnfoldRepeat 
( ILTR_PTRANSL tr, 

ILTR_PREPEAT pRepeat, 

int nMaxItems, 

long lToday, 

long 1 FanningMinDate, 

long 1 FanningMaxDate, 

I LT R_ P FANOU T_MAX I MA pMaxima, 

ILUT_PBUFFER IL_DIST *ppFanBuf, 

int IL__DIST +pGoodCount, 

int IL_DIST + pGrossCount } 

{ 

int rc; 



// IN: pattern to unfold 

// IN: pre-V26 fanout limits 

// IN: today's date 

// IN: lower bound of Date Range 

// IN: upper bound of Date Range 

// IN: V26 fanout limits 

// IN/OUT: **buffer 

// IN/OUT: # of unexcluded instances 

// IN/OUT: # of instances 



/* 

* If we have a 'maxima' structure to refer to, and if running under a 

* new enough engine, IGNORE and OVERWRITE the value in nMaxItems. 

* , v 

if (pMaxima && ILTR_VERSION IS AT LEAST(26)) 
{ 

rc = SetMaxFanout (tr, pRepeat, pMaxima, SnMaxItems); 
if (rc != SUCCESS) 
return rc; 

} 

/* 

+ If not supplied by caller, set Date Range limits for FANNING. 

* Starting with version 25 of ILTR we keep the fanning limits 

* separate from general date range limits, because TIF has to 

* fiddle with the general limits sometimes. 

* v 

if (lFanningMinDate == -1) 
{ 

if (I LTR_VERSION_IS_AT_LEAST ( 25 ) ) 
{ 

lFanningMinDate = ILTR_1 FanningMinDate; 
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1 FanningMaxDate = ILTR_1 FanningMaxDa te; 

} 

else 
I 

lFanningMinDate = ILTR_1 Dat eRangeSt a rt ; // tr->nLoDate 

lFanningMaxDate = ILTR_1 Dat eRangeEnd; // tr->nHiDate 

} 

} 

// Enforce the FUTURE option too 

if ( (ILTR_nSchOpt == ILTR_RANGE_FUTURE ) 
&& (lFanningMinDate < lToday) ) 
lFanningMinDate = lToday; 

// Create reusable fanning buffer, if not already created 

// NOTE: the caller's "world" must free this buffer eventually 

if (*ppFanBuf NULL) 
{ 

IL_HANDLE h; 

♦ppFanBuf = ( ILUT_PBUFFER) IL_ALLOC (sizeof { ILUT_BUFFER) , h); 
if (*ppFanBuf == NULL) 
return ILTR_ERR_NOMEM; 

(*ppFanBuf ) ->hBuf ferHeader = h; 

rc » ILUT_InitBuf fer {*ppFanBuf, 0, 512, 20000); 
if (rc != SUCCESS) 

{ 

IL_FREE_AND_ZERO (h, +ppFanBuf) 
return ILERROR ( rc, ILTR_ERR_NOMEM) ; 

} 

} 

/* 

* Fan out the pattern into a simple Date Array containing both 

* excluded and un-excluded dates, in chronological order. 

* Excluded dates are NEGATIVE in the Date Array. 

+ + 1 

rc = ILUnfoldRepeat ( pRepeat, nMaxItems, lToday, 

1 FanningMinDate, 1 FanningMaxDate, 
*ppFanBuf, pGoodCount, pGrossCount ) ; 

return rc; 
} // ILTRUnfoldRepeat 



/ + 

* Name: ILUnfoldRepeat 

* This function unfolds a repeat pattern into an array of instance 

* dates. The array is constructed in a reusable buffer, managed 

* cooperatively by this function and its callers. 

* This function returns SUCCESS unless something goes wrong. 

* This "unfold" function is designed to produce good results for all cases, 

* including the following example: 

* Suppose user has Date Range set to go from 1 year in the past up to 
+ 2 years in the future, and suppose that the fanning limit for daily 

* appointments is 31. Then suppose he has a daily appointment called 

* "Lunch" that runs from Jan 1, 1900 through Dec 31, 2049. Intell i Link 1 s 

* previous fanning logic would create 31 "Lunch" instances starting a 

* year ago ... hence there will be NONE in the present or future. 

* The "unfold" algorithm puts as many fanned instances in the FUTURE as 

* possible {starting with TODAY) . For example, if today is 3/31/96, and 

* we're fanning a YEARLY April Fools item that runs from 1900 through 1999, 

* with a fanout maximum of 10, we cannot fit all 10 instances in the future, 

* so we end up generating instances for the ten years 1990-1999. But if the 

* recurrence pattern had no STOP date, we would generate instances for the 

* ten years 1996-2005. 

* If the current Date Range ends in the past, or starts in the future, 
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* the fanning logic will generate instances that fall as close to TODAY 

* as possible . 

* Author: David Boothby, Copyright (c) IntelliLink Corporation, 1996 

+ v 



ILBASEFN_int ILUnfoldRepeat 

( I LTR_PRE PEAT pRepeat, // 

int nMaxItems, // 

long Today, // 

long IDateRangeStart, // 

long IDateRangeEnd, // 

ILUT_PBUFFER pFanBuf, // 

int IL_DIST *pGoodCount, // 
int IL_DIST *pGrossCount ) // 

{ 

int rc; 

long StartDate = IDateRangeStart; 
long StopDate = IDateRangeEnd; 



IN: pattern to unfold 

IN: not to exceed this count (really!) 

IN: Today's date 

IN: date range lower bound 

IN: date range upper bound 

IN/OUT: ptr to header for reusable buffer 

OUT: ff of unexcluded instances generated 

OUT: ff of instances ( excluded+unexcluded ) 



// Make sure we've been asked to generate 1 or more instances 

if (nMaxItems < 1) 

return ILERROR (nMaxItems, I LTR_ERR_BAD_FANOUT_MAX ) ; 

// adjust date range "inward" to favor most useful instances 

// we never adjust either bound "outward" 

rc = AdjustDateRange (pRepeat, nMaxItems, Today, SStartDate, &StopDate); 
if (rc != SUCCESS) 
return rc; 

/ + 

* NOTE: there's a funny boundary condition for patterns with numDays > 1. 

* e.g. a weekly MONDAY appointment with numDays=3, 

* with startDate = TUESDAY June 1st will have its first occurrence 

* on MONDAY June 7th. 
+■ 

* Arguably this is correct, but also arguably the first occurrence should 

* should be TUESDAY June 2nd. There used to be code here to adjust the 

* pattern start date backward to try to find the earliest possible first 

* occurrence date for such cases. But that code introduced a bug. 

* Furthermore I now think it makes more sense to start a multi-day appt 

* of this sort on the designated day (Monday in this case) rather than 

* starting it in the midst of a "numDays" streak. 

* NOTE: the startDate mentioned here is the PATTERN startDate, not the 

* DateRange start date. When the DateRange start date falls in the middle 

* of a numDays streak we guarantee that the earliest possible mid-streak 
+ occurrence date is found. 

+ v 

// Generate ALL instances that fall within the adjusted bounds 

// NOTE: we typically generate MORE than 'nMaxItems* here 

rc = Unfold ( pRepeat, nMaxItems, StartDate, StopDate, pFanBuf, 

pGoodCount, pGrossCount ); 

// complain if the Unfold didn't work 

if (rc != SUCCESS} 
return rc; 

// if we generated too many instances, pare down the list & counts 

if (*pGoodCount > nMaxItems) 

rc = DiscardExcess (nMaxItems, Today, pFanBuf, pGoodCount, pGrossCount ) ; 

return rc; 
} // ILUnfoldRepeat 



/* 

* AdjustDateRange — only caller is ILUnfoldRepeat 

* Adjust date range that is used to bound the unfolding process, so that 

* we produce approximately the right number of instances, erring on the 

* side of generosity, and aiming to produce the most "useful" instances. 

* Always adjust "inward" — the lower bound may be raised, and the upper 
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* bound may be lowered. 



static int Adj ustDateRange 

( ILTR_PREPEAT pRepeat, 
int nMaxItems, 
long Today, 

long IL_DrST +pStartDate, // IN/OUT lower bound 
long IL_DIST *pStopDate ) // IN/ OUT upper bound 

( 

int rc; 

long ItemsDesired; 
long EnoughDays; 
long DaysInRange; 

// adjust inward if pattern itself is more tightly constrained 

// adjust start date upward if pattern starts later 

if (*pStartDate < pRepeat->startDate) 
*pStartDate = pRepeat->startDate; 

// adjust stop date downward if pattern stops sooner 

if { (pRepeat->stopDate !- -1) 

&& (+pStopDate ==0 || *pStopDate > pRepea t->stopDate ) ) 
*pStopDate = pRepeat->stopDate; 

// no further adjustments needed for NOREPEAT items 

if (pRepeat->type I LTR_N0RE PEAT ) 
return SUCCESS; 

// apply pragmatic constraints if DateRange has no sensible bounds 

if (*pStartDate == 0) 

IL_DateEncode{l, 1, 1950, pStartDate); // Jan 1, 1950 

if (*pStopDate == 0) 

IL_DateEncode{12, 31, 2049, pStopDate); // Dec 31, 2049 

// figure gross count wanted (unexcluded + excluded + fudge factor) 

ItemsDesired = (long) nMaxItems + (long) pRepeat->numExDates + 10L; 

/* 

+ Figure out how many days we would need to traverse to 
* generate that many instances. 

+ _ v 

rc = ComputeEnoughDays (pRepeat, ItemsDesired, &EnoughDays ) ; 
if (rc != SUCCESS } 
return rc; 

// how big a range do we actually have 

DaysInRange - (*pStopDate - ^pStartDate J + 1; 

// if current range is "none too wide", we have nothing more to do here' 

if (DaysInRange <- EnoughDays) 
return SUCCESS; 

// but if range is too wide, figure out how to tighten it up. 

// if whole range is in the future, just chopoff the high end 

if (*pStartDate >= Today) 

*pStopDate = *pStartDate + EnoughDays - 1; 

// if whole range is in the past, just chop off the low end 

else if (*pStopDate <= Today) 

*pStartDate = *pStopDate - (EnoughDays - 1); 

// if range straddles the present, may have top chop both ends 

else 

{ 

long FutureDaysInRange = {^pStopDate - Today) + 1; // including today 
long PastDaysNeeded = EnoughDays - FutureDaysInRange; 

// if we can put the entire range in the future, let it start TODAY 

if (PastDaysNeeded <= 0) 
{ 

*pStartDate = Today; 

*pStopDate = Today + EnoughDays - 1; 

} 

else 
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// adjusted range will straddle the present 

{ 

long IdealStartDate = Today - PastDaysNeeded; 

// chop some off the low end if there's any to spare 

if (*pStartDate < IdealStartDate) 
*pStartDate = IdealStartDate; 

/* 

* And chop some off the high end if necessary. Barring logic errors 
we know that this cannot commit the criminal act of EXTENDING the 

* stop date upward, because we verified way back when that the range 

* we're chopping is bigger than the range we want. 

* 

♦pStopDate = *pStartDate + EnoughDays - 1; 



return SUCCESS; 
} // AdjustDateRange 

/* 

* ComputeEnoughDays — only caller is AdjustDateRange 

* Figure out how many days we would need to traverse to generate the 

* desired ItemCount. Err on the generous side. 
+ 

+ / 

static int ComputeEnoughDays ( ILTR_PREPEAT pRepeat, 

long ItemCount, 
long IL_DIST *pDayCount ) 



{ 



long NumDays = (long) pRepeat->numDays; 
long Frequency = (long) pRepea t->f requency; 

long UnitSize; // days per unit (unit is week or month or ...) 
long Months = 1; // varies only for MIXED patterns 

long nMinDays = 0; // For certain patterns, want a minimum result 
int i; 

switch (pRepeat->type) 
{ 

case ILTR_DAILY: 

UnitSize = 1; // DayCount = (ItemCount * Frequency * 1) / NumDays; 
brea k; 

case ILTR_WEEKLY: 

UnitSize = 7; // DayCount = (ItemCount * Frequency * 7) / NumDays; 
break; 

case I LT R_MONT H LY_BY_ POS_AN D_C LASS : 
case I LTR_MONTHLY_BY_POS : 
case ILTR_MONTHLY: 

UnitSize = 31; // DayCount = (ItemCount * Frequency * 31 ) / NumDays; 
break; 



case ILTR_QUARTERLY: 

case I LT R_QUART E RL Y_B Y_ POS : 

UnitSize = 92; // DayCount = (ItemCount * Frequency * 92) / NumDays; 
break; 

case ILTR_YEARLY_BY_POS_AND_CLASS: 
case ILTR_YEARLY_BY_POS: 
case ILTR_YEARLY: 

UnitSize = 366; // DayCount = { ItemCount* Frequency * 366) / NumDays; 
break; 



case ILTR_WEEKLY_DAYS: 
UnitSize = 7; 

// Compute number of days selected per week 

NumDays = 0; 

for (i=0; i < 7; i++) 

if (pRepeat->days [ i J ) NumDays++; 
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break; // DayCount = (ItemCount * Frequency * 1 ) / NumDays; 

case ILTR_MIXED_BY_POS: 
case ILTR_MIXED: 

Frequency = 1; // no other frequencies allowed for mixed patterns 
UnitSize = 366; 
Months ~= 0; 

// Since MIXED is non-regular, provide a minimum of 1 year 

nMinDays = 366; 

for (i=0; i < 12; i + +) 

if (pRepeat->months ( i ] ) Months++; 

if (pRepeat->type == ILTR_MIXED) 

NumDays =1; // DayCount = { ItemCount * 366) / Months; 
else ' 

{ 

// For MIXED_BY_POS count selected weeks 

long NumWeeks - { long ) ( pRepeat->weeks [0] 

+ pRepeat->weeks [ 1 ] 
+ pRepeat->weeks [2 3 ); 

// Be conservative; count 4th & LAST weeks as a single week 

NumWeeks += (long) (pRepeat->weeks [ 3] I pRepeat->weeks [ 4 ] ) ; 

// count days selected per week 

NumDays = 0; 

for (i=0; i < 7; i++) 

if ( pRepeat->days [ i ] ) NumDays++; 

// finally compute days per selected month 

NumDays * = NumWeeks; 

// DayCount = (ItemCount * 366) / (NumDays * Months); 

} 

break; 

case I LTR_NORE PEAT : 
default : 

return ILERROR ( (int) pRepeat->type, ILTR_ERR_INTERNAL) ; 

} 

if (NumDays ==0 | | Months == 0} 

return ILERROR (0, ILTR_ERR_R£PEAT ) ; 

*pDayCount = (ItemCount * Frequency * UnitSize) / (NumDays * Months); 

// Make sure the requi red mimumum is returned 

*pDayCount = max ( *pDayCount, nMinDays ) ; 

return SUCCESS; 

} // ComputeEnoughDays 



* Unfold — only caller is ILUnf oldRepeat 
+ 

* Generate ALL instances that fall within the adjusted bounds. 

* Pay no attention to the start & stop dates in the ILTR_REPEAT structure; 

* use the Start Date and StopDate parameters passed in to this function. 

* */ 

static int Unfold 

{ I LTR_PRE PEAT pRepeat, 
int nMaxItems, 
long StartDate, 
long StopDate, 
ILUT_PBUFFER pFanBuf, 

int IL_DIST *pGoodCount, // OUT: # of unexcluded instances generated 
int IL_DIST *pGrossCount ) // OUT: # of instances ( excluded+unexcluded ) 

{ 

int rc; 
int i, j; 

long IL_DIST *DateArray; 
int FullCount = 0; 
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int UnexcludedCount - 0; 

long lPriorDate = -1; 

long IDate - pRepeat->startDate; 

// we intend for the limiting factor to be the Date Bounds, so set 

// max count generously high. 

int GrossLimit "= nMaxItems + (int} pRepeat->numExDates + 200; 

rc = ILUT_GetBuf fer (pFanBuf, (long) (GrossLimit * si zeof ( long ) ) ) ; 

if (rc != SUCCESS) 

return ILERROR (rc, ILTR_ERR_NOMEM ) ; 

DateArray = (long IL_DIST *) pFanBuf->pBuf fer; 

/* 

* Fill up Date Array by unfolding the repeat pattern into it. 

* Count all instances generated by pattern, and keep a separate 

* count of all un-excluded instances. 

* + / 

while (FullCount < GrossLimit) 
{ 

rc = ILRepeatNextDate (pRepeat, &lDate, SlPriorDate} ; 
if (rc != SUCCESS) 

return ILERROR (rc, ILTR_ERR_INTERNAL) ; 

// Iterate for the specified number of consecutive days. 

for (i - 0; i < pRepeat->numDays; lDate++) 

{ 

if (IDate < StartDate) 
continue; 

// stop fanning if stop date has been exceeded. 

if (IDate > StopDate) 

goto FINISHED_FANNING; 

// store and count new date -- assume it's not excluded 

DateArray [ FullCount++] = IDate; 
UnexcludedCount++ ; 

// Look for this date in the exclusion list. 

for ( j - 0; j < pRepeat->numEx Dates; j + + ) 
{ 

if (IDate == pRepeat->exDates [ j ] ) 
{ 

// date is excluded — negate date & adjust count 

DateArray [ FullCount-1 ] = -IDate; 

Unexcl udedCount--; 

break; 

} 

} 

if (FullCount >= GrossLimit) 
goto FINISHED_FANNING; 

} 

// don't do it again if pattern is NOREPEAT 

if (pRepeat->type == ILTR_NOREPEAT ) 
break; 

} // while (FullCount < GrossLimit) 



FINISHED_FANNING : 
// 

// pass back counts 

♦pGrossCount = Ful 1 Count ; 
*pGoodCount = UnexcludedCount; 

return SUCCESS; 

} // Unfold 



/ + 

* DiscardExcess — only caller is ILUnf oldRepeat 
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This function is only called when the 'Unfold* routine generates more 
un-excluded instances than we want. This function decides which ones 
to discard (either from low end or high end), does the DISCARD operation, 
and adjusts the counts accordingly. 



static int DiscardExcess 
( int nMaxItems, 
long Today, 
ILUT_PBU FFER pFanBuf, 
int IL_DIST *pGoodCount, 
int IL DIST *pGrossCount 



{ 



) 



// IN/ OUT: H 
// IN/OUT: # 



int Excess = *pGoodCount - nMaxItems; 
long IL_DIST +DateArray = (long IL_DIST 
int Goodltems = 0; 
int NewFloor; 
int i ; 



of unexcluded instances 
of instances 



) pFanBuf->pBuf f er ; 



// count un-excluded items that are in the past 

// but don't count more than we need to... 

for (i=0; i < *pGrossCount; i++) 
{ 

// once we reach TODAY, look no further 

if ( DateArrayt i ] >= Today) 
break; 



else if (DateArray[i] > 0) 
{ 

/ / make NewFloor point to item after the one we count here 

NewFloor = i+1; 
GoodItems++; 

if (Goodltems == Excess) 
break; 

> 

} 



// if we found any low-end items to chop off, shuffle & chop from below 

if (Goodltems > 0) 
{ 

int Ceiling = *pGrossCount - NewFloor; 
int GoodltemsShuf f led = 0; 



for {i=0 ;i < Ceiling; i++) 
{ 

DateAr ray [ i ] = DateArray [NewFloor+i ] ; 

if (DateArrayU) > 0) 

{ 

GoodltemsShuf fled++; 

if (GoodltemsShuf fled nMaxItems ) 

{ 

II we have shuffled enough items, we're done!! 

+ pGoodCount = nMaxItems; 

* pGrossCount = i+1; // Date Array [0..i] 

return SUCCESS; 

} 

) 



return ILERROR (i, ILTR_ERR_INTERNAL) ; // should never get here 
} // if (Goodltems > 0) 



// nothing chopped off low end. All chopping must be from high end. 

Goodltems = 0; 

for (i = *pGrossCount-l ; i >= 0; i — ) 
{ 

if ( DateArray[ i ) > 0) 
{ 

/ / count good items that we chop, until we ' ve chopped enough 

Goodltems++; 

if {Goodltems == Excess) 
{ 

*pGoodCount = nMaxItems; 
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*pGrossCount = i ; 
return SUCCESS; 



// Date Array [0. . i-1] 



return ILERROR- ( i , ILTR_ERR_INTERNAL) ; // should never get here 
} // DiscardExcess 



/* 

* SetMaxFanout — called by ILTRUnfoldRepeat 

* Pick "base" max factor from the maxima structure passed in, then 

* multiply by NumDays if the max factor is NEGATIVE . 



static int SetMaxFanout 
( ILTR_PTRANSL tr, 

ILTR_PREPEAT pRepeat," 

ILTR_PFANOUT_MAXIMA pMaxima, // IN: V26 fanout limits 

int IL_DIST *pnMaxItems ) // OUT: computed limit for this pattern 

{ 

int max; 
int i; 

int NumDays = (int) pRepeat->numDays; 

switch ( pRepeat->type } 
{ 

case ILTR_DAILY: max = pMaxima->nDailyMaxFanout; break; 

case ILTR_WEEKLY_DAYS: 

// Compute number of days selected per week 

NumDays = 0; 
for (i=0; i < 1; 

if ( pRepeat->days [ i ] } NumDays++; 

// fall through to next case... 

case ILTR_WEEKLY : max = pMaxima->nWeeklyMaxFanout; break; 

case ILTR_MONTHLY_BY_POS_AND_CLASS: 

case ILTR_MONTHLY_BY_POS: 

case I LTR_MONTHLY : max = pMaxima->nMonthlyMaxFanout; break; 

case ILTRJ2UARTERLY_BY_P0S: 

case ILTR_QUARTERLY: max = pMaxima->nQuarterlyMaxFanout; break; 

case ILTR_YEARLY_BY_POS_AND_CLASS: 
case ILTR_YEARLY_BY_POS: 

case ILTR_YEARLY: max - pMaxima->nYearlyMaxFanout; break; 

case ILTR_MIXED_BY_POS: // we could get really fancy here!! 

case ILTR_MIXED: 
case I LTR_NOREPEAT : 

default: max = pMaxima->nOtherMaxFanout; break; 

} 



if (max < 0) 

max *= -NumDays; 

*pnMaxItems = max; 
return SUCCESS; 

} // SetMaxFanout 
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/ 



Name: ILGetRepeat 

Purpose: Retrieve repeating item from intermediate file 

Input: Pointers to translation and repeating structures 

Return: SUCCESS or error code 

Author: Mike Blanchette, Copyright (c) IntelliLink, 1992 



/*■ 



NOTE: this is an "ILBASE" module, which means that it may be built into 

* a "base" DLL rather than being statically linked into every 

* translator. Please ensure that all non-static functions in this 

* module are declared with ILBASE_xxxx macros, defined in ILTYPES . H 

* v 

ffdefine MSC 

^include "iltr.h" 

ILBASEFN_int ILGetRepeat ( I LTR_PTRANSL tr, 

ILTR_PREPEAT repeat ) 

{ 

int rc; // Return code 

int memSize; // Memory size 

long tempLen; // Temporary field length 

char szRptBuf [ sizeof ( ILTR_REPEAT ) +2 ] ; 

/ + 

* PROLOGUE: Special rules apply to the format of repeating 

* items in the intermediate file. The repeating item fields 

* are hidden from the user and do not appear in the field map. 
+ These fields have pre-speci f ied names which are purely 

* internal to the engine. When a repeating item is placed 

* in the intermediate file, two hidden fields are automatically 

* attached to the intermediate record: one field holding the 

* full contents of the I LTR_REPEAT structure and another 

* holding any exclusion dates. Unlike data fields, 

* these "meta" fields are stored in binary format and retrieved 

* exclusively by this routine. 
+ + / 

// Clear repeating structure. 

IL_MEMSET (repeat, '\0', sizeof ( ILTR_REPEAT } } ; 

/* 

* Retrieve the BASIC repeating field data to determine if this is a 

* repeating item. 

* v 

IL_SYNC_MEM ( I LTR_rec . handle, ILTR_rec.buf fer) ; 

/* 

* OK, this is gross. If the source translator uses long pointers 
+ and the target uses short, provide a buffer big enough to hold 

* the full repeat field, which contains a pointer value. Then, copy 

* only the information we are interested in into the actual repeat 

* structure. The ILTR_REPEAT structure contains a dummy trailing 

* value which provides the necessary slack for the converse case. 
* */ 

tempLen = sizeof (szRptBuf); 

rc = ILTRGetEield (tr, ILTR_REP_BASIC, szRptBuf, StempLen); 
if (rc != SUCCESS) 

return ILTR_ERR_NOFLD; 

IL_MEMMOVE ( repeat, szRptBuf, 

(size_t) (min (tempLen, sizeof ( ILTR_REPEAT) - 2)) ); 

// Clear pointers and handles. 

repeat->exDates = NULL; 
repeat->hExDates = I L_NULL_HAN DLE ; 

// Single item with no repeating fields. 

if (tempLen =- 0) 
{ 

repeat->type = ILTR_NOREPEAT; 
repeat->f requency = 1; 
repeat->numDays = 1; 
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return SUCCESS; 

> 

/*-- — 

* Are there any exclusion dates with this repeating item? 

* If so, allocate dynamic memory to store them. 

*- — */ 

if ( repeat->numExDates == 0) 

return SUCCESS; // No exclusion dates. 

else 

{ 

// Allocate memory for entire exclusion list. 

memSize = sizeof (long) * repeat->numExDates; 
IL_ALLOC_MEM (memSize, repeat->hExDates , repeat->exDates ) ; 

// Memory allocation error. 

if ( repeat->exDates == NULL) 
return I LTR_ERR_NOMEM; 

// Retrieve all exclusion dates from intermediate file. 

IL_SYNC_MEM ( ILTR_rec . handle, ILTR_rec.buf fer) ; 
tempLen = repeat->numExDates * sizeof (long); 

rc = ILTRGetField (tr, I LT R_R E P_X DAT E , repeat->exDates, &tempLen); 
if (rc != SUCCESS) 

return I LT R_E R R_N 0 FL D ; 

// Return indication that we found a repeating item. 

return SUCCESS; 

} 

} 
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^include "iltr.h" 

/* 

* Name: ILPutRepeat 

+ Purpose: Place repeating item into intermediate file 

* Input: Pointers to structures, start field name, stop field name 

* Return: SUCCESS or error code 

* Author: Mike Blanchette, Copyright (c) IntelliLink, 1992 

* v 

int IL_DECL ILPutRepeat ( ILTR_PTRANSL tr, 

ILTR_PREPEAT repeat, 
IL_PSTR startField, 
IL_PSTR stopField ) 

{ 

int rc; // Return code 



PROLOGUE: Special rules apply to the format of repeating 

items in the intermediate file. The repeating item fields 

are hidden from the user and do not appear in the field map. 

These fields have pre-speci f ied names which are purely 

internal to the engine. When a repeating item is placed 

in the intermediate file, two hidden fields are automatically 

attached to the intermediate record: one field holding the 

full contents of the ILTR_REPEAT structure and another 

holding any exclusion dates. Unlike data fields, 

these "meta" fields are stored in binary format and retrieved 

exclusively by routine ILGetRepeat. 
*/ 



// Make sure that this is a legitimate repeating item. 

if ( repeat->type == ILTR_NOREPEAT && repeat->numDays == 1) 
return SUCCESS; 

/* 

* Move start and stop date field names into REPEAT structure 

* before writing to intermediate file. 
* */ 

IL_STRCPY ( repeat->startField, startField); 
IL_STRCPY ( repeat->stopField, stopField); 

/* 

* Place the full contents of the REPEAT structure as a binary 

* field in the intermediate file (ILIF or TIF) . 

* This is NOT a 'special fanning adjustment' situation. 

* Don't do character-mapping and don't feed data to filters mechanism. 
* */ 

rc = ILTRPut Field ( tr, ILTR_R£P_BASIC, {IL_PSTR) repeat, 

(long) sizeof ( ILTR_REPEAT ) , FALSE, FALSE, FALSE ); 

if (rc != SUCCESS) 

return ILTR_ERR_NOFLD; 

// Write out any exclusion dates to intermediate file {ILIF or TIF). 

i f ( repeat ->numEx Dates ) 

{ 

/* 

* Put the exclusion list into the intermediate file (ILIF or TIF). 

* This is NOT a 'special fanning adjustment' situation. 

* Don't do character-mapping and don't feed data to filters mechanism. 
+ / 

rc = ILTRPutField ( tr, I LT R_RE P_X DAT E , (IL_PSTR) repeat->exDates, 

(long) repeat->numExDates * sizeof ( long ) , 
FALSE, FALSE, FALSE ); 

if (rc != SUCCESS) 

return ILTR_ERR_NOFLD; 

> 



// Return without error. 

return SUCCESS; 
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/ 



* 
* 



Name: EXPORT . C 

Part of: IntelliLink Translation Harness (ILTR) 

Purpose: Contains top-level "driver" entrypoint, ILExport, for export 
of record-oriented data. 



* Functions: 
* 



* 

* 
★ 
+ 
* 
+ 
* 
+ 
+ 
* 
* 
+ 

* 

* 
* 
* 
* 
* 
* 
* 
* 

* 
* 



ILExport 

ExportBegin 

Exportlnitl 

ExportInit2 

ExportWhile 

ExportApply Filters 

ExportCheckApptDate 

ExportApplyUser Filter 

Export AddLogEntry 

ExportEnd 

ExportRecord 

While Exporting under ILWIN.EXE, ILWIN\xlatew.c\LoadTranslator sets 
ILTR_pDriver to point to ILExport. Then ILX_V3\dlgprog . c\ILX_DlgProgress 
calls (*ILTR_pDriver) repeatedly. 

(NOTE: Message loop is in ILWIN\xlatew. c\LoadTranslator . ) 

While Exporting under Windows ILX, ILX_V3\xlate . c\doTranslate calls 
loadxltr.c\ILX_LoadTranslator, which sets ILTR_pDriver to point to ILExport 
Then ILX_V3\dlgprog.c\ILX_DlgProgress calls ( *ILTR_pDriver ) repeatedly. 
(NOTE: Message loop is in ILX_LoadTranslator . ) 

While Exporting on Macintosh, ILX_V3\xlate . c\doTranslate 
calls ILX_V3\macdrive . cpp\ILX_LoadTranslator, which 

calls ILTR\macstub.c\CallCodeResource for f unction=ILX_CALL_EXPORT, which 
calls ILTR\macstub.c\RunXlator with pXlator=&ILExport . Then RunXlator 
calls *pXlator repeatedly. 

NOTE: this module is force-linked into every record-oriented translator 



* Input: Pointer to translator record 

* Return: SUCCESS, FAILURE, or error code 

* Author: Mike Blanchette, Copyright (c) IntelliLink, 1992 

* v 

// If using MFC with MSVC 4 . 1 we need to call Af xGetlnstanceHandle 
#ifdef ILMFC41 

# include "af xwin . h" 
#endif // ILMFC41 

#include "ilxapi.h" // Includes ALL common headers 

// for now WP stuff is only on the MAC 
#ifdef ILMAC 

#include "iltrwp.h" 
#endif 

// Global variables 

IL_HINST hXlatorlnst; // Translator DLL instance 



// — 


local functions 












static 


int 


ExportBegin 


(ILTR 


PTRANSL 


tr) 


• 




static 


int 


Exportlnitl 


(ILTR 


PTRANSL 


tr) 


* 
9 




static 


int 


ExportInit2 


(ILTR 


PTRANSL 


tr) 


m 

9 




static 


int 


ExportWhile 


(ILTR 


PTRANSL 


tr) 


m 
§ 




static 


int 


ExportApplyFi Iters 


(ILTR~ 


PTRANSL 


tr, 


int 


nRc ) ; 


static 


int 


ExportCheckApptDate 


(ILTR 


PTRANSL 


tr, 


int 


nRc) ; 


static 


int 


ExportApplyUser Filter 


(ILTR - 


PTRANSL 


tr, 


int 


nRc) ; 


static 


int 


Export AddLogEntry 


(ILTR 


PTRANSL 


tr) 


• 




static 


int 


ExportEnd 


(ILTR 


PTRANSL 


tr) 


9 




static 


int 


ExportRecord 


(ILTR 


PTRANSL 


tr) 


* 
9 





/* 

* Windows DLL initiator function (DllMain or LibMain) 



// If using MFC and MSVC 4 . 1 we can't use either of these 
#ifndef ILMFC41 
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ftifdef ilwin 
#ifdef WIN32 

// DLL initiator function for WIN32 



BOOL APIENTRY DllMain ( HANDLE hModule, 

DWORD ul_reason_for_call, 
LPVOID IpReserved ) 

( 

// Capture the instance handle for later use 

if (ul_reason_for_call == DLL_PROCESS_ATTACH) 

hXlatorlnst = (IL_HINST) hModule; 
return TRUE; 

} 

#else 

// DLL initiator function for WIN16 

int FAR PASCAL LibMain ( HANDLE hlnstance, 

WORD wDataSeg, 
WORD wHeapSize, 
LPSTR IpszCmdLine ) 

{ 

// Capture the instance handle for later use 

hXlatorlnst = hlnstance; 
if (wHeapSize > 0) 
UnlockData (0) ; 
return 1; 

) 

#endif // WIN32 
#endif // ILWIN 
#endif // ILMFC41 



/* 

* Name: ILExport 

* 

int IL_DECL EXP ILExport (ILTR PTRANSL tr) 
{ 

int nRc; 

// If no ddlMain was called we need an instance handle 
#ifdef ILMFC41 

hXlatorlnst = AfxGetlnstanceHandle ( ) ; 
#endif // ILMFC41 

/* 

* Word Processing sections use a different version of ILExport. 

* If this is a WP translation, then call ILExportWP. 

* * 
#ifdef ILMAC 

if ( ILTR_nFunction ILTB_SEC MEMO) 
{ 

nRc = ILExportWP (tr) ; 
return (nRc) ; 

I 

#endif 

switch (ILTR_nProcessStage) 
{ 

// Initialize translator. 

case ILTR_BEGIN: 

nRc = ExportBegin (tr); 
if. (nRc == SUCCESS) 

nRc = ILProcessMessages (tr); 
if (nRc == SUCCESS) 

ILTR_nProcessStage = ILTR_WHILE; 
return nRc; 

// Export a record 

case ILTR_WHILE: 

nRc = ExportWhile (tr); 
if (nRc == SUCCESS) 

nRc = ILProcessMessages (tr); 
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else if (nRc == ILTR_EOF) 
( 

ILTR_nProcessStage = ILTR_END; 
nRc = ILProcessMessages (tr) ; 

} 

return nRc; 

// Shut down translator 

case ILTR_END: 

nRc = ExportEnd (tr); 
if (nRc == SUCCESS) 

nRc - ILProcessMessages (tr); 
return nRc; 

default : 

return ILERROR ( ILTR_nProcessStage, ILTR ERR UNKNOWN); 
) ~ ~ 

} // ILExport 

/* 

* Name: ExportBegin (called from ILExport) 
* 

* This function's behavior, in conjunction with the behavior of "dlgprog", 

* implies the following basic cleanup rules for translator writers: 

* (1) if your INIT returns an error, it must clean up any 

* allocated resources before doing so. 
* 

* (2) if your INIT returns SUCCESS, we guarantee that your END 

* routine will be called, so you can make your END routine 

* responsible for cleaning up any resources allocated by INIT. 

* (3) But for historical reasons there is one more caveat: 

If your BEGIN function returns I LTR_ERR_NODDE then before doing 

* so it must clean up any resources allocated by INIT. 
* 

When you return ILTR_ERR_NODDE, ILX_V3\dlgprog . cULXJUgProgress 

* then tries to LAUNCH the source app, and if that succeeds then 

* your INIT and BEGIN functions will be called again. 
* 

* (4) Another peculiar case is ILTR_ERR_WAIT. But it is handled 

* differently. If your BEGIN return I LT R_E RR_W A I T then it will 

* be called again, but in this case your INIT will NOT be called 

* again. 



static int ExportBegin ( ILTR_PTRANSL tr) 
{ 

int nRc; 

/ / Do some initializations 

if ( ILTR_bExpInitialized == FALSE) 
{ 

nRc = Exportlnitl (tr) ; 
if (nRc != SUCCESS) 
return nRc; 

ILTR_bExpInitialized = TRUE; 
ILTR_bInitDone = FALSE; 

ILTRjDMustCleanUpBeforeQuitting = FALSE; 

} 



// Do app-specific initializations and some more initializations 

if (ILTR_bInitDone =- FALSE) 
{ 

// Call app-specific initialization function 

nRc = ILIniTranslator (tr, &ILTR_appData) ; 
if (nRc != SUCCESS) 

return nRc; // Possibly ILTR_ERR_WAIT 

/* 

* Beyond this point we must always do cleanup, whether job 
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* runs to completion, or fails prematurely, or is cancelled by 

* the user. Note that ILX\DLGPROG. C checks the ' MustCleanUp * flag. 

* + / 

ILTR_bMustCleanUpBeforeQuitting = TRUE; 

// do some more initializations 

nRc = ExportInit2 (tr); 
if (nRc != SUCCESS) 
return nRc; 

/* 

* Set flag to denote that INIT is done. 

* But beware of NODDE special case below! 



ILTR_bInitDone = TRUE; 

) 



if (ILTR_cbBegin ! = NULL) 
{ 

nRc = ( *ILTR_cbBegin) (tr, &ILTR_appData) ; 

if (nRc != SUCCESS) 

{ 

// Special case for NODDE: force INIT to be called again!! 

if (nRc == ILTR_ERR_NODDE) 
ILTR_bInitDone = FALSE; 

return nRc; 

} 

} 



// Set total record count in progress bar control. 

ILStatusExport (tr, ILTR_nRecords ) ; 

// Write out record in log file. 

if (ILTR_log) 
{ 

int resnum; 

if ( ILTR_nSynchronize) 
{ 

if (ILTR_phase == ILTR_PHASE10) 
resnum = ILTR_MSG_INPUT_1ST; 
else 

resnum = ILTR_MSG_INPUT 2ND; 

} 

else 
{ 

if (ILTR_phase == ILTR_PHASE10) 

resnum = ILTR_MSG_REATAR; 
else 

resnum = ILTR_MSG_REASRC; 

} 

IL_SYNC_MEM ( ILTR_hRes . hNdx , I LTR_hRes . pNdx ) ; 

nRc = ILAppendLog (ILTR_hLog, ILTR_hRes, resnum, NULL, NULL) ; 
if (nRc != SUCCESS) 

return ILERROR (nRc, ILTR ERR LOGFILE); 



// Get type of DATE field. 

if (ILTR_nFunction ILTR^APPT && ILTR_map . ApptDate != -1) 

unsigned long lAttrib; 

char szFldName [ILTR_MAX_FLDNAME] ; 

ILFldName (tr, ILTR_map. ApptDate, szFldName, ILTR_MAX_FLDNAME) ; 
ILFldType (tr, szFldName, &ILTR cDateType, SlAttrib) ; 

} 

return SUCCESS; 
} // ExportBegin 
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* Name: Exportlnitl (called from ExportBegin) 
* 

static mt Exportlnitl ( ILTR_PTRANSL tr) 
{ 

int nRc; 

char szMsgTextjMAX_MSG) ; // Display text 

// set signature for Heap Logging {if enabled) 

ILUT_MemSig ( ILTR_szSrcTrans ) ; 

// Signal start of import/export operation to progress window 

ILStatusBegin (tr); 

// Show Please Wait message. 

ILSTMakeString ( &ILTR_hRes , ILTR_MSG_WAIT, szMsgText, MAX MSG) ; 
ILSetProgressText (tr, szMsgText) ; ~ 

// Clear variables and set default line terminator string. 

ILTR_lEarliestDate = OL; 
ILTR_lLatestDate = OL; 
ILTR_recNum = 0; 

IL_STRCPY (ILTR_szLineTerm, I LT R_DE F AULT JT E RM ) ; 
ILTR_appData = NULL; 

// Set ILTIME global default date and time format 

IL_InitStdDateFormat (); 
IL_InitStdTimeFormat (); 

// set iltr date and time format 

IL_InitDateFormat (); 
IL_InitTimeFormat {); 

// Wnen schedule Range is FUTURE, set low date to today, 

if (ILTR_nFunction == ILTR_APPT && ILTR_nSchOpt ILTR RANGE FUTURE) 
ILTR_lEarliestDate = ILTR_nDate; 

#ifdef ILWIN 

// Make environment ID available as a window property 

SetProp (ILTR_hParentWin, ILTR_ENV_PROP, 
(IL_HANDLE) ILTR eEnvironment) ; 

#endif 

if ( I LTR_pTmpBu f -= NULL) 
{ 

// initialize reusable buffer ILTR_pTmpBuf 

I L_ALLOC_MEM (sizeof ( ILUT_BUFFER) , ILTR_hTmpBuf , ILTR pTmpBuf ) ; 
if (ILTR_pTmpBuf == NULL) ~ 
return ILTR_ERR_NOMEM; 

nRc - ILUT_InitBuffer ( ILTR_pTmpBuf , 0, 512, ILTR MAX FIELDLENGTH+1 ) ; 
if (nRc != SUCCESS) 

return ILTR_ERR_NOMEM; 

} 

// if d 0 i n g an iLIF-based job, set up memory for ILIF to use 

if (ILTR_phase == ILTR_PHASE ILX V3 MODE) 
{ ~ " 

// Allocate "play area" for ILIF to use 

IL_ALLOC_MEM (sizeof ( ILI F_GL0BALS ) , 

ILTR_hILIF_Globals, ILTR_pILIF Globals) ; 
if (ILTR_pILIF_Globals == NULL) 
return ILTR_ERR_NOMEM; 

/ / Zero play area 

IL_MEMSET (ILTR_pILIF Globals, 0, sizeof { ILIF GLOBALS )) ; 
} " ~ 

return SUCCESS; 
} // Exportlnitl 

/* 

* Name: ExportInit2 (called from ExportBegin) 

*/ 

static mt ExportInit2 (ILTR PTRANSL tr) 
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int nRc; 

int numSections = 1; // Number of sections in ILIF 

int numFields; // Number of top-level fields 

char szSection[MAX_SECNAME_SIZE] ; // Section name 

/. 

* Ensure that the GET callback routine has been registered. 

* Otherwise return with error indication. 

v 

if (ILTR_cbGet NULL) 

return I LTR_ERR_NOGETC B ; 

// Init all field and char mappings (must do before ILTIFReopenFile) 

nRc = ILSetupTables (tr); 
if (nRc) 

return nRc; 

if (ILTR_phase ILTR_PHASE_ILX_V3_M0DE) 
{ 

// Initialize Intermediate File (ILIF) subsystem. 

nRc = ILIFInit ( ILIF_ACC_SINGLE_FILE, 

ILTR_szWorkFile, 

IL_ATTR_WRITE, 

ILTR_NOT_USED, 

(int IL_DIST *) &numSections ); 
if (nRc != SUCCESS) 

// ERROR - could not initialize ILIF 

return ILERROR (nRc, ILTR_ERR NOIF) ; 

} 

else 
( 

// ILX_V4: wake up TIF 

nRc = ILTR_ILTI FReopenFi le (tr); 
if (nRc != SUCCESS) 
return nRc; 

} 

1/ Allocate memory for field buffer of default size. 

ILTR_field. width = MAX_FIELD_LEN; 
IL_ALLOC_MEM ( ILTR_field . width, 

ILTR_field. handle, 

ILTR_field. buffer) ; 
if ( ILTR_f ield. buffer == NULL) 
return ILTR_ERR_NOMEM; 

// Filters not currently supported on the MAC 

#ifndef ILMAC 

// Is a filter active? 

if (ILTR_nFilterID != -1) 

{ 

// Load the filter. 

ILFilterStartup (tr) ; 

// Allocate memory for filter field buffer of default size 

ILTR_FilterFieldBuffer. width = MAX_FIELD_LEN; 
I L_ALLOC_MEM ( ILTR_FilterFieldBuf fer . width, 

ILTR_FilterFieldBuf fer . handle, 

ILTR_FilterFieldBuf fer .buffer) ; 
if (ILTR_FilterFieldBuffer .buffer == NULL) 
return ILTR_ERR_NOMEM; 

} 

#endif 

// Retrieve the number of top-level field names being exported. 

numFields = ILTR_list . Count; 

/* 

* Adjust the total number of fields to include the hidden 

* repeating fields if the function is APPT, TODO, or CALL. 
* */ 

if ( ILTR_nFunction == ILTR_APPT 
I | ILTR_nFunction == ILTR_TODO 
I I ILTR_nFunction -= ILTR_CALL ) 
numFields += ILTR EXTRA FIELDS FOR REPEAT; 
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/* 

* Adjust the total number of fields to include _appData 

* and _subType fields. 
* *, 

numFields += ILTR_EXTRA_FIELDS_ALWAYS; 

if (ILTR_phase == ILTR_PHASE_ILX_V3_M0DE) 
{ 

// Create intermediate file view. 

IL__SPRINTF (szSection, "%d", ILTR_nFunction) ; 
ILTR_view = ILIFCreate ( szSection, 

numFields, 
ILTR_CTRLA_CHAR, 
ILTR_CTRLB_CHAR ); 
if (ILTR_view == NULL_ILIF) 

// Error. Unable to create view. 

return ILTR_ERR_NOIF; 

// Create field descriptors in intermediate file. 

nRc = ILFldDesc (tr) ; 
if (nRc !=* SUCCESS) 
return nRc; 



return SUCCESS; 
} // ExportInit2 

/* 

* Name: ExportWhile (called from ILExport) 
* ■ 

static mt ExportWhile { ILTR_PTRANSL tr) 

{ 

int nRc, rc2; 

// Set default values for record name and action type 

IL_MAKE_STRING_NULL ( I LTR_s z RecName ) ; 
ILTR_action = ILTR_ACT_READ; 

// Clear error fields. 

ILTR_nFldErrorNum = 0; 

IL_MEMSETMILTR_fldError, 'NO', sizeof ( ILTR_FLDERR) * ILTR_MAX_FLDERR) ; 
/* 

* Now we get ready for fields to be accepted by ILIF or by TIF. 

* The tr structure member ILTR phase tells us which to use. 

+ 

+ / 

if (ILTR_phase == ILTR_PHASE_ILX V3 MODE) 
( 

IL_SYNC_MEM ( ILTR_rec . handle , ILTR_rec . buffer ) ; 
ILIFInitRecord ( ILTR_view, ILTR_rec .buffer, ILTR_rec. width) ; 

/* 

* If running under an App that's new enough to use SST stuff, 

* and SST Tagging mechanism is enabled, 

* initialize record subtype to match source section subtype. 

* NOTE: for ILX_V4 mode this is done by ILTIF2\TIFInitRecord 



if ( ILTR_VERSION_IS_AT_LEAST (21) 

&& ( ( ILTR_Flags & ILTR DISABLE SST TAGGING) == 0) ) 

{ 

char szTemp[20]; 

IL_SPRINTF (szTemp, "%d'\ . ILTR_SourceSST) ; 

nRc = ILFldPut (tr, ILTR_SUB_TYPE, szTemp, IL STRLEN (szTemp) ) ; 
if (nRc != SUCCESS) 

return ILERROR ( nRc , ILTR ERR INTERNAL ERROR); 

} 

} 

else 
{ 

nRc = ILTR_ILTIFIni tRecord ( tr ) ; 
if (nRc != SUCCESS) 
return nRc; 
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} 

// Invoke callback function to export data record. 

nRc = ( *ILTR_cbGet) (tr, &ILTR_appData) ; 

// End of file. 

if (nRc == ILTfc_EOF) 
{ 

ILTR_nProcessStage = ILTR_END; 
return SUCCESS; 

} 

else 

ILTR_recNum++; // count it: one more record has been read 

if (nRc > ILTR_SKIP_ALL I I nRc < 0) 

// Bail out on serious error 

return nRc; 



nRc = ExportApplyFilters (tr, nRc); 
if (nRc > ILTR_SKIP_ALL I | nRc < 0) 

// Bail out on serious error 

return nRc; 



/* 

* Has a value been supplied for record title? If not, attempt 

* to retrieve default value from "show" field specified in 

* field map table. 

* v 

if (IL_STRING_IS_NULL(ILTR_szRecName) ) 
{ 

// Is there a VIEW field defined in field list? 

if ( ILTR_map. ShowSource != -1) 
{ 

char szFldName [I LTR_MAX_FLDNAME ] ; // Field name 
long len; // Field length 

// Retrieve name and value of VIEW field. 

ILFldName (tr, ILTR_map. ShowSource, szFldName, ILTR MAX FLDNAME) ; 
len = (long) MAX_MSG; 

rc2 - ILTRGetField (tr, szFldName, ILTR szRecName, &len) ; 

} 

} 



// Update progress bar. 

if ( (nRc & ILTR_SKI P_METER) == 0) 
ILShowProgress (tr) ; 

// Don't count record if it was skipped. 

if (ILTR_action == ILTR_ACT_SKIP) 
ILTR_re'cNum — ; 

// Add entry to logfile 

if (ILTR_log && ((nRc & ILTR SKIP LOG) == 0) ) 
( 

rc2 = ExportAddLogEntry (tr); 
if (rc2 != SUCCESS) 
return rc2 ; 

} 

if ((nRc & ILTR_SKIP_WRITE) =« 0) 
{ 

rc2 = ExportRecord (tr); 
if (rc2 != SUCCESS) 
return rc2; 

I 



return SUCCESS; 
} //-.— ExportWhile 



/* 

* Name: ExportApplyFilters (called from ExportWhile) 
* 

static int ExportApplyFilters ( ILTR_PTRANSL tr, int nRc) 



Copyright ©1996 Puma Technology, Inc. All Rights Reserved. 



Export.c 



Page 9 of 15 



// Note that nRc is passed IN, then returned OUT 

/* 

* Apply SST (Section SubType) filtering to any records 

* that we haven't already decided to skip. 

* _ / 

if ( (ILTR_action == ILTR_ACT_READ) && {(nRc & ILTR SKIP WRITE) 0)) 
{ 

nRc = ILSST_Filter (tr); 
if (nRc > I LTR_S K I P_ALL I I nRc < 0) 
return nRc; 

} 

/* 

* Apply Date Range analysis to any appointments 

* that we haven't already decided to skip. 

* */ 

if ( (ILTR_nFunction == ILTR_APPT) 
&& (ILTR_action == ILTR_ACT_READ) 

&& ((nRc & ILTR_SKIP_WRITE) == 0) ) 

{ 

nRc = ExportCheckApptDate (tr, nRc); 
if (nRc > I LTR_SKI P_ALL | | nRc < 0) 
return nRc; 

} 

/* 

* Apply user-defined Filters to any records 

* that we haven't already decided to skip 

* v 

if ( (ILTR_action == I LTR_ACT_READ ) && ((nRc & ILTR SKIP WRITE) == 0)) 
{ 

nRc = ExportApplyUserFilter (tr, nRc); 
if (nRc > I LTR_SKI P_ALL I I nRc < 0) 
return nRc; 

} 

return nRc; 
} // Export Apply Filters 

/* 

* Name: ExportCheckApptDate (called from ExportApplyFilters) 

v 

static int ExportCheckApptDate (ILTR PTRANSL tr, int nRc) 

{ 

// Note that nRc is passed IN, then returned OUT 

long IStartDate = 0; // Appointment start date 

BOOLEAN bRepeatAppt = FALSE; // Is this a repeating appointment? 

BOOLEAN bSkipRecord = FALSE; // Should record be skipped^ 

ILTR_REPEAT rpt; 
int rc2; 

// Is th i s a repeating appointment? (check, and get repeat structure) 

bRepeatAppt = ILIsRepeat2 (tr, Srpt) ; 

if (bRepeatAppt) 

{ 

// Ensure that dates are not past. 

if (ILTR_nSchOpt == ILTR_RANGE_FUTURE && rpt . startDate < ILTR_nDate) 
if (rpt.stopDate != -1 && rpt.stopDate < ILTR_nDate) 
bSkipRecord = TRUE; 

// Skip repeating items out of range 

if (ILTR_nLoDate && ILTR_nHiDate) 
{ 

rc2 = ILItemHasInstancesInDateRange ( tr, // see unfold. c 

ILTR_nLoDate, 
ILTR_nHiDate, 
&rpt ) ; 

// Free up exclusion list 

if ( rpt . numExDates > 0) 
{ 

IL_FREE_MEM_AND_ZERO_HANDLE ( rpt . hExDates , rpt.exDates) ; 

} 
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if (rc2 FALSE) 

bSkipRecord = TRUE; 
else if {rc2 != TRUE) 

return rc2; // abnormal error 

> 

> 

// Processing an individual appointment. 

else if (ILTR_map.ApptDate != -1) 
{ 

// Retrieve value of DATE field. 

char szFldName [ ILTR_MAX_FLDNAME] ; 
char szDate [20] ; 

long len = (long) sizeof (szDate) ; 

II read Date Field value. If unreadable or null we can't filter. 

// don't complain, just leave with return code un-altered. 

ILFldName (tr, ILTR_map. ApptDate, szFldName, ILTR_MAX_FLDNAME) ; 
rc2 = ILTRGetField (tr, szFldName, szDate, &len) ; 
if {rc2 != SUCCESS II IL_STRLEN (szDate) == 0) 
return nRc; 

/* 

* Convert text or alpha date to number. 

* If the field is of type TEXT, convert it from 

* display format. Otherwise, assume that it is 

* stored in IntelliLink "alpha" DATE format (e.g. 19961231). 



if {ILTR_cDateType ILX_TYPE_TEXT) 
{ 

int month, day, year; 

rc2 = IL_DisplayToDate (szDate, &month, &day, &year) ; 
if (rc2 == SUCCESS) 

rc2 = IL_DateEncode (month, day, year, &lStartDate) ; 

if (rc2 != SUCCESS) 

// Invalid Date: cannno't do Date Range analysis or Filtering 

return nRc; 

1 

else 
{ 

if (IL_AlphaDateOK (szDate)) 

IStartDate = IL_AlphaToCodeDate (szDate); 
else 

// Invalid Date: cannnot do Date Range analysis or Filtering 

return nRc; 

} 

// n ow compare start date with current date. 

if {ILTR_nSchOpt == ILTR_RANGE_FUTURE && IStartDate < ILTR_nDate) 
bSkipRecord = TRUE; 

// Verify that date is within specified range 

if (ILTR_nLoDate && ILTR_nHiDate) 

if (IStartDate < ILTR_nLoDate I I IStartDate > ILTR_nHiDate J 
bSkipRecord = TRUE; 

} // else if (ILTR_map. ApptDate != -1) 

// T h e s kip/no-skip decision has been made... 

if (bSkipRecord) 
{ 

nRc |= ILTR_SKIP_WRITE; 
ILTR_action = ILTR_ACT_RANGE; 

} 

// Keep track of earliest and latest start date (repeating) 

else if (bRepeatAppt) 
{ 

// Keep track of lowest and highest dates processed. 

if (ILTR_lEarliestDate — 0) 

ILTR_lEarliestDate = rpt . startDate; 
else if (rpt . startDate != 0 && rpt . startDate < ILTR_lEarliestDate) 

ILTR_lEarliestDate = rpt . startDate; 
if (rpt . startDate > ILTR_lLatestDate) 

!LTR_lLatestDate = rpt . startDate; 
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if (rpt. stopDate > ILTR_lLatestDate) 
ILTR_lLatestDate *= rpt . stopDate; 

// For unbounded repeates, give it a generous 10 year window 

if ( rpt . stopDate == -1 && 

ILTR_lL^testDate < ILTR_lEarliestDate + 10*365) 
ILTR_lLatestDate ~ ILTR_lEarliestDate + 10*365; 

} 

// Keep track of earliest and latest start date (non-repeating) 

else 
{ 

// Is t his the earliest start date? 

if (ILTR_lEarliestDate == 0) 

ILTR_lEarliestDate = IStartDate; 

else if (IStartDate ! =* 0 && IStartDate < ILTR_lEarliestDate) 
ILTR_lEarliestDate = IStartDate; 

// Is tn i s the latest start date? 

if (IStartDate > ILTR_lLatestDate) 
ILTR_lLatestDate = IStartDate; 

} 

return nRc; 
} // ExportCheckApptDate 



/* 

* Name: ExportApplyUserFilter (called from ExportApplyFilters ) 

* V 

static int ExportApplyUserFilter (ILTR PTRANSL tr, int nRc) 

{ 

// Note that nRc is passed IN, then returned OUT 

BOOLEAN bFilterRecord = FALSE; // Should record be filtered? 

// Filters not currently supported on the MAC 

#ifndef ILMAC 

// Is a filter currently active? 

if (ILTR_nFilterID != -1) 

{ 

// Check if the record passes filter conditions. 

bFilterRecord = ILFilterRecord (tr, ILTR nFilterlD) ; 

} 

#endif 

if (bFilterRecord) 
{ 

// Record has failed filter conditions. 

nRc |= ILTR_SKIP_WRITE; 
ILTR_action = I LTR__ACT_ FILTER ; 

} 

return nRc; 
} // ExportApplyUserFilter 



* Name : 
+ 



ExportAddLogEntry (called from ExportWhile) 



/ 



static int ExportAddLogEntry ( ILTR_PTRANSL tr) 



int i; 

int nResID; 

unsigned long lAttrib; 
char cFldType; 

char szFldName [ ILTR_MAX_FLDNAME] ; 
IL_PSTR lpMatch; 



// Loop variable 

// Resource ID number 

// Field attributes 

// Type of field 

// Field name 

// Pointer to character 



// Format action type in log record. 

IL_SYNC_MEM ( I LTR_hRes . hNdx , ILTR_hRes . pNdx) ; 

switch ( ILTR_action) 

{ 
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case I LTR_ACT_ADD : 

nResID = ILTR_MSG_ADD; 

break; 
case ILTR_ACT_DELETE: 

nResID = ILTR_MSG_DELETE; 

break; 
case I LT R_AC T_ F AN : 

nResID = ILTR_MSG_FAN; 

break; 
case ILTR_ACT_FILTER: 

nResID = ILTR_MSG_FILTER; 

break; 
case ILTR_ACT_IGNORE: 

nResID = ILTR_MSG_IGNORE; 

break; 
case ILTR_ACT_RANGE: 

nResID = I LT R_MS G_RANGE ; 

break; 
case ILTR_ACT_READ: 

nResID = ILTR_MSG_READ; 

break; 
case ILTR_ACT_REPLACE: 

nResID = ILTR_MSG_REPLACE; 

break; 
case ILTR_ACT_SKIP: 

nResID = ILTR_MSG_SKIP; 

break; 
case ILTR_ACT_UPDATE: 

nResID = ILTR MSG UPDATE; 



// Write out log record. 

if (ILTR_action != ILTR_ACT_SKI P) 
{ 

// n record title is typed, convert it 



ILFldName { tr, ILTR_map. ShowSource, szFldName, ILTR_MAX_FLDNAME) ; 
ILFldType <tr, szFldName, ScFldType, &lAttrib) ; 

if (cFldType == ILX_TYPE_DATE) 
{ 

long ITempDate; 

ITempDate = IL_AlphaToCodeDate < ILTR_szRecName) ; 
IL_CodeDateToDisplay (ITempDate, ILTR szRecName) ; 

} 

else if (cFldType == ILX_TYPE_TIME) 
{ 

long lTempTime; 

lTempTime « IL_AlphaToCodeTime ( ILTR_szRecName) ; 
IL_CodeTimeToDisplay (lTempTime, ILTR szRecName) ; 

} 

// Set the recorc i title to "<Unspecif ied> if none supplied. 

if (IL_STRING_IS_NULL(ILTR_szRecName) ) 

ILSTMakeString ( & ILTR_hRes , ILX_MSG_UNSPEC, 

ILTR_szRecName, MAX_MSG) ; 

/* 

* Truncate the name at end of first line (only relevant to 

* multi-item fields) . 
* v 

lpMatch = IL_STRSTR ( ILTR_szRecName, ILTR_szLineTerm) ; 
if (lpMatch != NULL) 
*lpMatch = ■ \0* ; 

// Truncate the name at EOS char if found 

lpMatch = IL_STRCHR < ILTR_szRecName, ILTR_EOS_CHAR) ; 
if (lpMatch != NULL) 
*lpMatch = ' \CT ; 

// Place record and action in log file. 

if (ILAppendLog ( ILTR_hLog, 

ILTR_hRes, 

nResID, 

ILTR szRecName, 
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NULL ) ) 
return ILTR_£RR_LOGFILE; 

// Place field errors in log file. 

for (i =0; i < ILTR_nFldErrorNum; i++) 
{ 

// Convert internal to external field name. 

if (ILFldlnToEx ( tr, 

ILTR_fldError [i] .szField, 
szFldName, 
ILTR_MAX_FLDNAME ) ) 
IL_STRCPY (szFldName, ILTR_f IdError [i ] .szField) ; 

// Place next field error in log file. 

i f ( ILAppendLog ( ILTR_hLog, 

ILTR_hRes, 

ILTR_fldError [i] .nError, 
szFldName, 
NULL) ) 
return ILTR_ERR_LOGFILE; 

} 

I 



// Exit without error 

return SUCCESS; 

j // Export AddLogEntry 



/* 

* Name: ExportEnd 
* 

static int ExportEnd { ILTR_PTRANSL tr) 
{ 

int nRc; 

int rc2; // secondary, ignored, return code 

char szMsgText [MAX_MSG] ; // Display text 

// if E X p 0r t is not initialized, simply return 

if (ILTR_bExpInitialized == FALSE) 
return SUCCESS; 



/* 

* For ILX_V3 only, set the lowest and highest dates. 

* This is an efficiency measure which minimizes the amount of 

* work that we need to do on the IMPORT side. We only need to 

* look for Target Records within the date range where all the 

* Source Records exist. Unfortunately ILX_V4 does ExportFromTarget 

* BEFORE it does ExportFromSource, so it loses this efficiency 

* feature. For one-way translations we could re-gain this efficiency 

* by changing the order of ILX_V4 operations. But for synchronization 

* we cannot do any such asymmetric range truncation. 
* 

if (ILTR_phase == ILTR_PHASE ILX V3 MODE) 
( - - _ 

if ( ILTR__nLoDate ==0 || ILTR_lEarliestDate > ILTR nLoDate) 
ILTR_nLoDate = ILTR_lEarliestDate; 

if ( (ILTR_nHiDate 0) 

II (ILTR_lLatestDate != 0 && ILTR_lLatestDate < ILTR nHiDate) ) 
ILTR_nHiDate = ILTR lLatestDate; 

) 



// Show Please Wait message. 

ILSTMakeString (&ILTR_hRes, I L T R_M S G_ W A I T , szMsgText, MAX MSG) ; 
ILSetProgressText (tr, szMsgText) ; ~ 

// Call ca iit,ack function (if any) to terminate PIM function 

if (ILTR_cbEnd == NULL) 

nRc = SUCCESS; 
else 

nRc = ( *ILTR_cbEnd) (tr, &ILTR_appData) ; 

// Place last record in log file. 

if (ILTR_log) 
( 
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int resnum; 
char szTemp [20] ; 

i f ( ILTR_nSynchroni ze ) 
{ 

if (ILTR^phase == ILTR_PHASE10) 

resnum = ILTR_MSG_T0TAL_INPUT_1ST; // count read from 1st system 
else 

resnum = ILTR_MSG_T0TAL_INPUT_2ND; // count read from 2nd system 

} 

else 
{ 

if <ILTR_phase == ILTR_PHASE10) 

resnum = ILTR_MSG_TOTARG; // # of records exported from TARGET 
else 

resnum = I L T R_M S G_T OT SRC; // # of records exported from SOURCE 



IL_SPRINTF (szTemp, "%d", ILTR_recNum) ; 

if (ILAppendLog (ILTR_hLog, ILTR_hRes , resnum, szTemp, NULL)) 
if (nRc == SUCCESS) 

nRc = ILTR_ERR_LOGFILE; 

} 

if (ILTR_phase == ILTR_PHASE_ILX_V3 MODE) 
{ 

// Close intermediate file. 

ILIFClose { ILTR_view) ; 
ILIFTerminate { ) ; 

// Free memory used for ILIF "play area" 

if (ILTR_pILIF_Globals != NULL) 

IL_FREE_AND_ZERO ( ILTR_hILI F_Globals , ILTR pILIF Globals); 

} 

else if ( ILTR_pILTIF != NULL) 
{ 

// ILX_V4: put TIF back to sleep 

rc2 = ILTR_ILTIFCloseFileTemporarily (tr) ; 
if (nRc == SUCCESS) 

// report TIF error if it won't mask any other error 

nRc = rc2; 

} 

ILTR_bExpInitialized = FALSE; 

#ifdef ILWIN 

// Remove environment ID window property 

RemoveProp ( ILTR_hParentWin, ILTR ENV PROP); 
#endif 



// Dump field mapping to log file if appropriate 

if (ILTR_rc && 

((ILTR_rc != ILTR_ERR_NORECS) |f 
( ILTR_nSynchronize == ILXTR_SYNC_NO) ) ) 
ILDumpFieldsToLog {tr, ILTR_hLog) ; 

// Free all field list, field mapping and character mapping tables 

ILFreeTables (tr) ; 

// Free the field buffer 

if ( ILTR_field. handle != NULL } 

IL_FREE_AND_ZERO ( ILTR_f ield . handle , ILTR_f ield .buffer) ; 

// Filters not currently supported on the MAC 

#ifndef ILMAC 

// Close filter file and free filter. 

if (ILTR_nFilterID != -1) 

ILFilterCleanup (tr, &ILTR_hFlt); 

// Was a filter active? 

if (ILTR_nFilterID != -1) 
{ 

if (ILTR_FilterFieldBuf fer. handle != NULL) 

IL_FREE_AND_ZERO ( ILTR_FilterFieldBuf fer . handle , 

ILTR_FilterFieldBuf fer. buffer) ; 
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} 

#endif 

// Signal end of import/export operation to progress window 

ILStatusEnd (tr); 

// pass back any error code 

return nRc; 

} // ExportEnd 



* ExportRecord — local function 
* 

* this function either calls ILIFPutRecord or ILTIFPutRecord 
+ 

* For Phase 1 {export-bef ore-import, from TARGET app), 

* simply write record into ILTIF 

* For Phase 2 (export from SOURCE app) , 

* do field mapping before writing into ILTIF 



static int ExportRecord ( ILTR_PTRANSL tr) 
{ 

int rc; 

/* 

* Now we put the record either to ILIF or to TIF. The tr structure member 

* ILTR_phase tells us which to use. 

* v 

if (ILTR_phase == ILTR_PHASE_ILX_V3_M0DE) 
{ 

IL_SYNC_MEM ( ILTR_rec . handle, ILTR_rec.buf fer) ; 

rc = ILIFPutRecord ( ILTR_view, ILTR rec. buffer, ILTR rec. width); 

} 

else 

rc = ILTR_ILTIFPutRecord ( tr ) ; 
return rc; 
} // ExportRecord 



Copyright ©1996 Puma Technology, Inc. All Rights Reserved. 



Import.c 



Page 1 of 15 



/*■ 
* 

* 

+ 

* 

* 
★ 

* 

* 
* 
* 
* 
* 
* 
★ 
* 
* 
+ 

* 
* 
* 
* 
* 
* 

* 
* 
* 

+ 



Name: IMPORT . C 

Part of: IntelliLink Translation Harness (ILTR) 
Purpose: Contains top-level "driver" entrypoint, iLImport, 
of record-oriented data. 

Functions : 



for import 



ILImport 

ImportBegin 

Importlnitl 

ImportInit2 

ImportWhile 

ImportCheckApptDate 

ImportAddLogHeader 

ImportAddLogEntry 

ImportEnd 

GetNextRecord 

GetNextRecordFromlLI F 

GetNextRecordFromTIF 

GetStartDate 

While Importing under ILWIN.EXE, ILWIN\xlatew. c\LoadTranslator sets 
ILTR_pDriver to point to ILImport. Then ILX_V3\dlgprog . c\ILX_DlgProgress 
calls ( *ILTR_pDriver) repeatedly. 

(NOTE: Message loop is in ILWlN\xlatew. c\LoadTranslator . ) 

While Importing under Windows ILX, ILX_V3\xlate . c\doTranslate calls 
loadxltr.c\ILX_LoadTranslator, which sets ILTR_pDriver to point to ILImport 
Then ILX_V3\dlgprog.c\ILX_DlgProgress calls (*ILTR_pDriver) repeatedly. 
(NOTE: Message loop is in ILX_LoadTranslator . ) 



While 
calls 
calls 
calls 
calls 

NOTE: 



* Input: 

* Return 

* Author 



Importing on Macintosh, ILX_V3\xlate . c\doTranslate 
ILX_V3\macdrive. cpp\ILX_LoadTranslator, which 

ILTRNmacstub. c\CallCodeResource for functional LX_CALL_IMPORT, which 
ILTR\macstub.c\RunXlator with pXlator=&ILImport . Then RunXlator 
*pXlator repeatedly. 

this module is force-linked into every record-oriented translator 

Pointer to translator record 
SUCCESS, FAILURE, or error code 

Mike Blanchette, Copyright (c) IntelliLink, 1992-1995 



/ 



#include "ilxapi.h" 

// for now WP stuff is only on the MAC 
#ifdef ILMAC 
#include "iltrwp.h" 
#endif 



// Includes ALL common headers 



// If using MFC with MSVC 4 
ftifdef ILMFC41 

#include "afxwin.h" 
#endif // ILMFC41 



1 we need to call AfxGetlnstanceHandle 



static int ImportBegin (ILTR 

static int Importlnitl (ILTR 

static int ImportInit2 (ILTR - 

static int ImportWhile (ILTR" 

static int ImportCheckApptDate (ILTR - 

static int ImportAddLogHeader (ILTR~ 

static int ImportAddLogEntry <ILTR~ 

static int ImportEnd (ILTR~ 

static int GetNextRecord (ILTR - 

static int GetNextRecordFromlLIF (ILTR - 

static int GetNextRecordFromTIF (ILTR] 

static int GetStartDate (ILTR* 



PTRANSL tr) 
PTRANSL tr) 
^PTRANSL tr) 
"PTRANSL tr) 
"PTRANSL tr, 
PTRANSL tr) 
"PTRANSL tr) 
PTRANSL tr) 
PTRANSL tr) 
PTRANSL tr) 
PTRANSL tr) 
PTRANSL tr, 



BOOLEAN *pbSkip) 



long IL_DIST *plDate) 



/* 

* Name : 
★ 



ILImport 



/ 



int IL_DECL EXP ILImport < ILTR_PTRANSL tr) 

{ 

int nRc; 
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// If no ddlMain was called we need an instance handle 
#ifdef ILMFC41 

hXlatorlnst = Af xGetlnstanceHandle ( ) ; 
ffendif // ILMFC41 

/* : 

* Word Processing sections use a different version of ILImport. 

* If this is a WP translation, then call ILImportWP. 

* + / 

#ifdef ILMAC 

if ( ILTR_nFunction == ILTB_SEC MEMO) 
{ 

nRc = ILImportWP (tr) ; 
return (nRc) ; 

) 

#endif 

switch (ILTR_nProcessStage) 
{ 

// Initialize translator. 

case ILTR_BEGIN: 

nRc = ImportBegin (tr); 
if (nRc == SUCCESS) 

nRc = ILProcessMessages (tr) ; 
if (nRc == SUCCESS) 

ILTR_nProcessStage = ILTR_WHILE; 
return nRc; 

// Import a record 

case ILTR_WHILE: 

/* 

* Phase30 is the conflict resolution and unload-to-target phase 

* of an ILX_V4 translation job. The 'WHILE* part of Phase30 

* is where the Target Translator gets a chance to "sanitize" 

* the source records before TIF does Conflict Analysis and 

* Resolution. But if the flag says skip it, we skip it. 



if ( (ILTR_phase == ILTR_PHASE30) 

&& (ILTR_Flags & ILTR_FLAGS_SKIP_SANITIZING_STEP) ) 

ILTR_nProcessStage = ILTR_END; 
return SUCCESS; 

} 

/* _ 

* Phase40 of Synchronization is where TIF records are unloaded 

* by the SOURCE translator. Unlike Phase30, where we let the 

* Target Translator sanitize source records, Phase40 does 
+ no such thing, so we skip over the 1 WHILE ' phase and 

* jump straight to the END phase to unload the TIF file. 



if (ILTR_phase == ILTR PHASE40) 
{ 

ILTR_nProcessStage = ILTR_END; 
return SUCCESS; 

} 

nRc = ImportWhile (tr); 
if (nRc == SUCCESS) 

nRc = ILProcessMessages (tr); 
else if (nRc == ILTR_EOF) 
{ 

ILTR_nProcessStage = ILTR_END; 
nRc =» ILProcessMessages (tr); 

} 

return nRc; 

// Shut down translator 

case ILTR_END: 

nRc = ImportEnd (tr) ; 
if (nRc == SUCCESS) 

nRc = ILProcessMessages (tr); 
return nRc; 
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default : 

return ILERROR (ILTR_nProcessStage, ILTR ERR UNKNOWN); 
} " " 

} // ILImporf 



/* 

* Name: ImportBegin (called from ILImport) 



+ 
* 

* 

* 

* 
+ 
* 

+ 
* 
★ 
+ 
* 
+ 



This function's behavior, in conjunction with the behavior of "dlgprog", 
implies the following basic cleanup rules for translator writers: 

(1) if your INIT returns an error, it must clean up any 
allocated resources before doing so. 

(2) if your INIT returns SUCCESS, we guarantee that your END 
routine will be called, so you can make your END routine 
responsible for cleaning up any resources allocated by INIT. 

(3) But for historical reasons there is one more caveat: 

If your BEGIN function returns ILTR_ERR_NODDE then before doing 
so it must clean up any resources allocated by INIT. 

When you return ILTR_ERR_NODDE, ILX_V3\dlgprog . c\ILX_DlgProgress 
then tries to LAUNCH the target app, and if that succeeds then 
your INIT and BEGIN functions will be called again. 

(4) Another peculiar case is ILTR_ERR_WAIT . But it is handled 
differently. If your BEGIN return ILTR_ERR_WAIT then it will 
be called again, but in this case your INIT will NOT be called 
again . 



static int ImportBegin (ILTR PTRANSL tr) 
{ 

int nRc; 

// Do some initializations 

if ( ILTRjDlmpInitialized == FALSE) 
{ 

nRc = Importlnitl (tr); 
if (nRc != SUCCESS) 
return nRc; 

ILTRjDlmpInitialized = TRUE; 
ILTR_bInitDone = FALSE; 

ILTR_bMustCleanUpBeforeQuitting = FALSE; 

} 



/ 



// Do app-specific initializations and some more initializations 

if (ILTR_bInitDone == FALSE) 
( 

// Call app-specific initialization function 

nRc = ILIniTranslator (tr, &ILTR_appData) ; 
if (nRc != SUCCESS) 

return nRc; // Possibly ILTR_ERR_WAIT 

/* 

* Beyond this point we must always do cleanup, whether job 

* runs to completion, or fails prematurely, or is cancelled by 

* the user. Note that ILX\DLGPROG . C checks the * MustCleanUp ' flag. 

ILTR_bMustCleanUpBef oreQuitting = TRUE; 

// do some more initializations 

.nRc = ImportInit2 (tr); 
if (nRc != SUCCESS) 
return nRc; 

/* 

* Set flag to denote that INIT is done. 
But beware of NODDE special case below! 
_ */ 



* 
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ILTR_bInitDone = TRUE; 

} 



if (ILTR_cbBegin != NULL) 
{ 

nRc = (*ILTR_cbBegin) (tr, &ILTR_appData) ; 

if (nRc != SUCCESS) 

{ 

// Special case for NODDE: force INIT to be called again! ! 

if (nRc == I LTR_ERR_NODDE ) 
ILTR_bInitDone = FALSE; 

return nRc; 

} 

} 

// Set total record in progress bar control. 

ILStatusImport ( tr , ILTR_nRecords ) ; 

// Write out record to log file using strings in resource file. 

if (ILTR_log) 

{ 

nRc = ImportAddLogHeader (tr); 
if (nRc != SUCCESS) 
return nRc; 

} 

// j s this the first of two passes on the source data? 

if ( (ILTR_nSectionAttribs & ILTB_ATT_TWOPASS ) 

&& (ILTR_nPass == 1) 

&& (ILTR_cbProgress == NULL) ) 

{ 

char szText [MAX_MSG] ; // Message text 

// Display message for duration of first pass. 

ILSTMakeString ( &ILTR_hRes, 

ILTR_MSG_FIRSTPASS, 

szText , 

MAX_MSG, 

ILTR szAppFile ) ; 



// Update the progress window. 

ILSetProgressText (tr, szText) ; 

} 

return SUCCESS; 
} // ImportBegin 

/* 

* Name: Importlnitl (called from ImportBegin) 



static int Importlnitl ( ILTR_PTRANSL tr) 

{ 

int nRc; 

char szText [MAX_MSG] ; // Display text 

// set signature for Heap Logging (if enabled) 

ILUT_MemSig ( ILTR_szTarTrans ) ; 

// Signal start of import/export operation to progress window 

ILStatusBegin (tr) ; 

// Show Please Wait message. 

ILSTMakeString (&ILTR_hRes, ILTR_MSG_WAIT, szText, MAX_MSG) ; 
ILSetProgressText (tr, szText) ; 

// Clear variables and set default line terminator string. 

ILTR_recNum = 0; 
ILTR_lImportRecs = 0; 

IL_STRCPY (ILTR_szLineTerm, ILTR_DEFAULT_TERM) ; 
ILTR_appData = NULL; 

// Set ILTIME global default date and time format 



Copyright ©1996 Puma Technology, Inc. All Rights Reserved. 



Import.c 



IL_InitStdDateFormat { ) ; 
IL_InitStdTimeFormat () ; 

// set ILTR date and time format 

IL_InitDateFormat ( ) ; 
IL_InitTimeFormat ( ) ; 

// Set initial pass number. 

ILTR_nPass - 1; 

iifdef ILWIN 

// Make environment ID available as a window property 

SetProp (ILTR_hParentWin, ILTR_ENV_PROP, 
(IL_HANDLE) ILTR_eEnvironment) ; 

#endif 

if (ILTR_pTmpBuf == NULL) 
{ 

// initialize reusable buffer ILTR_pTmpBuf 

I L_ALLOC_MEM (sizeof ( ILUT_BUFFER) , I LTR_hTmpBu f , ILTR_pTmpBuf ) ; 
if (ILTR_pTmpBuf == NULL) 
return ILTR_ERR_NOMEM; 

nRc = 'lLUT_InitBuf fer ( ILTR_pTmpBuf , 0, 512, ILTR_MAX_FIELDLENGTH+1 ) ; 
if (nRc != SUCCESS) 

return ILTR_ERR_NOMEM; 

} 



// if doing an ILIF-based job, set up memory for ILIF to use... 

if {ILTR_phase == ILTR_PHASE_ILX_V3_MODE) 

{ 

// Allocate "play area" for ILIF to use 



IL_ALLOC_MEM (sizeof { ILIF_GLOBALS ) , 

ILTR_hILIF_Globals, ILTR_pILI F_Globals ) ; 
if (ILTR_pILIF_Globals == NULL) 
return ILTR ERR NOMEM; 



// Zero play area 

IL_MEMSET (ILTR_pILIF_Globals, 0, sizeof (ILIF GLOBALS) ) ; 

} 

return SUCCESS; 
} // Importlnitl 



/* 

* Name: ImportInit2 (called from ImportBegin) 
* 

static int ImportInit2 ( ILTR_PTRANSL tr) 
{ 

int nRc; 

int nCount; // Record count 

int nSections; // Number of sections in ILIF file 

char szSection [MAX_SECNAME_SIZE] ; // Section name 

/* 

* Ensure that the PUT callback routine has been registered. 

* Otherwise return with error indication. 

v 

if (ILTR_cbPut == NULL) 

return ILTR_ERR_NOPUTCB; 

// Initialize all field and charcter mapping structures. 

nRc = ILSetupTables (tr); 
if (nRc) 

return nRc; 



if (ILTR_phase == ILTR_PHASE_ILX_V3_MODE) 
{ 

// Initialize Intermediate File (ILIF) subsystem. 

nRc = ILIFInit ( ILIF_ACC_SINGLE_FILE, 

ILTR_szWorkFile, 

I L_ATT R_RE AD , 

ILTR_NOT_USED, 

(int IL DIST *) SnSections ); 
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if (nRc != SUCCESS) 

// ERROR - could not initialize ILIF 

return ILERROR (nRc, ILTR_ERR_NOIF) ; 

// Open the relevant section of intermediate file. 



IL_SPRINTF (szSection, "%d", ILTR_nFunction) ; 
ILTR_view = ~ILIFOpen (szSection); 
if (ILTR_view == NULL_ILIF) 
return I LT R_E RR_NO IF; 

// Get total number of available records in intermediate file 

nCount = ILIFNumRecords (ILTR_view); 
ILSetRecCount (tr, nCount) ; 

// Report error if no records to import. 

if {nCount == 0) 

return ILTR_ERR_NORECS; 

} // if (ILTR_phase == ILTR_PHASE_ILX_V3_MODE) 

else 
{ 

// ILX_V4: wake up TIF 

nRc = ILTR_ILTI FReopenFile (tr) ; 
if (nRc != SUCCESS) 
return nRc; 

// If we haven't been told to SKIP the "sanitizing" step 

if ( ( ILTR_Flags & ILTR_FLAGS_SKIP_SANITIZING_ST£P) == 0) 
{ 

/* 

* Target Translator is now expected to sanitize the source 

* records. Find out how many source records there are. 

* #/ 

INT32 IRecordCount = 0;; 

nRc = ILTR_ILTIFHowManyRecords (tr, & IRecordCount ) ; 
if (nRc != SUCCESS) 
return nRc; 

nCount = (int) IRecordCount; 
ILSetRecCount (tr, nCount) ; 

/* 

* Report error if no records to import. 

* But don't complain when doing synchronization 
v 

if ({nCount == 0) && ( ILTR_nSynchronize == ILXTR_SYNC_NO) ) 
return ILTR_£RR_NORECS; 

} 

} 

// Allocate memory for field buffer of default size. 

ILTR_field. width = MAX_FIELD_LEN; 

I L_ALLOC_MEM { ILTR_field . width, ILTR_field . handle , ILTR_field. buffer) ; 
if {ILTR_field. buffer == NULL) 
return ILTR ERR NOMEM; 



// Force new file to be created if zero length. 

if (ILUT_IsZeroFile { ILTR_szAppFile) ) 
ILTR_nAttribs 1= I LTB_ATT_REMFI LE ; 

// Go cr eate the file or database IFF it doesn't already exist. 

if { ! ILTR_nFileExists || 

(ILTR_nFileExists && ( ILTR_nAttribs & ILTB ATT REMFILE) ) ) 



if (ILTR_cbNew != NULL) 

if {{nRc = ( * ILTR_cbNew) {tr, &ILTR_appData) ) ) 
return nRc; 

return SUCCESS; 
} // ImportInit2 

/* 

* Name: ImportWhile (called from ILImport) 
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static int ImportWhile ( ILTR_PTRANSL tr) 
{ 

int nRc; 

BOOLEAN bFirstPass; // i s this the first of two passes^ 

BOOLEAN bSkipRecord = FALSE; // Should record be skipped? 

char szFldName [ I LTR_MAX_FLDNAME] ; // Field name 

/* 

* Get next record, from ILIF or from TIF, and 

* let result of ' GetNextRecord • tell us what to do next. 

* v 

nRc = GetNextRecord (tr); 
if (nRc != SUCCESS) 

return nRc; // ILTR_EOF or abnormal error 

// Synchronize pointers. 

IL_SYNC_MEM ( ILTR_list . handle, ILTR_list . Name) ; 
IL_SYNC_MEM ( ILTR_field . handle, I LTR_field. buffer) ; 

/* 

* If appointment falls outside desired range, skip it 
* */ 

if (ILTR_nFunction == ILTR_APPT && ILTR_action != ILTR_ACT__SKIP) 

nRc = ImportCheckApptDate (tr, &bSkipRecord) ; 
if (nRc != SUCCESS) 
return nRc; 

} 

if (bSkipRecord) 

// Record has failed Date Range check. 

ILTR_action = ILTR_ACT_RANGE; 
else 
{ 

// In Date Range _ invoke callback function to import data record 

ILTR_action = ILTR_ACT_ADD; 
nRc = (*ILTR_cbPut) (tr, &ILTR_appData) ; 
if (nRc > ILTR_SKIP_ALL | | nRc < 0) 
return nRc; 

} 

/* 

* Has the record title been set? If not, attempt to 

* fetch default value from "show" field specified in map 
* v 

if ( ILTR_szRecName [ 0 3 == ILTR NULL CHAR) 
{ 

if ( ILTR_map. ShowTarget != -1) 

{ 

int rc2; // return code that we ignore 

ILFldName (tr, ILTR_map . ShowTarget , szFldName, ILTR MAX FLDNAME) ; 
if (ILTR_phase == ILTR_PHASE ILX V3 MODE ) 
{ " ~ 

// do field mapping to get field value; ignore errors 

unsigned int nLen = MAX_MSG; 

rc2 = ILFldGet (tr, szFldName, ILTR szRecName, &nLen) ; 

} 

else if (ILTRjphase == ILTR PHASE30) 
{ 

// fields are already mapped; just get value; ignore errors 

long len = (long) MAX_MSG; 
^ rc2 » ILTRGetField (tr, szFldName, ILTR_szRecName, &len) ; 

else 

return ILERROR ((int) ILTR_phase, ILTR ERR INTERNAL); 



/* 

* Determine whether or not we're in the first pass of a multi-pass 

* translation (if so, logging is skipped in first pass). 
* */ 

bFirstPass = 

( (ILTR_nSectionAttribs & ILTB_ATT_TWOPASS) && ILTR nPass == 1); 
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// Update progress bar. 

if (IbFirstPass && ! (nRc & ILTR_SKIP METER) ) 
iLShowProgress (tr); 

/* 

* Has translator asked to skip showing item? 

* If not, update the log file. 

+ * 

if <!(nRc & ILTR_SKIP_LOG) && ILTR_log && IbFirstPass) 

int rc2 = ImportAddLogEntry (tr); 
if (rc2 SUCCESS) 
return rc2; 

} 

return SUCCESS; 
i // ImportWhile 



/* 

* Name: ImportCheckApptDate (called from ImportWhile) 

static int ImportCheckApptDate < ILTR_PTRANSL tr, BOOLEAN *pbSkip) 

BOOLEAN bSkipRecord = FALSE; // Should record be skipped^ 

ILTR_REPEAT rpt; 
long IStart; 
int rc; 

// Is this a repeating appointment? (check, and get repeat structure) 

if (ILIsRepeat2 (tr, &rpt) ) 

{ 

// Ensure that dates are not past. 

if (ILTR_nSchOpt == ILTR_RANGE_FUTURE && rpt . startDate < ILTR nDate) 
if (rpt.stopDate != -1 && rpt.stopDate < ILTR nDate) 
bSkipRecord = TRUE; 

// Skip repeating items out of range 

if ( ILTR_nLoDate && ILTR_nHiDate ) 
{ 

rc = ILItemHasInstancesInDateRange ( tr, // see unfold. c 

ILTR_nLoDate, 
ILTR_nHiDate, 
&rpt ) ; 

// Free up exclusion list 

if ( rpt . numExDates > 0) 
{ 

" IL_FREE_MEM_AND_ZERO_HANDLE ( rpt . hExDates , rpt . exDates ) ; 

if (rc == FALSE) 

bSkipRecord = TRUE; 
else if (rc != TRUE) 

return rc; // abnormal error 

} 

} 

// Processing an individual appointment. 

else if (ILTRjnap. ApptDate != -1) 
( 

// Retrieve value of DATE field 

rc = GetStartDate (tr, filStart); // ignore rc 

// Now compare start date with current date. 

if (ILTR_nSchOpt == ILTR_RANGE_FUTURE && IStart < ILTR nDate) 
bSkipRecord = TRUE; ~ 

// Verify that date is within specified range 

. if (ILTR_nLoDate ILTR_nHiDate) 

if (IStart < ILTR_nLoDate | | IStart > ILTR_nHiDate) 
bSkipRecord = TRUE; 

} 

*pbSkip =» bSkipRecord; 
return SUCCESS; 
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} // ImportCheckApptDate 



/* 

* Name: ImportAddLogHeader (called from ImportBegin) 

* „ v 

static int ImportAddLogHeader ( ILTR_PTRANSL tr) 
{ 

int nResID; 

IL_SYNC_MEM ( ILTR_hRes . hNdx, ILTR_hRes . pNdx) ; 

/* 

* For Synchronization we always say that we're applying updates to 

* one of the systems -- either the 1st system or the 2nd system 



if (ILTR_nSynchronize) 
{ 

if <ILTR_phase ==» ILTR_PHASE30) 

// updating the so-called TARGET system — don't add header yet!! 

return SUCCESS; 
else 

nResID = I LTR_MSG_U P DAT E_2 N D ; // updating the so-called SOURCE system 

} 

/* 

* For SmartMerge we're either UPDATING or CREATING the TARGET file. 

* The test here is pretty crude. For non-file-based Desktop Apps we're 

* likely to say CREATE when UPDATE would be more appropriate. What we 

* really need to do is look at the ACCESS TYPE and maybe the 

* TOTAL_REBUILD system attribute. Maybe someday... 



else if ( ILTR_nFileExists && ! ( ILTR_nAttribs & ILTB_ATT_REMFILE) ) 

nResID = ILTR_MSG_UPDTAR; 
else 

nResID = ILTR_MSG_CRETAR; 

if (ILAppendLog (ILTR_hLog, ILTR_hRes , nResID, NULL, NULL)) 
return ILTR_ERR_LOGFILE; 

return SUCCESS; 

} // ImportAddLogHeader 



/* 

* Name 
* 



ImportAddLogEntry (called from ImportWhile) 



static int ImportAddLogEntry ( ILTR_PTRANSL tr) 
{ 



int i; 

int nResID; 

unsigned long lAttrib; 
char cFldType; 

char szFldName [ ILTR_MAX_FLDNAME] ; 
IL PSTR lpMatch; 



// Loop variable 

// Resource ID number 

// Field attributes 

// Type of field 

// Field name 

// Pointer to character 



// Format action type in log record. 

IL_SYNC_MEM ( ILTR_hRes . hNdx, ILTR_hRes . pNdx) ; 
switch ( ILTR_action) 

{ 

case I LT R_ACT_ADD : 

ILTR_lImportRecs++; 

nResID = I LTR_MSG_ADD ; 

break; 
case I LTR_ACT_DELETE : 

ILTR_lImportRecs++; 

nResID = ILTR_MSG_DELETE; 

break; 
case ILTR_ACT_FAN: 

ILTR_lImportRecs++; 

nResID = ILTR_MSG_FAN; 

break; 
case I LTR_ACT__FI LTER : 

nResID = ILTR_MSG_FILTER; 

break; 
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case ILTR_ACT_IGNORE: 

nResID « I LTR_MSG_ IGNORE ; 

breaks- 
case ILTR_ACT_RANGE: 

nResID = I LTR_MSG_RANGE ; 

break; 
case ILTR_ACT_READ: 

nResID = I LTR_MSG_READ ; 

breaks- 
case ILTR_ACT_REPLACE: 

ILTR_lImportRecs++; 

nResID = ILTR_MSG_REPLACE; 

break; 
case ILTR_ACT_SKIP: 

nResID = ILTR_MSG_SKIP; 

break; 
case ILTR_ACT_UPDATE : 

ILTR_lImportRecs++; 

nResID = ILTR_MSG_UPDATE; 

break.- 
case ILTR_ACT_LOADED_INTO_TIF: 

// don't log when loading TIF, except if there are errors 

if (ILTR_nFldErrorNum == 0) 

return SUCCESS; 
else 

nResID = ILTR_MSG READ; 

} 

// If record title is typed, convert it 

ILFldName (tr, ILTR_map . ShowTarget , szFldName, ILTR MAX FLDNAME) ; 
ILFldType (tr, szFldName, ScFldType, &lAttrib) ; 

if (cFldType == ILX_TYPE_DATE) 
{ 

long lTempDate; 

lTempDate = IL__AlphaToCodeDate ( ILTR_szRecName) ; 
IL_CodeDateToDisplay (lTempDate, ILTR szRecName) ; 

} 

else if (cFldType == ILX TYPE TIME) 
{ 

long ITempTime; 

lTempTime = ILJUphaToCodeTime (ILTR_szRecName) ; 
IL_CodeTimeToDisplay (ITempTime, ILTR szRecName) ; 



// Set the recorc j title to "<Unspecified> 

if ( ILTR_szRecName [ 0 ] == '\0') 

ILSTMakeString ( & ILTR_hRes , ILX_MSG_UNSPEC, 

/* 

* Truncate the name at end of first line (only relevant to 

* multi-item fields) . 
* v 

IpMatch = IL_STRSTR ( ILTR_s zRecName, ILTR_szLineTerm) ; 
if (IpMatch != NULL) 
* IpMatch = • \0* ; 

// Truncate the name at EOS char is it exists. 

IpMatch = IL_STRCHR < ILTR_szRecName, ILTR EOS CHAR) ; 
if (IpMatch != NULL) 
*lpMatch = " \0' ; 

// Write out log record. 

if (ILAppendLog (ILTRJiLog, ILTR_hRes, nResID, ILTR szRecName, NULL) ) 
return ILTR_ERR_LOGFILE; 

// Place field errors in log file. 

for (i = 0; i < ILTR_nFldErrorNum; i++) 
( 

// Convert internal to external field name. 

if ( ILFldlnToEx ( tr, 

ILTR_f IdError [i] .szField, 



if one was not supplied. 
ILTR_szRecName, MAX MSG) 
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szFldName, 
ILTR_MAX_FLDNAME ) ) 
IL_STRCPY (szFldName, ILTR_f IdError [ i ] .szField) ; 

// Place next field error in log file. 

if (ILAppen^Log ( ILTR_hLog, 

ILTR_hRes, 

ILTR_f IdError [i] .nError, 
szFldName, 
NULL) ) 
return ILTR ERR LOGFILE; 



return SUCCESS; 
} // ImportAddLogEntry 



/* 

* Name: ImportEnd 

* v 

static int ImportEnd { ILTR_PTRANSL tr) 
{ 

int nRc; 

int rc2; // secondary return code 

char szText[MAX_MSG] ; // Message text 

// j^f Export is not initialized, simply return 

if ( ILTR_bImpInitialized == FALSE) 
return SUCCESS; 

// Show Please Wait message. 

ILSTMakeString ( & ILTR_hRes , ILTR_MSG__WAIT, szText, MAX_MSG) ; 
ILSetProgressText (tr, szText) ; 

// Call callback function (if any) to terminate PIM function. 

if (ILTR_cbEnd NULL) 

nRc = SUCCESS; 
else 
{ 

if (ILTR_phase ! = ILTR_PHASE_ILX_V3_MODE) 

// For ILX_V4 TIF-based translation, we want ILTR_recNum to 

// count records unloaded, not records sanitized. 

ILTR_recNum = 0; 

if (ILTR_pILTIF NULL) 

// For any TIF-based import, make sure count of imported 

// records doesn't include any sanitizing count (e.g. FANNING) 

ILTR_lImportRecs = 0; 

nRc = ( *ILTR_cbEnd) (tr, & ILTR appData); 

} 

#ifdef ILWIN 

// Remove environment ID window property; it's no longer needed! 

RemoveProp ( ILTR_hParentWin, ILTR_ENV_PROP) ; 
#endif 

// Place last record in log file. 

if (ILTR_log) 
( 

char szTemp[20]; // Temporary string 

int resnum; 

if ( ILTR_nSynchronize) 
{ 

if (ILTR_phase == ILTR_PHASE30) 

resnum = ILTR_MSG_T0TAL_UPDATE_1ST; // updates applied to 1st system 
else 

^ resnum = ILTR_MSG_T0TAL_UPDATE_2ND; // updates applied to 2nd system 

else 

resnum = I LTR_MSG_TOTARG ; // # of records imported into TARGET 
IL_SPRINTF {szTemp, "%d", ILTR_recNum) ; 

if (ILAppendLog ( ILTR_hLog, ILTR_hRes, resnum, szTemp, NULL)) 
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if (nRc == SUCCESS) 

nRc = ILTR_ERR_LOGFILE; 

) 

if (ILTR_phase == ILTR PHASE ILX V3 MODE) 



{ 

// Close intermediate file. 

ILIFClose (ILTR_view) ; 
ILIFTerminate { ) ; 

// Free memory used for ILIF "play area" 

if (ILTR pILIF Globals != NULL) 



IL_FREE_AND_ZERO ( ILTR_hILIF_Globals / ILTR_pILIF Globals); 



else if (ILTR_pILTIF != NULL) 
{ 

// ILX_V4: put TIF back to sleep 

rc2 = ILTR_ILTIFCloseFileTemporarily (tr); 
if (nRc == SUCCESS) 

// report TIF error if it won't mask any other error 

nRc - rc2; 

} 

ILTR_bImpInitialized = FALSE; 

// Dump field mapping to log file when appropriate 

if (ILTR_nSynchronize == ILXTR_SYNC_NO || 
ILTR_phase == ILTR_PHASE40 I I 
(ILTR_rc && (ILTR_rc != ILTR_ERR_NORECS ) ) ) 
ILDumpFieldsToLog (tr, ILTR_hLog) ; 

// Free all fi e id list, field mapping and character mapping tables 

ILFreeTables (tr) ; 

// Free the field buffer 

if <ILTR_field. handle != NULL) 

IL_FREE_AND_ZERO ( ILTR_field . handle, ILTR f ield . buf f er ) ; 
ILTR_field. width = 0; 

// Signal end of import/export operation to progress window 

ILStatusEnd (tr) ; 

/ / pass back any error code 

return nRc; 

} // ImportEnd 



/* 

* GetNextRecord 



static int GetNextRecord ( ILTR_PTRANSL tr) 
{ 

int nRc; 

// Set default values for record name and action type. 

ILTR_szRecName [0] = ' \CT ; 
ILTR_nFldErrorNum = 0; 

IL_MEMSET (ILTR_fldError, '\0', sizeof ( ILTR_FLDERR) * ILTR_MAX_FLDERR) 

/* 

* Get a record -- from ILIF or from TIF 

* Also, for 2-pass translators, shift from 1st pass to 2nd 

* pass when 1st pass hits EOF. 

* Increment ILTR nRecNum. 



if (ILTR_phase == ILTR_PHASE_ILX_V3_MODE) 

nRc = GetNextRecordFromlLIF (tr); 
else 

nRc = GetNextRecordFromTIF (tr); 

if (nRc != ILTR_E0F) 
ILTR_recNum++; 

return nRc; 
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} // GetNextRecord 



/* 

* GetNextRecordF£pmILIF 

* Possible return codes are: 

* SUCCESS 

* ILTR_EOF 

* I LTR_ERR_NOMEM 

* ILTR_ERR_RECORD_TOO_BIG 
ILTR_ERR_NOIF 

* v 

static int GetNextRecordFromlLIF { ILTR_PTRANSL tr) 
( 

int nRc; 

NextRecord: 
// 

IL_SYNC_MEM ( ILTR_rec . handle, ILTR_rec. buffer) ; 

nRc = ILIFGetRecord (ILTR_view, ILTR_rec . buffer, ILTR_rec. width) ; 

if (nRc == I LI F_ERR_EOF ) 
{ 

// Found end of file. 

// Prepare for second pass if this is a two-pass translator. 

if { (ILTR_nSectionAttribs & ILTB_ATT TWOPASS) ILTR nPass — 1) 
{ 

char szSection [MAX_SECNAME_S I ZE ] ; // Section name 
int nSections; 



// Increment the pass number. 

ILTR_recNum = 0; 
ILTR_nPass++; 

// Close the section and intermediate file. 

ILIFClose (ILTR_view) ; 
ILIFTerminate { ) ; 

/* 

* Now re-open the intermediate file and section to 

* reposition at beginning. 
* v 

nRc = ILIFInit ( ILIF_ACC_SINGLE_FILE, 

ILTR_szWorkFile, 
I L_ATTR_READ , 
ILTR_NOT_USED, 

(int IL_DIST *) &nSections ); 
if (nRc !=» SUCCESS) 

return ILERROR (nRc, I LTR_E RR_NO I F ) ; 

IL_SPRINTF (szSection, "%d M , ILTR_nFunction) ; 
ILTR_view = ILIFOpen (szSection); 
if (ILTR_view == NULL_ILIF) 
return ILTR_ERR_NOIF; 

// Reset the bar for second import operation. 

ILStatusImport (tr, ILTR_nRecords ) ; 

// Go back and read first intermediate record. 

goto NextRecord; 

} 

else 

return ILTR_EOF; 

} 



/ + 

* Insufficient room in buffer to hold incoming record. 

* Reallocate the buffer size and retry. 
* */ 

while (nRc == I L I F_ERR_N0R00M ) 
{ 

/* 

* Increment buffer size and verify that it does not exceed 
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* fixed limit. 

* / 

ILTR_rec. width += MAX_IF_INCR; 

if ( ILTR_rec . width > MAX IF ALLOC) 

{ 

ILTR_rec. width -= MAX_IF_INCR; // back to currently allocated size 
return ltTR_ERR_RECORD TOO BIG; 

} 

// Reallocate the buffer to larger size. 

I L_REALLOC_MEM ( ILTR_rec . width, ILTR_rec . handle, ILTR_rec . buffer ) ; 

// Unable to allocate memory for larger buffer size. 

if (ILTR_rec. buffer NULL} 
return ILTR_ERR_NOMEM; 

// Now try reading the record again in the new buffer. 

nRc = ILIFGetRecord (ILTR view, ILTR rec . buf f er , ILTR rec. width); 
} - 

if (nRc != SUCCESS) 

// ERROR reading intermediate file record. 

return ILERROR (nRc, ILTR_ERR_NOIF) ; 

return SUCCESS; 
} // GetNextRecordFromlLIF 



/* 

* GetNextRecordFromTIF 

* 

static int GetNextRecordFromTIF {ILTR PTRANSL tr) 
{ 

int nRc = ILTR_ILTIFReadNextRecord (tr); 
if (nRc == TIF_EOF) 

return ILTR_EOF; 
else 

return nRc; 

} // GetNextRecordFromTIF 



* GetStartDate 



static int GetStartDate (ILTR PTRANSL tr, long IL DIST *plDate) 
{ " ~ 

int rc; 

int DateFieldlndex; 
ILTR_FLDPTR FieldList; 
IL_PSTR pFieldName; 
char cDateType; 
char szTmp [MAX_MSG] ; 
long len; 

// Get field list and field index needed for DATE field lookup 

if (ILTR_phase == ILTR_PHASE ILX V3 MODE) 
{ 

// when using ILIF, we use SOURCE fieldname to get date 

DateFieldlndex = ILTR_map . ApptDate; 
FieldList = ILTR_map . pSource; 

} 

else 

{ 

// for ILX_V4 (using TIF as intermediate file) 

// we use TARGET fieldname to get date 

int SourceFieldlndex = ILTR_map. ApptDate; 

DateFieldlndex = ILTR_map . pSource [SourceFieldlndex] . MapField; 
FieldList = ILTR_map. pTarget; 

} 

// Get field name and field type for DATE field 

pFieldName = FieldList [ DateFieldlndex] . IntName; 
cDateType = FieldList [ DateFieldlndex] . Type; 
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// Get field value from intermediate file 

len = (long) sizeof (szTmp) ; 

rc = ILTRGetField (tr, pFieldName, szTmp, ilen) ; //rc is ignored!! 

/* 

* Convert text or alpha date to number. 

* If the field is of type TEXT, convert it from 

* display format. Otherwise, assume that it is 

* stored in IntelliLink "alpha" DATE format (e.g. 19961231). 
v 

if (cDateType == ILX_TYPE_TEXT) 

IL_DisplayToCodeDate (szTmp, plDate) ; 
else 

*plDate = IL_AlphaToCodeDate (szTmp) ; 
return SUCCESS; 
} // GetStartDate 
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/* 
* 

+ 

* 
* 
* 
+ 
* 

* 
* 



File : 


ILXTRANS.CPP 




Purpose : 


This is SAMPLE CODE, which 


demonstrates how to code 




ILTR callback routines for 


an ILXTRANS . LIB-based translator 


Functions : 


ILTniTranslator 






TT YTraneDoni n 






ILXTransGet 






ILXTransPut 






ILXTransPutNext 






ILXTransEnd 






iLXTransNew 




Author : 


Dave McConville, Copyright 


(c) IntelliLink Corporation, 1995 



/ 



^include "ilxtrans . h" 

# include "ilxterr . h" 

#include "cilglobl.h" 

#include "cilfa.h" 

# include "cilrec . h" 

#include "cildata.h" 

# include "ciltrans . h" 

#include "dsample . h" 



// error codes & error handling protos 

// header for CILGlobalData class 

// header for CILField class 

// header for CILRecord class 

// header for CILDataStore class 

// header for CILTranslator class 

// sample derived CILDataStore class header 



* 
* 
* 
* 
* 

* 

* . 



Function 
Purpose : 



Input : 

Return: 
Author : 
Notes : 



ILIniTranslator 

Initialization routine for all translators. Its purpose is 
to allocate a new translator object and register all callback 
routines with the engine. This routine will also initialize 
portions of the translator object's data. 

tr pointer to ILTR translation structure 

ppTrans — pointer to pointer to CILTranslator object 
SUCCESS, ILTR_ERR_INVFUN, or ILTR_ERR_NOMEM 

Dave McConville, Copyright (c) IntelliLink Corporation, 1995 
A GlobalData object is allocated here and a pointer to it is 
stored in the m_pGlobalData member. A DataStore object is also 
allocated and its pointer stored in the GlobalData object. 



int IL DECL 



ILIniTranslator 

(ILTR_PTRANSL tr, 
IL PANY IL DIST 



/ 



int 

CILTransPtr 



iRc; 
pTrans; 



' ppTrans) 
// return code 

// pointer to translator object 



// construct new translator object 

pTrans = (CILTranslator *) new CILTranslator; 
if (pTrans == NULL) 

return ILTR ERR NOMEM; 



// create the GlobalData object 

pTrans->m_pGlobalData = (CILGlobalData *) 

// was it allocated? 

if (pTrans->m_pGlobalData == NULL) 
return I LTR_ERR_NOMEM; 

// call Initialization routine 

iRc = pTrans->Initialize (tr) ; 
if (iRc) 

return iRc; 



register call back routines to the engine 



new CILGlobalData () ; 



// 

ILRegisterBeginCB (tr, 

ILRegisterEndCB ( tr, 

ILRegisterGetCB ( tr, 

ILRegisterPutCB ( tr, 

ILRegisterRepeatCB ( tr, 

ILRegisterNewCB ( tr , 



(ILTR_CBFUN) ILXTransBegin ) ; 

(ILTR_CBFUN) ILXTransEnd) ; 

(ILTR_CBFUN) ILXTransGet) ; 

(ILTR_CBFUN) ILXTransPut) ; 

(ILTR_CBFUN) ILXTransPutNext) ; 

(ILTR CBFUN) ILXTransNew); 



// Save ptr to ciLTrans ptr in ILTR translation struct by setting ppTrans 

*ppTrans = (void *) pTrans; 
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// Initialization complete 

return SUCCESS; 

} 



+ 
+ 
* 
* 
★ 

* 

* 
+ 
* 



Function 
Purpose : 



Input : 

Return : 

Author : 
Notes : 



IL^TransBegin 

Glue code between ILTR and the actual translator. 
This function has been registered as the begin callback in the 
translation engine. Its purpose is to call the Begin member 
function of the CILTranslator object which is passed via ppTrans . 

tr pointer to ILTR translation structure 

ppTrans — pointer to pointer to CILTranslator object 

SUCCESS, ILTR_ERR_INVFUN, I LTR_ERR_CORRUPT_DATA, ILTR ERR FILE, 

or ILTR_ERR_NORECS 

Dave McConville, Copyright (c) IntelliLink Corporation, 1995 

The FieldArray and Record objects are allocated here and pointers 

to them are stored in the GlobalData object. 

v 



int IL DECL 



ILXTransBegin 

<ILTR_PTRANSL tr, 
IL PANY IL DIST * 



int 

CILTransPtr 
CILGlPtr 



iRc; 
pTrans ; 
gd; 



ppTrans ) 

// Function return code 

// pointer to CILTranslator object 

// pointer to GlobalData object 



// Establish pointer to CILTranslator object 

pTrans = (CILTransPtr) *ppTrans; 
if (pTrans == NULL) 

return ILERROR (0, ILXT_ERR_USAGE ) ; 

// Establish reference to GlobalData object 

gd = pTrans->m_pGlobalData; 
if (gd == NULL) 

return ILERROR (0, ILXT_ERR_USAGE) ; 

// Create the DataStore object 

pTrans->m_pGlobalData->m_pDataStore = (CILSampleData *) new CILSampleData () ; 

// was tne DataStore created? 

if (pTrans->m_pGlobalData->m_pDataStore == NULL) 
return ILTR_ERR_NOMEM; 

// Create the FieldArray object 

gd->m__pFldArray = (CILFieldArray *) new CILFieldArray (); 

// Was FieldArray object created? 

if (gd->m_pFldArray == NULL) 
return ILTR_ERR_NOMEM; 

// create the record object, pass along field array 

gd->m_pRecord = (CILRecord *) new CILRecord ( &gd->m_pFldArray ) ; 

// was Record object created? 

if (gd->m_pRecord == NULL) 
return ILTR_ERR_NOMEM; 

// Initialize the DataStore object 

iRc = gd->m_pDataStore->Initialize (tr, gd) ; 
if (iRc) 

return ILERROR (iRc, iRc); 



// call the "Real" Begin routine 

iRc = pTrans->Begin (tr); 

// return value 

return iRc; 

> 



/* _ 

* Function: ILXTransGet 

* Purpose: Glue code between ILTR and the actual translator. 

* This function has been registered as the Get callback in the 
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★ 
* 
* 
* 
+ 
* . 



Input : 
Return 
Author 



translation engine. Its purpose is to call the Get member 
function of the CILTranslator object which is passed via ppTrans 

tr pointer to ILTR translation structure 

ppTrans — pointer to pointer to CILTranslator object 
SUCCESS, ILTR_ERR_INVFUN, ILTR_ERR_CORRUPT_DATA, ILTR_ERR_FILE, 



or _ILTR_ERR_NORECS 
Dave McConville, Copyright 



(c) IntelliLink Corporation, 1995 



/ 



int IL_DECL ILXTransGet 

(ILTR_PTRANSL tr, 
IL_PANY IL DIST * ppTrans) 



{ 



// local "vars 

int iRc; 
CILTransPtr pTrans; 



// Function return code 

// pointer to CILTranslator object 



// Establish pointer to CILTranslator object 

pTrans = (CILTransPtr) *ppTrans; 
if (pTrans == NULL) 

return ILERROR (0, ILXT_ERR_USAGE) ; 

// call the "Real" Get routine 

iRc = pTrans->Get (tr); 

// return value 

return iRc; 

} 



/* 

* Function: ILXTransPut 

* Purpose: Glue code between ILTR and the actual translator. 

* This function has been registered as the Put callback in the 

* translation engine. Its purpose is to call the Put member 

* function of the CILTranslator object which is passed via ppTrans 

* Input: tr pointer to ILTR translation structure 

* ppTrans — pointer to pointer to CILTranslator object 

* Return: SUCCESS, ILTR_ERR_INVFUN, ILTR_ERR_CORRUPT_DATA, ILTR ERR FILE 

* or ILTR_ERR_NORECS ~ 

* Author: Dave McConville, Copyright (c) IntelliLink Corporation, 1995 

int IL_DECL ILXTransPut 

( ILTR_PTRANSL tr, 
IL_PANY IL_DIST * ppTrans) 

{ 

// local vars 

int iRc; // Function return code 

CILTransPtr pTrans; // pointer to CILTranslator object 

// Establish pointer to CILTranslator object 

pTrans = (CILTransPtr) *ppTrans; 
if (pTrans =- NULL) 

return ILERROR (0, ILXT_ERR_USAGE) ; 

// cal i the -"Real" Put routine 

iRc = pTrans->Put (tr); 



// return value 

return iRc; 



} 



+ 



+ 



Function : 
Purpose : 



Input : 

Return 
Author 



ILXTransPutNext 

Glue code between ILTR and the actual translator. 
This function has been registered as the Repeat callback in the 
translation engine. Its purpose is to call the PutNext member 
function of the CILTranslator object which is passed via ppTrans 

tr pointer to ILTR translation structure 

ppTrans pointer to pointer to CILTranslator object 
pRepeat - pointer to repeat struct 

SUCCESS, ILTR_ERR_INVFUN, ILTR_ERR_CORRUPT DATA, ILTR ERR FILE, 
or ILTR_ERR_NORECS 

Dave McConville,. Copyright (c) IntelliLink Corporation, 1995 
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inc IL_DECL ILXTransPutNext 

(ILTR_PTRANSL tr, 
IL_PANY IL_DIST * ppTrans, 
ILTR_PREPEAT pRepeat) 

{ 

// local vars 

int iRc; // Function return code 

CILTransPtr pTrans; // pointer to CILTranslator object 



/ 



// Establish pointer to CILTranslator object 

pTrans = (CILTransPtr) *ppTrans; 
if (pTrans « NULL) 

return ILERROR (0, ILXT_ERR_USAGE) ; 

// call the "Real" PutNext routine 

iRc = pTrans->PutNext (tr, pRepeat); 

// return value 

return iRc; 

} 



/* 

* Function: ILXTransEnd 

* Purpose: Glue code between ILTR and the actual translator. 



* This function has been registered as the End callback in the 

* translation engine. Its purpose is to call the End member 

* function of the CILTranslator object which is passed via ppTrans. 

* Input: tr pointer to ILTR translation structure 

* ppTrans -- pointer to pointer to CILTranslator object 

* Return: SUCCESS, I LTR_ERR_I NVFUN , ILTR_ERR_CORRUPT_DATA, ILTR ERR FILE, 

* or ILTR_ERR_NORECS ~ 

* Author: Dave McConville, Copyright (c) IntelliLink Corporation, 1995 



int IL_DECL ILXTransEnd 

(ILTR_PTRANSL tr, 
IL_PANY IL_DIST * ppTrans) 

{ 

// local vars 

int iRc; // Function return code 

CILTransPtr pTrans; // pointer to CILTranslator object 

CILGlPtr gd; // pointer to GlobalData object 

// Establish pointer to CILTranslator object 

pTrans = (CILTransPtr) *ppTrans; 
if (pTrans == NULL) 

return ILERROR (0, ILXT_ERR_USAGE) ; 

// reference global data 

gd = pTrans->m_pGlobalData; 

// call the "Real" End routine 

iRc = pTrans->End (tr) ; 

// destroy the record object 

delete (CILRecord *) gd->m_pRecord; 

// destroy the datastore 

delete (CILSampleData *) gd->m_pDataStore; 

// destroy the FieldArray 

delete (CILFieldArray *) gd->m_pFldArray; 

// free the GlobalData object 

delete gd; 

// translation is done: destroy translator object 

delete pTrans; 

// return value 

return iRc; 

} 
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/*■ 

* 
* 

* 
* 

* 
* 

+ . 



Function 
Purpose : 



Input: 
Return: 
Author : 



ILXTransNew 

Glue code between ILTR and the actual translator. 
This function has been registered as the New callback in the 
translation engine. Its purpose is to call the New member 
function of the CILTranslator object which is passed via ppTrans 

tr~ pointer to ILTR translation structure 

ppTrans -- pointer to pointer to CILTranslator object 

SUCCESS, I LT R_E RR_ I N V FUN , ILTR_ERR_CORRUPT_DATA, ILTR ERR FILE, 

or ILTR_ERR_NORECS 

Dave McConville, Copyright (c) IntelliLink Corporation, 1995 



/ 



int IL DECL 



ILXTransNew 

{ ILTR_PTRANSL tr, 
IL PANY IL DIST * 



/ / local vars 

int iRc; 
CILTransPtr pTrans; 



ppTrans) 

// Function return code 

// pointer to CILTranslator object 



// Establish pointer to CILTranslator object 

pTrans = (CILTransPtr) *ppTrans; 
if (pTrans NULL) 

return ILERROR (0, ILXT_ERR_USAGE) ; 

// call the "Real" New routine 

iRc = pTrans->New (tr) ; 

// return value 

return iRc; 

} 
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#if !def inedt CILTRANS) 

/* 

* Module: ciltrans.h 

* Purpose: Header file for generic Translator class 

* Author: Dave McConville, Copyright (c) IntelliLink, 1995 

* Notes: All objects are implemented with pure C++ in order to allow these 

* class "to be platform independent. No use of MFC or MacApp has been 

* made . 

v 

#define CILTRANS // Indicate header inclusion 

// Include all the relavent headers 

#include "cilglobl . h" 
#include "iltr.h" 

/* 

* ILTranslator class. 
+ */ 

#define CILTransPtr CILTranslator * 
class CILTranslator 

( 

public : 

// Class constructor 

CILTranslator { ) ; 

// Class destructor 

-CILTranslator ( ) ; 

/* 

* Caller accessible functions 
* */ 

virtual int Initialize // Initialization routine 

(ILTR_PTRANSL tr) ; // pointer to ILTR translator structure 

virtual int Begin // Translator Begin processing 

(ILTR_PTRANSL tr) ; // pointer to ILTR translator structure 

virtual int Get // Translator Get processing 

- { ILTR_PTRANSL tr) ; // pointer to ILTR translator structure 

virtual int PutRepeatToIL // wrapper for ILPutRepeat function 

( ILTR_PTRANSL tr, 

ILTR_PREPEAT pRepeat, 
IL_PSTR szStartField, 
IL_PSTR szEndField ); 

virtual int Put // Translator Put processing 

(ILTR_PTRANSL tr) ; // pointer to ILTR translator structure 

virtual int PutNext // Translator Put a single record 

(ILTR_PTRANSL tr, // pointer to ILTR translator structure 

ILTR_PREPEAT pRepeat); // pointer to repeat info for this rec 

virtual int End // End call back function 

(ILTR_PTRANSL tr) ; // pointer to ILTR translator structure 

virtual int New // New call back function 

( I LTR_PTRANSL tr) ; // pointer to ILTR translator structure 

virtual int CreateTIF // Create TIF file and define TIF fields 

( I LTR_PTRANSL tr) ; // pointer to ILTR translator structure 

virtual int LoadTlF // Load TIF file with existing data 

{ ILTR_PTRANSL tr) ; // pointer to ILTR translator structure 

virtual int UnloadTIF // UnLoad TIF records to data store 

( I LTR_PTRANSL tr) ; // pointer to ILTR translator structure 

virtual int UnloadRecord // UnLoad a single TIF record 

{ ILTR_PTRANSL tr) ; // pointer to ILTR translator structure 

virtual int Unloadlnstance // UnLoad one fanned instance of an item 

(ILTR_PTRANSL tr, // pointer to ILTR translator structure 



Copyright ©1996 Puma Technology, Inc. All Rights Reserved. 



Ciltrans.h 



Page 2 of 2 



ILTR_PREPEAT pRepeat); // 

virtual int OpenDataStore // 

(ILTR_PTRANSL tr, // 

CILGlPtr gd, * // 

int „ nMode); // 

virtual int FanBef oreUnload 
(ILTR_PTRANSL tr) ; 

// member attributes 

CILGlPtr m_pGlobalData; // 

BOOLEAN m bNewFile; // 



pointer to repeat info for this rec 

Open data store, handling passwords 
Pointer to ILTR translator structure 
Pointer to GlobalData object 
Open mode (read or write) 



pointer to global data structure 
TRUE if processing new file 



// Fan all items that need to be fanned 
// pointer to ILTR translator structure 



#endif // CILTRANS 
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/ 



* 

* 
* 
* 
* 
* 
+ 
* 
* 
* 



+ 
* 

* 
+ 
* 
* 
+ 



File: 
Purpose : 



Functions 



CILTRANS.CPP 

This module contains the implementation for the member functions 
of the CILTranslator class. 



CILTransl 
CILTransl 
CILTransl 
CILTransl 
CILTransl 
CILTransl 
CILTransl 
CILTransl 
CILTransl 
CILTransl 
CILTransl 
CILTransl 
CILTransl 
CILTransl 
CILTransl 
CILTransl 
IL_Output 
MakeLdgMe 



ator 
ator 
ator 
ator 
ator 
ator 
ator 
ator 
ator 
ator 
ator 
ator 
ator 
ator 
ator 
ator 



CILTranslator (constructor) 
-CILTranslator (destructor) 
Initialize 
Begin 

OpenDataStore 

Get 

Put 

PutNext 

End 

New 

CreateTIF 

LoadTIF 

UnloadTIF 

UnloadRecord 

Unloadlnstance 

FanBef oreUnload 



DebugLog 
ssage 



Author: Dave McConville, Copyright (c) IntelliLink Corporation, 1995-6 



/ 



#include 
#include 
#include 
#include 
#include 
#include 
tinclude 

// Internal function for invoking the Choose Records dialog 

static int CallChooseRecords ( ILTR_PTRANSL tr) ; 

// Type for ChooseRecords function pointer 

typedef DLLEXPORT int (IL_DECL EXP *PCHOOSE) (ILTR PTRANSL tr) ; 



"cilglobl.h" 

"ciltrans.h" 

"cilfa.h" 

"cildata.h" 

"cilrec.h" 

"ilxtrans.h" 

"ilxterr .h" 



// header for CILGlobalData class 

// header for CILTranslator class 

// header for CILField class 

// header for CILDataStore class 

// header for CILRecord class 

// error codes & error handling protos 



/* 

* Function 

* Purpose 

* Parameters 

* Returns 



CILTranslator: : CILTranslator 
Class constructor, initialize data members 
none 
none 

+ v 

CILTranslator: : CILTranslator () 

{ 

mjpGlobalData = NULL; // global data not yet allocated 
m_bNewFile = FALSE; // assume using existing file 

} ; 



/* 

* Function : CILTranslator :: -CILTranslator 

* Purpose : Class destructor 

* Parameters : none 

* Returns : none 



CILTranslator: : -CILTranslator () 

{ 

} 



/* 

* Function : CILTranslator :: Initialize 

* Purpose : The routine is provided to do initalization for the 

* . translator . 

* Parameters : tr pointer to ILTR translation structure 

* Returns : ILXT_OK - all is well, 

* v 

int CILTranslator :: Initialize (ILTR PTRANSL tr) 

{ 

return ILXT OK; 

) 
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/*■ 



Function : 
Purpose: 



Input : 
Return 



Author 



CILTranslator : : Begin 

This routine is the implementation for the Begin member function 
of-the CILTranslator class. It is to be used as the Begin 
callback routine from ILTR. 

tr pointer to ILTR translation structure 

SUCCESS - all is well 

I LXT_ERR_USAGE - null pointer to global data passed 

ILTR_ERR_NOMEM - unable to allocate memory 

I LTR_ERR_NORECS - no records to export 

I LXT_ERR_T I F or I LXT_E RR_FAI L - abnormal TIF problems 

Dave McConville, Copyright (c) IntelliLink Corporation, 1995 



int 
{ 



CILTranslator :: Begin (ILTR PTRANSL tr) 



/ 



CILFldArrayPtr pFieldArray; // Pointer to field array object 

int nFieldCount = 0; // Number of fields in field array 

int iRc; // Return code variable 

CILGlPtr gd; // Pointer to GlobalData object 

CILDataStore *pDataStore; // Pointer to DataStore object 

BOOLEAN bOpened; // was DataStore opened? 

// Establish pointer to application global 

gd = this->m_pGlobalData; 
if (gd == NULL) 

return ILERROR (0, ILXT_ERR_USAGE) ; 

// Fetch the DataStore object from gd 

pDataStore = gd->m_pDataStore; 

// Fetch the FieldArray object from gd 

pFieldArray = gd->m_pFldArray; 

// Initialize FieldArray, allocate and init Field objects 

iRc = pFieldArray->Initialize (tr, gd) ; 
if (iRc) 

LOG_ERROR_AND_EXIT (iRc, iRc) ; 
/* 

* Determine if the translator needs to perform ToDo range checking. 

* Check must be performed on each record if this is a to do section 

* and a date range has been specified. But we turn off date range 

* checking for SYNC and when doing export before import 
* */ 

if ( ( (ILTR_nFunction == ILTR_TODO) ft (ILTR nFunction == ILTR CALL)) 
&& ( ILTR_nLoDate != 0) 
&& (ILTR_nHiDate != 0) 
&& ( ILTR_direction == ILTR_EXPORT) 
&& (ILTR_nSynchronize == ILXTR_SYNC_NO) 
&& (ILTR_phase != 10) ) 
gd->m_bToDoRangeCheck = TRUE; 

/* 

* Determine if the translator should check for and skip done to do items. 

* We never skip done to do items when doing synchronization, and we 

* don't skip done todo items when doing "Export before Import" 
* V 

if ( ( (ILTR_nFunction ILTR_TODO) I I ( ILTR_nFunction == ILTR CALL)) 
&& (ILTR_direction — ILTR_EXPORT) ~ 
&& ( ILTR_nSynchronize ILXTR_SYNC_NO) 
&& (ILTR_phase != 10) ) 
gd->m_bToDoDoneCheck = TRUE; 

/* 

* Alocate the record and field buffers storing pointers and handles 

* in GlobalData. The size of these buffers is determined by the data 

* store. It is okay for the datastore to specify a zero length record 

* buffer in the event a record buffer is not needed. 
* */ 



// 
if 
{ 



Do we need to allocate a record buffer? 

(pDataStore->m uilnitRecBuf Size) 
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// Allocate it 

gd->m_lpRecBuf = (IL_PSTR) IL_ALLOC (pDataStore->m_uiIni tRecBuf Si ze , 

gd->m_hRecBuf ) ; 

// Was record buffer allocated? 

if <gd->m_lp.RecBuf == NULL) 

EXIT_WITH_ERROR ( ILTR_ERR_NOMEM) ; 

// Remember the size of the Record buffer 

gd->m_uiRecBuf Size = pDataStore->m_uiInitRecBuf Size; 

} 

// Allocate field buffer 

gd->m_lpFldBuf = (IL_PSTR) IL_ALLOC (pDataStore->m_uiInitFldBuf Size, 

gd->m_hFldBuf ) ; 

// Was field buffer allocated 

if (gd->m_lpFldBuf NULL) 

EXIT_WITH_ERROR ( ILTR_ERR_NOMEM) ; 

// Remember the size of the field buffer 

gd->m_uiFldBufSize = pDataStore->m_uiInitFldBuf Size; 

// Do we need to allocate a conversion buffer? 

if (pDataStore->m_uiConvBuf Size) 
t 

// Allocate it 

gd->m_lpConvBuf = (IL_PSTR) IL_ALLOC ( pDataStore->m_uiConvBuf Size, 

gd->m_hConvBuf ) ; 

// Was conversion buffer allocated? 

if (gd->m_lpConvBuf == NULL) 

EXIT_WITH_ERROR ( ILTR_ERR_NOMEM) ; 

// Remember the size of the conversion buffer 

gd->m_uiConvBuf Size = pDataStore->m_uiConvBuf Size; 

} 

// Are we exporting or importing? 

if <ILTR_nCmd == ILTR_EXPORT) 
{ 

/* 

* If we are in ILX_V4 mode and this is actually the export before 

* import phase (Phase 10), then don't need to export if ILTR_UpdOpt 

* is set to UPD_NONE, unless the DataStore always needs to be 

* recreated on an import. 

* v 

if <(ILTR_phase == ILTR_PHASE10 ) && 

{ (ILTR_nUpdOpt == UPD_NONE) && ( ! pDataStore->m_bMustRewri teData) ) ) 
£XIT_WITH_ERROR ( ILTR_ERR_NORECS ) ; 

/* 

* If the "nonexistent file shortcut" is enabled, and file does not 

* exist, take the shortcut, reporting NO RECORDS. 

* v 

if ( (ILTR_Flags & ILTR__FLAG_SEE_IF_FILE_EXISTS ) 
&& IL_DOESNT_EXIST{ ILTR^szAppFile) ) 
EX I T_W I T H_E RROR ( I LTR_ERR_NORECS ) ; 

// Initialize the Application data store for reading 

iRc = OpenDataStore (tr, gd, IL_ATTR_READ) ; 

if (iRc == ILTR_ERR_CANCEL) 

EXIT_WITH_ERROR (iRc) 
else if (iRc) 

LOG_ERROR_AND_EXIT (iRc, iRc); 

// Get record count from Application; returned in gd->m_lNumRecs 

pDataStore->RecordCount (tr, gd) ; 

// Exit with error if no records to export 

if (gd->m_lNumRecs <- 0) 

EXIT_WITH_ERROR ( ILTR_ERR_NORECS ) ; 

// Tell ILTR how many records we have for status 

ILSetRecCount (tr, gd->m lNumRecs) ; 
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// Inform Get processing we are going to ILIF 

gd->m_n Phase = ILXT_EXPORT; 

} // if (ILTR_nCmd == ILTR_EXPORT) 

*■ 

// we are importing (ILTR_nCmd != ILTR_EXPORT) . 

else 
{ 

// Load TIF database, only if operating in ILX_V3 mode. 

if (ILTR_phase == ILTR_PHASE_ILX_V3 MODE) 
{ 

// Create the TIF file 

if (iRc = this->CreateTIF (tr)) 
LOG_ERROR_AND_EXIT (iRc, iRc); 

/* 

* If importing to an existing file and the reconciliation option 

* is NOT set to NONE then we must open the DataStore for reading 

* and load TIF with existing records. Also if the DataStore must 

* always be rewritten on import then we must do the Export before 

* import. 
* */ 

if ( { !m_bNewFile) && { ( ILTR_nUpdOpt != UPD_NONE) || 
(pDataStore->m_bMustRewriteData) ) ) 

{ 

// open the Application data store for reading existing data 

iRc = OpenDataStore {tr, gd, IL_ATTR_READ) ; 

// Assume zero record count if we can't open the data store 

if (iRc) 
{ 

// User cancel is a special case 

if (iRc == ILTR_ERR_CANCEL) 
EXIT_WITH_ERROR (iRc) ; 

/* 

* It might be good to call "ILERROR ( iRc, 0) M to log the failure 

* of OpenDataStore, but it's not crucial since another 

* OpenDataStore call is coming, and we log failures there. 



bOpened = FALSE; 
gd->m_lNumRecs = 0; 

i 

// DataStore was opened, get record count into gd->m_lNumRecs 

else // (iRc == SUCCESS -- data store successfully opened) 

bOpened ~ TRUE; 

pDataStore->RecordCount (tr, gd) ; 

} 

// Are there any existing records? 

if (gd->m_lNumRecs > 0) 
{ 

// Inform Get processing we are going to TIF 

gd->m_nPhase = ILXT_EXPORT_BEFORE_IMPORT; 

// Load tne TIF file with existing data 

iRc = this->LoadTIF (tr); 
if (iRc == ILTR_ERR_CANCEL) 

EXIT_WITH_ERROR (iRc) 
else if (iRc) 

LOG_ERROR_AND_EXIT (iRc, iRc) ; 

} 

// Close the store, if it was opened 

if (bOpened) 
{ 

iRc = pDataStore->Close (tr, gd) ; 
if (iRc) 

LOG_ERROR_AND_EXIT (iRc, iRc); 

} 

} // end if (existing file) 

// Set tne TIF reconcilation option 
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iRc = ILTIFSetReconcile (tr, ILTR_nUpdOpt) ; 
if (iRc) 

{ 

// Weird: bad reconcile option or TIF doesn't like us 

LOG_E RROR_AND_EX I T (iRc, I LXT_E RR_T I F ) ; 

} // if (ILTR phase ILTR PHASE TLX V3 MODE) 



// NoW/ 0 p en the data store for writing 

iRc = OpenDataStore (tr, gd, IL_ATTR_WRITE) ; 
if (iRc == ILTR_ERR_CANCEL) 

EXIT_WITH_ERROR (iRc) 
else if (iRc) 

LOG_ERROR_AN D_EX I T (iRc, iRc) ; 

// And setup to import incoming records 

gd->m_nPhase = ILXT_IMPORT; 

} // if (ILTR_nCmd == ILTR_EXPORT) ... else 

Exit: 

// Return status 

return iRc; 

} // CILTranslator: :Begin 



/ 



Function 
Purpose 



CILTranslator: : OpenDataStore 

Member function to open the data store, and handle password 
failures by prompting the user for the password and retrying 

tr pointer to ILTR translation structure 

gd global data pointer 

nMode open mode 

Status code from open or password fetch 
* v 

int CILTranslator :: OpenDataStore 

( ILTR_PTRANSL tr, // Pointer to translator info 

CILGlPtr gd, // Pointer to global info 

int nMode) // Open mode (read or write) 



Parameters 



Returns 



{ 

// 

#ifdef 
int 
int 
ILTR 



If building for Windows, we may need to prompt for a password 
ILWIN 

i'* // Loop counter 

iRc; // Return code 

_PSWD sPasswordlnfo; // Info for password prompting 



// Init password info structure 

IL_MEMSET UsPasswordlnfo, 0, sizeof (sPasswordlnfo) ) ; 

sPasswordlnfo . hWin = ILTR_hProgWin; 

sPasswordlnfo . hlnst = hXlatorlnst; 

IL_STRCPY (sPasswordlnfo. sz File, ILTR_szAppFile) ; 

IL_STRCPY (sPasswordlnfo. szCurWD, ILTR_szCurWD) ; 

// Trv opening the data store 

iRc = gd-> m_pDataStore-> Open (tr, gd, nMode); 

// Retry password up to 5 times 

for (i = 0; i < 5; i++) 
{ 

// Handle password failure here 

if (iRc !=* ILTR_ERR_BADPSWD) 
break; 



// Q et password from user 

iRc = ILGetPassword (tr, ^sPasswordlnfo) ; 



// Get out 

if (iRc) 

return iRc; 



now if this failed 



// Copy over result and try again 

IL_STRCPY (ILTR_szPswd, sPasswordlnfo . szPswd) ; 
iRc = gd-> m_pDataStore-> .Open (tr, gd, nMode) ; 
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return iRc; 

// Not building for Windows, simply open the data store and return status 

#else 

return gd->m_pDataStore->Open (tr, gd, nMode) ; 
flendif 



} // CILTranslator : : OpenDataStore 



/*■ 
+ 

★ 

* 

* 

* 

+ 

* 

+ 



Function: 
Purpose : 



Input : 
Return : 



Author : 



CILTranslator->Get member function 

This routine is the implementation for the Get member function 
of the CILTranslator class. It is to be used as the Get 
callback routine from ILTR. 

tr - pointer to ILTR translation structure 
SUCCESS - all is well 

ILXT_ERR_USAGE - null pointer to global data passed 
ILTR_ERR_NOMEM - unable to allocate memory 

Dave McConville, Copyright (c) IntelliLink Corporation, 1995 



int CILTranslator : :Get ( ILTR_PTRANSL tr) 
{ 



/ 



int 


iRc; 


// 


return code variable 


int 


iRc2; 


// 


return code variable 


CILGlPtr 


gd; 


// 


pointer to application global data 


CILRecPtr 


pRec; 


// 


object for current record; 


CILDataStore * 


pDataStore; 


// 


pointer to the current data store 


CILFieldArray * 


pFldArray; 


// 


pointer to field array 


CILField * 


pField; 


// 


pointer to field object 


ILTR REPEAT 


sRepeatlnfo; 


// 


ILTR repeat structure 


IL HANDLE 


hExDates ; 


// 


handle to exclusion list 


ILTR P DATES 


pExDates ; 


// 


pointer to exclusion list 


INT16 


nNumExDates; 


// 


number of exclusion dates 


char 


szStart 


// 


label for start date field 




[ILTR_MAX_ 


FLDNAME + 1] ; 


char 


szEnd 


// 


label for end date field 




[ILTR_MAX_ 


FLDNAME + 1] ; 


// establish 


pointer to application global 


gd = this->m pGlobalData; 






if (gd == NULL) 








return ILERROR 


(0, ILXT_ERR_ 


USAGE) ; 



// fetch the DataStore object from gd 

pDataStore = gd->m_pDataStore; 

// fetch the field array object from gd 

pFldArray = gd->m_pFldArray; 

// fetch the record object from gd 

pRec = gd->m_pRecord; 

// store pointer to repeat struct in gd 

gd->m_pRepeatInfo = ssRepeatlnfo; 

// zero out the. ILTR repeat structure 

IL_MEMSET (SsRepeatlnfo, 0, sizeof ( ILTR_REPEAT) ) ; 

// reset the repeat flag 

gd->m_bRepeatingAppt = FALSE; 

// Get next record to export 

if (iRc - pDataStore->BeginReadRecord (tr, gd) ) 
{ 

// Check if this was a (potentially) recoverable "bad record" error 

if (iRc == ILTR_ERR_BAD_RECORD) 
{ 

// Invalid record data, log error message (text in ILTR.RC) 

ILAppendLog ( ILTR_hLog, hXlatorlnst, I LTR_MSG_BAD_RECORD , 

ILTR_szRecName , NULL ) ; 

// Skip writing this record and continue translation 

EXIT_WITH_ERROR ( ILTR_SKIP ALL) ; 
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} 

/* 

* Not a "bad record error". The return code might either be a serious 

* (unrecoverable) error or simply ILTR_E0F indicating the normal end of 

* the export process. In either case, we return to export to handle it 
* */ 

else 

EXIT WITH ERROR (iRc); 



* We have a valid record and all related data. Now we simply tell the 

* record to process each field in accordance with the information in the 

* field array 
* */ 

iRc = pRec->GetRecord (tr, gd) ; 

if (iRc >= ILTR_SKIP_WRITE && iRc <= ILTR_SKIP_ALL) 
{ 

// Assure that EndReadRecord is called 

iRc2 = pDataStore->EndReadRecord (tr, gd) ; 

if (iRc2) 

{ 

if (iRc2 >= ILTR_SKIP_WRITE && iRc2 <= ILTR_SKIP ALL) 

EXIT_WITH_ERROR (iRc2) 
else 

LOG_ERROR_AND_EXIT (iRc2, iRc) ; 

} 

EXIT_WITH_ERROR (iRc) 

} 

else if (iRc) 

LOG_ERROR_AND_EXIT (iRc, iRc) ; 

// reset the pointer to repeat struct in gd 

gd->m_pRepeatInf o = NULL; 

// p ut out repeat structure 

if (gd->m_bRepeatingAppt) 

{ 

// reset repeat flag 

gd->m_bRepeatingAppt = FALSE; 

// get start date field label 

if (gd->m_nStartIndex != -1) 

{ 

pField = pFldArray->At (gd->m_nStartIndex) ; 
IL_STRCPY (szStart, pField->m_szLabel) ; 

} 

else 

szStart[0] = '\0'; 

// get enc j d a te field label 

if (gd->m_nEndIndex != -1) 

{ 

pField = pFldArray->At (gd->m_nEndIndex) ; 
IL_STRCPY (szEnd, pField->m_szLabel ) ; 

} 

else 

szEnd[0] = '\0'; 
/* 

* If this is a normal export then put the repeat info to ILIF 

* (or TIF) using ILPutRepeat which will make the decision. 
*-- — */ 

if ('gd->m_nPhase == ILXT_EXPORT) 
{ 

// Write the repeat info to ILIF (or TIF) 

ILPutRepeat (tr, isRepeatlnf o, szStart, szEnd) ; 

// if there are exclusions, free the exclusion list. 

if (sRepeatlnfo. exDates) 

I L_FREE_AN D_Z E RO (sRepeatlnfo . hExDates , sRepeatlnfo . exDates ) ; 

} 

/* 

* If we are importing and running in ILX V3 mode, we are doing an 
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* "export before import" and need to put the repeat information 

* directly to TIF. 
* */ 

else if (ILTR_phase « ILTR_PHASE_ILX_V3_M0DE) 
( 

/* _ 

* To write the repeat information to TIF we need to write TWO 

* fields. The first first is the "Basic" repeat information field 

* and the second is the list of exclusion dates which may be empty, 
+ * i 

II save the exclusion list count, handle and pointer 

nNumExDates = sRepeatlnf o . numExDates ; 
hExDates = sRepeatlnf o . hExDates ; 
pExDates = sRepeatlnf o. exDates; 

// clear handle and pointer in the Basic Repeat structure 

sRepeatlnfo . hExDates = NULL; 
sRepeatlnfo. exDates = NULL; 

// Write the Repeat basic field to TIF 

iRc = ILTIFPutField { tr, ILTR_REP_BASIC, SsRepeatlnf o, 

sizeof <ILTR_REPEAT) ) ; 

if (iRc) 
{ 

if (nNumExDates) 

IL_FREE_AND_ZERO (hExDates, pExDates) ; 
LOG_ERROR_AN D_EX I T (iRc, iRc) ; 

} 

// Write out the exclusion list only if it is not empty 

if (nNumExDates ) 
{ 

iRc = ILTIFPutField ( tr, ILTR_REP_XDATE, pExDates, 

(nNumExDates * sizeof (long)) ); 
I L_ FRE E_AN D_ Z E RO (hExDates, pExDates) ; 
if (iRc) 

LOG_ERROR_AND_EXIT (iRc, iRc) ; 

} 

) 

) 

I* 

* Call DataStore to allow any post read record processing. This gives 

* the DataStore the ability to determine if this record should actually 

* be put out. 
* * i 

iRc = pDataStore->EndReadRecord (tr, gd) ; 

if (iRc) 

( 

if (iRc >= ILTR_SKIP_WRITE && iRc <= ILTR_SKIP_ALL) 

EXIT_WITH_ERROR (iRc) 
else 

LOG_ERROR_AND_EXIT (iRc, iRc) ; 

} 

// No errors or skip code returned, so return SUCCESS. 

iRc = SUCCESS; 

Exit : 

// set action to SKIP if necessary 

if ( iRc >= ILTR_SKIP_WRITE 

&& iRc <= ILTR_SKIP_ALL 

&& ILTR_action == ILTR_ACT_READ ) 
ILSetAction (tr, ILTR_ACT_SKIP) ; 

// pass along return code, possibly an error, or a "skip" code. 

return iRc; 

} // CILTranslator : :Get 

/* 

* Function: CILTranslator :: Put 

* Purpose: This routine is the implementation for the Put member function 
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* 
* 
+ 

* . 



* of the CILTranslator class. It is to be used as the Put 

* callback routine from ILTR. 

* Input: tr - pointer to ILTR translation structure 

* Return: SUCCESS - all is well 

I LXT_ERR_US AGE - NULL pointer to global data passed 

ILtR_ERR_NOMEM - unable to allocate memory 

Author: Dave McConville, Copyright (c) IntelliLink Corporation, 1995 
+ / 

int CILTranslator :: Put ( ILTR_PTRANSL tr) 

{ 

.CILGlPtr gd; // pointer to application global data 

ILTR_REPEAT sRepeatlnfo; // IL Repeat info 

int iRc; // return code 

CILDataStore *pDataStore; // pointer to DataStore object 

// establish pointer to application global 

gd = this->m_pGlobalData; 
if (gd == NULL) 

return ILERROR (0, ILXT_ERR_USAGE) ; 

// fetch the DataStore object from gd 

pDataStore = gd->m_pDataStore; 

// reset repeating appointment flag 

gd->m_bRepeatingAppt = FALSE; 

// Check for repeat info 

sRepeatlnfo. exDates = NULL; 
iRc = ILGetRepeat (tr, fisRepeatlnf o) ; 
if (iRc && iRc != ILTR_ERR_NOFLD) 
return ILERROR (iRc, iRc) ; 

// store the pointer to the repeat info in global data 

gd->m_pRepeatInf o = fisRepeatlnf o; 

/* 

* If no repeat data found, or if the repeat type is "no repeat" and the 

* number of days is 1, we simply put the record without repeat processing 

: — v 

if ( iRc == ILTR_ERR_NOFLD | | 

(sRepeatlnfo. type == I LTR_NORE PEAT && sRepeat Inf o . numDays 1) ) 
iRc = PutNext (tr, fisRepeatlnf o) ; 

/* 

* When doing Synchronization, we never fan here. 
But for SmartMerge we check to see whether fanning is necessary. 

+ / 

else 
( 

if (ILTR_nSynchronize == ILXTR_SYNC_NO) 

iRc = pDataStore->CanPutRepeat (tr, gd) ; 
else 

// synchronizing, so fanning is not done yet 

iRc = SUCCESS; 

if (iRc == I LXT_ERR_MUST_FAN ) 

{ 

// p an anything that we can't preserve 

iRc = ILRepeatltem (tr, fisRepeatlnf o, pDataStore->m_nMaxRepeat ) ; 

// Free excluded dates, if any 

if (sRepeatlnfo . exDates != NULL) 

IL_FREE_MEM ( sRepeatlnfo . hExDates , sRepeatlnfo . exDates ) ; 

I 

else 
{ 

// this is a repeating appointment 

gd->m_bRepeatingAppt = TRUE; 

// no neec i to fan: put out item 

iRc = PutNext (tr, fisRepeatlnf o) ; 

} 

) 

II Clear the repeat information pointer and return status 

gd->m_pRepeatInfo = NULL; 



* 
+ 
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return iRc; 



} // CILTranslator : : Put 



/* 
+ 

* 

* 

★ 
* 

* 

+ 
+ 

* 

* 

* 
* 
+ 
* 

* 

* 
+ 



Function : 
Purpose : 



NOTE: 



Input : 
Return 



Author 



CILTranslator: : PutNext 

This routine is the implementation for the PutNext member function 
of the CILTranslator class. It is to be used as the Repeat 
callback routine from ILTR. 

this function is called in two different contexts: 

* during the Sanitizing Source Records phase, also known as 
"Put Processing", which is used in both ILX_V3 mode, and in 
Phase 30 of ILX_V4 mode, ... 

* and during the Unload-to-App phase, which is part of 
* End Processing 1 . 

The key differentiator between these two contexts is 
the ILTR_nProcessStage. 

tr - pointer to ILTR translation structure 
pRepeat - pointer to repeat info for this rec 
SUCCESS - all is well 

ILXT_ERR_USAGE - NULL pointer to global data passed 
ILTR_ERR_NOMEM - unable to allocate memory 
ILTR_ERR_CANCEL - user cancel 
I LXT_ERR_T I F - problems writing to TIF 

Dave McConville, Copyright (c) IntelliLink Corporation, 1995 



in 

{ 



t CILTranslator :: PutNext ( ILTR_PTRANSL tr, ILTR_PREPEAT pRepeat) 



/ 



int 


iRc; 


// 


return code 


int 


nFields ; 


// 


number of fields in field array 


int 


i; 


// 


loop variable 


unsigned int 


uiFldLen; 


// 


length of field buffer 


unsigned int 


uiMaxBuf Size; 


// 


max size of field buffer 


CILGlPtr 


gd; 


// 


pointer to application global data 


CILField 


*pField; 


// 


pointer to field object 


CILField 


*pFieldRepBasic 


= NULL; // pointer to RepBasic field object 


CILField 


*pFieldRepExcl = 


NULL; 


// pointer to RepExcl field object 


CILFieldArray 


*pFldArray; 


// 


pointer field array 


CILDataStore 


*pDataStore; 


// 


pointer to DataStore object 


IL HANDLE 


hExDates ; 


// 


handle to exclusion list 


ILTR PDATES 


pExDates ; 


// 


pointer to exclusion list 


INT16 


nNumExDates ; 


// 


number of exclusion dates 


char 


szMsg [ILTB_MAX 


MSG] ; 


// Debug message log text 


ILTR_PREPEAT 


pRepeatlnf o; 


// 


pointer to ILTR repeat structure 



// When we're called here during UNLOAD-to-APP, call Unloadlnstance 

if (ILTR_nProcessStage == ILTR_END) 

return Unloadlnstance (tr, pRepeat) ; 

// establish pointer to application global 

gd = this->m_pGlobalData; 
if (gd ™ NULL) 

return ILERROR (0, ILXT_ERR_USAGE) ; 

// fetch the field array from gd 

pFldArray = gd->m_pFldArray; 

// fetch the DataStore object from gd 

pDataStore = gd->m_pDataStore; 

// store the pointer to the repeat info in global data 

gd->m_pRepeatInfo = pRepeat; 

// retrieve number of fields. 

nFields = pFldArray->m_nFields; 

// retrieve max buffer size from data store 

uiMaxBufSize = pDataStore->m_uiMaxFldBuf Size; 

/* 
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on 



* Add the current IntelliLink ILIF record to the TIF reconciliati 

* database, TIF will handle detecting and resolving conflicts. 
* */ 

// Place a new line in the debug log if debug logginq 

IL_OutputDebugLog (tr, "") ; 
IL_OutputDebugtog (tr, "Importing Record"); 

// Put eacn fi eld in tne mtelliLink field list to the TIF DB 

for (i =0; i < nFields; ++i) 

{ 

// get current field object from field array 

pField = pFldArray->At (i); 

// sJcip em p t y slots in field array 

if (pField == NULL) 
continue; 

// Skip the repeat fields; we handle them last. 

if (pField->m_nFieldAction == ILXT_ACT_REPEATBASIC) 

pFieldRepBasic = pField; 
continue; 

> 

if (pField->m_nFieldAction == ILXT_ACT_REPEATXDATES) 

pFieldRepExcl = pField; 
continue; 

} 

/* 

* Skip ID fields and the _subType and _Delta fields. 

* If the SST mechanism is enabled then the subType field is put into 
*^TIF when ILTIFPutField is called for the TAGGED field. 

if { pField->m_nFieldAction == ILXT_ACT_RECORDID | | 

pField->m_nFieldAction ==* ILXT_ACT_UNIQUEID | | 
pField->m_nFieldAction ILXT_ACT DELTA ) 
continue; ~ 

// skip (non-hidden) unmapped fields? 

if ( pDataStore->m_bOnlyMappedInTIF && 

pField->m_bIsMapped ~= FALSE && 

! (pField->m_ulAttribs & ILTB_ATT_HIDDEN FIELD) ) 
continue; - 



w 



n^Hi" 5 i6ld gr ° W field buffer as ^eded, up to maximum 

uiFldLen = gd->m_uiFldBufSize; 

hile (ILTRJ-RRJTRUNC == (iRc = ILFldGet (tr, pField-^szLabel , 
^ gd->m_lpFldBuf , SuiFldLen) ) ) 

//----- Report (non-fatal) error if buffer already at maximum size 

if (gd->m_uiFldBufSize >= uiMaxBuf Size) 

{ 

ILAddFieldError (tr, pField->m szLabel, ILTR ERR TRUNC) • 
break; ~ - - 

} 

// Otherwise, grow the field buffer and try aqain 

else 

{ 

// increment buffer size 

gd->m_uiFldBufSize pDataStore->m_uiBuf IncSize; 
// is it too big-p 

if (gd->m_uiFldBufSize > uiMaxBuf Size) 
gd->m_uiFldBufSize = uiMaxBuf Size; 

// save off new field buffer size 

uiFldLen = gd->m_uiFldBuf Size; 

// reallocate the buffer 

gd->m_l P FldBuf - <IL_PSTR) IL_REALLOC ( gd->m_uiFldBuf Size, 

gd->m_hFldBuf , 
gd->m_lpFldBuf ) ; 
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// was reallocation successful? 

if (! gd->m_lpFldBuf ) 

EX I T_W I T H_E RROR (ILTR ERR NOMEM) ; 



// Check for other errors which ILFldGet may return 



if (iRc && (iRc 
&& (iRc 
&& (iRc 



= ILTR_ERR_NODATA) 
= ILTR_ERR_NOTMAPPED) 
= ILTR ERR NOFLD) ) 



{ 



ILAddFieldError (tr, pField->m_szLabel, iRc); 

if (iRc == ILTR_ERR_NOMEM || iRc == ILTR ERR FILE) 

{ " _ 

ILSetAction (tr, ILTR_ACT_IGNORE) ; 

EX I T_W I TH_ERROR (iRc) ; 

} 



} 



If we have valid field data, put it to the TIF DB record now 

if (uiFldLen) 

{ 

// Don't truncate values here; let CILRecord: : PutRecord do that. 

// XIF is smart enough to make truncated values compare equal. 

// Cleanse the field value 

iRc = pDataStore->CleanseField ( tr, gd, pField, gd->m_lpFldBuf , 

SuiFldLen, // current len (IN & OUT) 
gd->m uiFldBufSize ); // max length 

if (iRc) 

ILERROR (iRc, ILTR_ERR_ILXTRANS_STORE) ; 

iRc = ILTIFPutField (tr, pField->m_szLabel, gd->m IpFldBuf, uiFldLen); 
if (iRc) ~ 

LOG_ERROR_AND_EXIT (iRc, ILXT__ERR_TIF) ; 

// Make up message for log file. 

MakeLogMessage (tr, szMsg, pField, gd->m_lpFldBuf ) ; 
IL_OutputDebugLog (tr, szMsg) ; 

} 



} 



// Put out rep eat info if we have a usable ILTR_REPEAT structure 

if (gd->m_bRepeatingAppt && pFieldRepBasic != NULL) 
( 

// Get a pointer to the repeat structure and reset repeat flag 

pRepeatlnfo = gd->m_pRepeatInf o; 
gd->mJoRepeatingAppt = FALSE; 

/* 

* To write the repeat information to TIF we need to write TWO 

* fields. The first first is the "Basic" repeat information field 

* and the second is the list of exclusion dates which may be empty. 

// save tne exclusion list count, handle and pointer 

nNumExDates = pRepeatlnf o->numExDates; 
hExDates = pRepeatlnf o->hExDates; 
pExDates = pRepeatlnf o->exDates ; 

// clear handle and pointer in the Basic Repeat structure 

pRepeatInfo->hExDates = NULL; 
pRepeatInfo->exDates = NULL; 

// Cleanse the field value 

uiFldLen = sizeof ( ILTR_REPEAT) ; 

iRc = pDataStore->CleanseField ( tr, gd, pFieldRepBasic, 

( IL_PSTR) pRepeatlnfo, 

&uiFldLen, // current len (IN & OUT) 
uiFldLen ) ; // maximum length 

if (iRc) 

ILERROR (iRc, ILTR_ERR_ILXTRANS_STORE) ; 
// Write the Repeat basic field to TIF 

iRc - ILTIFPutField (tr, ILTR_REP_BASIC, pRepeatlnfo, uiFldLen) ; 
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if (iRc) ILERROR (iRc, iRc) ; 

// Write out the exclusion list only if it is not empty 

if (iRc ~ SUCCESS && nNumExDates > 0 && pFieldRepExcl != NULL) 

// Cleanse the field value 

uiFldLen*= nNumExDates * sizeof (long); 
iRc = pDataStore->CleanseField ( tr, gd, pFieldRepExcl , 

(IL_PSTR) pExDates, 

SuiFldLen, // cur len (IN & OUT) 
uiFldLen ) ; // maximum length 

if (iRc) 

ILERROR (iRc, ILTR_ERR_ILXTRANS_STORE) ; 

iRc = ILTIFPutField (tr, ILTR_REP_XDATE, pExDates, uiFldLen); 
if (iRc) ILERROR (iRc, iRc) ; 

} 

if (nNumExDates > 0) 

I L_FRE E_AN D_Z E RO (hExDates, pExDates) ; 

if (iRc != SUCCESS) 

EXIT_WITH_ERROR (iRc) ; 

} 

// frii fields in the field list processed, write the TIF DB record 

if (iRc = ILTIFWriteRecord (tr)) 
{ 

// if U ser cancelled, we need to remember this for end processing 

if (iRc == ILTR_ERR_CANCEL) 
{ 

gd->m_bUserCancel = TRUE; 
EXIT_WITH_ERROR ( ILTR_ERR_CANCEL) ; 

} 

// ignore TIF_RECERROR, caused by writing record with no data 

if ((iRc) && (iRc != TIF_RECERROR) ) 

//__ Treat all other errors as serious TIF errors 

LOG_ERROR_AND_EXIT (iRc, ILXT ERR TIF) ; 

} 

// all is well 

iRc = SUCCESS; 

Exit: 

// all done 

return iRc; 

} // CILTranslator : : PutNext 



★ 



-*■ 
* 
* 

+ . 



Function 
Purpose : 



Input : 
Return: 



Author : 



CILTranslator: : End 

This routine is the implementation for the End member function 

of the CILTranslator class. It is to be used as the End 

callback routine from ILTR. 

tr - pointer to ILTR translation structure 

SUCCESS - all is well 

ILXT_ERR_USAGE - NULL pointer to global data passed 
ILTR_ERR_NOMEM - unable to allocate memory 

Dave McConville, Copyright (c) IntelliLink Corporation, 1995 



int CILTranslator: : End ( ILTR_PTRANSL tr) 
{ 



int 
int 

CILGlPtr 

CILDataStore 

CILFieldArray 



iRc = SUCCESS;// return code 
iRc2 = SUCCESS;// secondary return code 
<?d; // pointer to application global data 

*pDataStore; // pointer to DataStore object 
*pFldArray; // pointer to FieldArray object 



// establish pointer to application global 

gd = this->m_pGlobalData; 
if (gd == NULL) 

return ILERROR (0, ILXT ERR USAGE); 



// 



fetch the DataStore object from gd 
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pDataStore = gd->m_pDataStore; 

// fetch the FieldArray object from gd 

pFldArray = gd->m_pFldArray; 

/* 

* If the DataStore or FieldArray pointers are NULL, we assume that 

* Begin processing was never completed, so we simply return SUCCESS. 

if (pDataStore == NULL I I pFldArray == NULL) 
EXIT WITH ERROR (SUCCESS); 



// if we are importing and user hasn't cancelled - unload TIF file 

if ( (ILTR_direction == ILTR_IMPORT) && ( ! gd->m_bUserCancel ) && 
(ILTR_rc SUCCESS)) 

{ 

// if importing and "selected" is set, invoke the Chooser 



if (ILTR_Flags & ILTR_FLAG_IMPORT_SELECTED) 
{ 

if ( (ILTR_phase =-0) | | 

(ILTR_phase == ILTR_PHASE30 && ILTR nSynchronize == 0) ) 

{ 

// Call the Chooser dialog to select records to be processed 

iRc = CallChooseRecords (tr); 

// Remap IDOK and IDCANCEL return codes from Chooser dialog 

if {iRc == IDOK) 

iRc = SUCCESS; 
else if (iRc == IDCANCEL) 

iRc = ILTR_ERR_CANCEL; 

// Check for error condition (or user cancel) 

if (iRc) 

EXIT_WITH_ERROR (iRc) 

} 

} 

// we are done loading tif, time to unload 

if (ILTR_phase != ILTR_PHASE40) 
( 

// But don't call ILTIFEndLoad more than once. We call it before 

// unloading to TARGET, but not before unloading to SOURCE. 

iRc = ILTIFEndLoad (tr); 
if (iRc == ILTR_ERR_CANCEL) 

EX I T_WI TH_ERROR ( i Rc ) 
else if (iRc != SUCCESS) 

LOG_ERROR_AND_EXIT (iRc, iRc) ; 

} 

/* 

* For Synchronization Only, if target system needs to have all fanning 

* done before we start unloading records from TIF then call the 

* FanBeforeUnload function to scan all records in TIF looking for any 

* that need to be fanned, and creating fanned instances in TIF 

* for those that do need to be fanned. 



if ( (ILTR_nAttribs & ILTB_ATT_MUST_FAN_B4U) 

&& ( ILTR_nSynchronize != ILXTR_SYNC_NO) 
^ && (ILTR_nFunction == ILTR_APPT || ILTR_nFunction « ILTRJTODO) ) 

iRc = this->FanBef oreUnload (tr); 
if (iRc =~ ILTR_ERR_CANCEL) 

EXIT_WITH_ERROR (iRc) 
else if (iRc != SUCCESS) 

LOG_ERROR_AND_EXIT (iRc, iRc) ; 

) 

// Unload the records in TIF 

iRc = this->UnloadTIF (tr) ; 
if (iRc == I LTR_ERR_CANCEL ) 

EXIT_WITH_ERROR (iRc) 
else if (iRc != SUCCESS) 

LOG_ERROR AND EXIT (iRc, iRc) ; 



// all is well 
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iRc » SUCCESS; 

Exit: 

/* 

* Cleanup 
* */ 

// Close the TIF file if in import mode 

if <ILTR_direction == ILTR_IMPORT && pFldArray) 
{ 

// Close and delete the TIF file if doing an ILX V3 Import 

if (ILTR_phase == ILTR_PHASE ILX V3 MODE) 
{ " " 

iRc2 = ILTIFClose (tr) ; 

if (iRc2 SUCCESS) 

iRc2 = ILERROR (iRc2, ILXT ERR TIF) ; 



if (iRc == SUCCESS) 

// no previous error, so pass back this error 

iRc - iRc2; 

/* 

* Update ILTR_rc so that data store close can be sensitive to whether 

* translation has succeeded or failed. 
* 

if (ILTR_rc == SUCCESS) 
ILTR_rc = iRc; 

// close the data store if it has been successfully created 

if (pDataStore) 
{ 

iRc2 = pDataStore->Close (tr, gd) ; 
if (iRc2 != SUCCESS) 
iRc = iRc2; 

} 

// Free the record buffer 

if (gd->m_lpRecBuf ) 

IL_FREE_AND_ZERO (gd->m_hRecBuf , gd->m_lpRecBuf ) ; 

// Free the fi eld buffer 

if <gd->m_lpFldBuf ) 

IL_FREE_AND_ZERO (gd->m_hFldBuf , gd->m_lpFldBuf ) ; 

// Free the conversion buffer 

if (gd->m_lpConvBuf ) 

IL_FREE_AND_ZERO (gd->m_hConvBuf , gd->m_lpConvBuf ) ; 

// all done 

return iRc; 

} // CILTranslator : : End 



/ 



+ 

* 
+ 
* 
* 



Function 
Purpose : 



Input : 
Return : 

Author : 



CILTranslator: : New 

This routine is the implementation for the New member function 

of the CILTranslator class. It is to be used as - the New 

callback routine from ILTR. 

tr - pointer to ILTR translation structure 

SUCCESS - all is well 

I LXT_ERR_USAGE - NULL pointer to global data passed 

Dave McConville, Copyright (c) IntelliLink Corporation, 1995 



int CILTranslator: :New 

(ILTR_PTRANSL tr) 

{ 

int iRc; 
CILGlPtr gd; 
CILDataStore *pDataStore; 



// pointer to ILTR translator structure 

// return code 

// pointer to GlobalData object 

// pointer to DataStore object 



// establish pointer to application global 

gd = this->m_pGlobalData; 
if (gd == NULL) 



/ 
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return I L ERROR (0, ILXT_ERR_USAGE) ; 

// remember that we are processing a new file 

m_bNewFile = TRUE; 

// fetch the datastore object from gd 

pDataStore = g3->m_pDataStore; 

// make sure the DataStore object has been created 

if (pDataStore == NULL) 

return ILERROR (0, ILXT_ERR_USAGE) ; 

// tell the DataStore to create new data repository (file, etc..)- 

iRc = pDataStore->New (tr, gd) ; 

// pass on result 

if (iRc == SUCCESS | | iRc == ILTR_ERR_CANCEL) 

return iRc; 
else 

return ILERROR (iRc, iRc); 
} // CILTranslator : :New 



/* 

* Functi 

* Purpos 

* Parame 

* Return 

* 

* Notes: 

Thi 

* sec 

* The 
for 



on : 
e : 

ters : 
s : 



CILTranslator: :CreateTIF 

Create an empty translator intermediate file, define TIFfields 
based on fields in the FieldArray object, 
tr - Pointer to translation information 
SUCCESS - All is well 
I LXT_ERR_USAGE - NULL pointer to global data is passed 
I LTR_ERR_BADMAP - Something seriously wrong with field map 
I LXT_ERR_T I F - Unable to access TIF file for some reason 

s function is called once at the beginning of each data 
tion to create a Translate Intermediate File (TIF) . 

TIF file is used to temporarily store all data records 

reconciliation purposes. 



/ 



int CILTranslator: :CreateTIF 
(ILTR_PTRANSL tr) 

{ 



int 
int 
long 

CILFieldArray 
CILDataStore 
CILField 
CILGlPtr 



i; 

iRc = SUCCESS; 

IFields = 0; 
*pFldArray; 
*pDataStore; 
*pField; 

gd; 



// Pointer to ILTR translator struct 

// Loop variable 

// Return code 

// Count of mapped fields 

// ptr to FieldArray object 

// ptr to DataStore object 

// ptr to Field Object 

// ptr to global data object 



// set up g d to p 0 i n t to global data 

gd = this->m_pGlobalData; 
if (gd == NULL) 

return ILERROR (0, ILXT_ERR_USAGE) ; 

// Fetch the fieldArray object from gd 

pFldArray = gd->m_pFldArray; 

// Fetch the DataStore object from gd 

pDataStore = gd->m_pDataStore; 

// Should just mapped/hidden fields go in TIF? 

if (pDataStore->m_bOnlyMappedInTIF) 
{ 

// Walk the list of fields counting mapped or hidden fields 

for (i = 0; i < pFldArray->m_nFields ; 
{ 

// index into field array 

pField = pFldArray->At (i); 
if (IpField) 
continue; 



// count number of mapped and/or hidden fields 

if ( (pField->m_bIsMapped) I 1 

{pField->m_ulAttribs & ILTB_ATT_HIDDEN_FIELD) ) 
lFields++; 
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} 

else // all fields go in TIF 

{ 

lFields = pFldArray->m_nFields; 

} 

// Create the TIF database with the appropriate number of fields. 

iRc = ILTIFCreate (tr, hXlatorlnst, lFields); 
if (iRc != SUCCESS) 

LOG_ERROR_AND_EXIT (iRc, ILXT_ERR_TI F) ; 



/ 



* 



* Walk the list of fields once more to create field descriptors in TIF 
* */ 

for (i =0; i < pFldArray->m_nFields ; i++) 
{ 

// g e t current field object 

pField = pFldArray->m_pFields [i]; 
if (IpField) 
continue; 

// skip unmapped (non-hidden) fields? 

if ( pDataStore->m_bOnlyMappedInTIF && 
pField->m_bIsMapped == FALSE && 
! (pField->m_ulAttribs & ILTB_ATT_HIDDEN_FIELD) ) 
continue; 

// Provide TIF field descriptor 

iRc = ILTIFDef FieldN (tr, pField->m_nILTRIndex, 0); 
if (iRc != SUCCESS) 

LOG_ERROR_AND_EXIT (iRc, ILXT_ERR TIF) ; 

) 

Exit: 

// A n done, return status. 

return (iRc) ; 

} // CILTranslator : :CreateTIF 

/* 

* Name: CILTranslator :: LoadTIF 

* Purpose: Load all existing data into the translator intermediate file 

* Parameters: tr - Pointer to ILTR translation information 

* gd - Pointer to GlobalData object 

* Returns: SUCCESS - All is well 

* ILXT_ERR_USAGE - NULL pointer to global data passed 

* ILXT_ERR_TIF - Unable to put record into TIF 

* Notes: 

* 

int CILTranslator :: LoadTIF 

(ILTR_PTRANSL tr) // pointer to ILTR translation info 

{ 

int iRc = SUCCESS; // Return code 

CILGlPtr gd; // ptr to global data object 

char szMsg [ ILTB_MAX_MSG + 1]; // Message buffer 

// set up gd to p 0 i n t to global data 

gd = this->m_pGlobalData; 
if (gd == NULL) 

return ILERROR (0, ILXT_ERR_USAGE) ; 

// Se t U p progress bar for building the reconciliation database 

LoadString ( (IL_HINST) hXlatorlnst, ILXT_RSRC_LOADMSG, szMsg, 

I LTB_MAX_MSG ) ; 
ILStatusInit ( tr, szMsg, gd->m_lNumRecs ) ; 

// Log debug message at start of loading TIF database. 

IL_OutputDebugLog (tr, ) ; 

IL_OutputDebugLog (tr, "Preloading TIF database"); 

// Load each existing record into TIF until ILTR EOF reached. 

while (TRUE) ~ 

{ 

I / Invoke standard get processing, until EOF is reached. 
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iRc = this->Get (tr) ; 
if (iRc == ILTR_EOF) 
break; 

// EO p no t reached yet, did we get a skip or error code 0 

if {iRc != SUCCESS) 
{ 

// Enc j i oop and return status if this is not a "skip code". 

if (iRc < 0 || iRc > ILTR_SKIP_ALL) 
break; 

// Skip writing this record to TIF on ILTR SKIP WRITE. 

if (iRc & ILTR_SKIP_WRITE) 
continue; 

} 

// &ii fi e id S i n the field list processed, write the TIF DB record 

if (iRc = ILTIFWriteRecord (tr)) 
{ 

// if user cancelled, we need to remember this for end processing 

if (iRc == ILTR_ERR_CANCEL) 
( 

gd->m_bUserCancel = TRUE; 
return ILTR_ERR_CANCEL; 

} 

// ignore TIF_RECERROR, caused by writing record with no data 

if ((iRc) && (iRc != TIF_RECERROR) ) 

// Treat all other errors as serious TIF errors 

return ILERROR (iRc, ILXT_ERR_TIF) ; 

) 

// update the progress bar for each record processed 

ILStatusUpdate (tr) ; 

// Process messages and check for user cancel 

if (iRc = ILProcessMessages (tr) ) 
{ 

if (iRc == ILTR_ERR_CANCEL) 

gd->m_bUserCancel = TRUE; 
return iRc; 

} 

1 

// Show all records copied from the export file to the TIF database 

ILStatusDone (tr) ; 

// if Dat : a store returned ILTR_EOF, treat it as SUCCESS. 

if (iRc == ILTR_EOF) 
iRc = SUCCESS; 

// L 0 g debug message at end of loading TIF database. 

IL_OutputDebugLog (tr, "" ) ; 

IL_OutputDebugLog (tr, "TIF database loaded. Translation begins."); 

// All done 

return iRc; 

} // CILTranslator : :LoadTIF 

/* ; 

* Function: CILTranslator :: UnloadTIF 

* Purpose: Unload all TIF data into the current data store 

* Parameters: tr - Pointer to translation information 

* Returns: SUCCESS - All is well 

ILXT_ERR_USAGE - NULL pointer to global data passed 

* I LXT_ERR_T I F - abnormal TIF error 

* Notes : 

♦ v 

mt CILTranslator: :UnloadTIF 

(ILTR_PTRANSL tr) // pointer to ILTR translation info 

{ 

int iRc = SUCCESS; // Return code 

LONG IRecords; // Number of TIF records 

CILGlPtr gd; // p tr to GlobalData object 
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char szMsg [ ILTB_MAX_MSG + 1]; // Message buffer 



// s et up gd to point to Global data object 

gd = this->m_pGlobalData; 
if (gd == NULL) 

return ILERROR (0, ILXT_ERR_USAGE) ; 

// Retrieve number of records from TIF 

iRc = ILTIFHowManyRecords (tr, AlRecords); 
if (iRc SUCCESS) 

return ILERROR (iRc, ILXT_ERR_TIF) ; 

gd->m_lNumRecs = IRecords; 

// Initialize progress bar 

LoadString ((IL_HINST) hXlatorlnst, I LXT_RS RC_UNLOADMSG , szMsg, 

I LT B_MAX_MS G ) ; 
ILStatusInit (tr, szMsg, IRecords) ; 

// Retrieve all records from TIF 

do 
( 

// Process each record in TIF 

if (iRc = this->UnloadRecord (tr) ) 
break; 

// Update the progress bar for each record processed 

ILStatusUpdate (tr) ; 

// Process messages and check for user cancel 

if (iRc = ILProcessMessages (tr) ) 
{ 

if (iRc == I LTR_ERR_C ANCEL ) 

gd->m_bUserCancel = TRUE; 
return iRc; 



} 

} 

while ((iRc = ILTIFNextRecord (tr)) == SUCCESS); 

// we reac i-i normal end of file? 

if (iRc == TIF_EOF) 
iRc = SUCCESS; 

// Show all records copied from the export file to the TIF database 

ILStatusDone (tr) ; 

// All done 

if (iRc == SUCCESS || iRc == ILTR_ERR_CANCEL) 

return iRc; 
else 

return ILERROR (iRc, iRc); 
} // CILTranslator : : UnloadTIF 



* Function: 

* Purpose: 

* Parameters 

* Returns: 

* Notes : 

+ 



CILTranslator: : UnloadRecord 
Unload a TIF record to data 
tr - Pointer to translation 
SUCCESS - All is well 

ILXT_ERR_USAGE - NULL pointer to global data passed 



store 

information 



/ 



int CILTranslat 
(ILTR_ 

{ 

int 

int 

INT32 

IL_PSTR 

CILGlPtr 

CILRecPtr 

ILTR REPEAT 



or: : UnloadRecord 
PTRANSL tr) 

iRc = SUCCESS; 
iRc2; 

ITIFOutcome; 

pUniquelD; 

gd; 

pRec; 

sRepeatlnf o; 



// pointer to ILTR translation info 



// Return code 

// Secondary return code 

// TIF "outcome" of this record 

// Pointer to NEW unique ID 

// ptr to GlobalData object 

// object for current record; 

// repeat struct for this record 



// 



Set up gd to point to Global data object 
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gd = this->m_pGlobalData; 
if (gd == NULL) 

return ILERROR (0, ILXT_ERR_USAGE) ; 

// store pointer to repeat struct in gd 

IL_MEMSET (&sR$peatInfo, ' \0', sizeof (sRepeatlnfo) ) ; 
gd->m_pRepeatInfo = ssRepeatlnf o; 

// reset repeating appointment flag 

gd->m_bRepeatingAppt = FALSE; 

// fetch the record object from gd 

pRec = gd->m_pRecord; 

// Read next TIF record into buffer 

iRc = ILTIFReadRecord (tr); 

if {iRc == TIF_EOF) 

{ 

EXIT_WITH_ERROR (TIF_EOF) ; 

} 

else if (iRc != SUCCESS) 

LOG_E RROR_AND_EX I T (iRc, I LXT_ERR_T I F ) ; 

// Q e t synchronization or conflict resolution outcome for this record 

iRc = ILTIFGetOutcome (tr, SlTIFOutcome) ; 
if (iRc != SUCCESS) 

LOG_ERROR_AND_EXIT (iRc, I LXT_ERR_T I F ) ; 

// Determine if record should be added, changed, or replaced 

if (lTIFOutCOme & I LT I F_OUTCOME_ADD ) 

gd->m_nRecAction = UPD_INSERT; 
else if (lTIFOutcome & ILTIF_OUTCOME_UPDATE) 

gd->m_nRecAction = UPD_UPDATE; 
else if (lTIFOutcome & I LT I F_OUTCOME_RE PLAC E ) 

gd->m_nRecAction = UPD_RE PLACE; 
else if (lTIFOutcome & ILTIF_OUTCOME_DELETE) 

gd->m_nRecAction = UPD_DELETE; 
else if (lTIFOutcome & ILTI F_OUTCOME_DELTA_ACK) 

gd->m_nRecAction = UPD_DELTA_ACK; 
else if (lTIFOutcome & ILTI F_OUTCOME_LEAVE_ALONE) 

gd->m_nRecAction ~ UPD_NONE; 
else 

LOG_ERROR_AND_EXIT (iRc, ILXT_ERR_UNK_VAL) ; 

// Reset the record and unique ID values 

gd->m_ulRecID = (UINT32) -1L; 
gd->m_szRecID[0] = '\0'; 
gd->m_szUniqueID[0] = '\0 f ; 

// Reset pointer to unique ID to be passed to ILTIFAcceptOutcome . 

pUniquelD = NULL; 

// based on action code, call appropriate record member function 

switch (gd->m_nRecAction) 
{ 

case UPD_INSERT: // add a new record 

// For Synchronization Only, determine whether FANNING is required 

if ( (ILTR_nSynchronize != ILXTR_SYNC_NO) 

&& (ILTR_nFunction == ILTR_APPT || ILTR nFunction == ILTR TODO) ) 

{ 

BOOLEAN bFannedHere = FALSE; 
iRc = ILGetRepeat (tr, gd->m_pRepeatInfo) ; 
if (iRc && iRc != I LT R_E RR_NO F L D ) 
return ILERROR (iRc, iRc); 

/* 

* If repeat pattern is non-trivial, fanning may be required. . . 
* v 

if ( (iRc != I LTR_ERR_NOFLD ) 

&& ( gd->m_pRepeatInf o->type != I LTR_NORE PEAT 
I I gd->m_pRepeatInfo->numDays !- 1) ) 

( 

iRc = gd->m_pDataStore->CanPutRepeat (tr, gd) ; 

if (iRc == ILXT_ERR_MUST_FAN) 

{ 
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bFannedHere = TRUE; 

// Fan out this recurring item into instances... 

iRc = ILRepeatltem ( tr, gd->m_pRepeatInf o, 

gd->m_pDataStore->m_nMaxRepeat ) ; 

) 

I 

/* 

* Free exclusion list (NOTE: the CILField : : ProcessPut function, 

* in CILFIELD. CPP, will call ILGetRepeat again, into the same 

* buffer that we use here, so we have to free the exclusion list 

* here to avoid creating a memory leak. ) 



if (gd->m_pRepeatInfo->exDates != NULL) 

IL_FREE_AND_ZERO ( gd->m_pRepeatInfo->hExDates, 

gd->m_pRepeatInfo->exDates ) ; 

if (bFannedHere) 
{ 

gd->m_bRepeatingAppt = FALSE; 
return iRc; 

> 

) 



// no fanning required, drop into next case to Put Record... 

case UPD_REPLACE: // replace an existing record 

case UPD_UPDATE: // update existing record 

// Add, replace, or update a record 

iRc = pRec->PutRecord (tr, gd) ; 

// If there is a new Unique ID, set a pointer to this ID 



if (gd->m_bHasUniqueID && gd->m_szUniqueID [0] ) 

pUniquelD = gd->m_szUniqueID; 
break; 



case UPD_NONE: // no change to an existing record 

// Process unchanged record 

// NOTE: TIF does not allow a new Unique ID to be assigned here. 

// It seems unlikely that anyone will ever want to assign a new 

// ID here, but if it happens TIF will need a small tweak. 

iRc = pRec->PutRecord (tr, gd) ; 
break; 

case UPD_DELETE: // delete the existing record 

/ / Delete the record 

iRc = pRec->Delete (tr, gd) ; 
break; 

case UPD_DELTA_ACK: // acknowledge FastSync Delta 

// Delete the record 

iRc = pRec->FastSyncDeltaAck (tr, gd) ; 
break; 

default: // should never get here 

iRc = ILERROR (gd->m_nRecAction, ILXT_ERR_UNK_VAL) ; 
break; 

} 



Exit : 

/* 

* Did we succeed in processing the record? If so, then we tell 

* TIF that all is well. Otherwise, we tell TIF to reject the 

* record. TIF will take care of reflecting the appropriate record 

* status in the log file. 



* */ 

if (iRc =» SUCCESS) 

iRc = ILTIFAcceptOutcome (tr, pUniquelD); 
else if (iRc != TIF_EOF) 

iRc2 = ILTIFRejectOutcome (tr, iRc); 
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// Clear SKIP messages 

if (iRc >= ILTR^SKIPJfRITE && iRc <= ILTR_SKIP_ALL) 
iRc = SUCCESS; 

// free memor y used by repeat exlusion list 

// (allocated by CILField: : ProcessPut, in CILFIELD. CPP) 

i f ( gd->m_bRepeat ingAppt ) 
{ 

if (sRepeatlnf o.hExDates) 



IL_FREE_AND_ZERO ( sRepeatlnf o . hExDates , sRepeatlnf o. exDates ) ; 
gd->m_bRepeatingAppt = FALSE; 

} 



// Reset pointer to repeat struct in gd 

gd->m_pRepeatInf o = NULL; 

// All done 

if {iRc == SUCCESS f| iRc == TIF_EOF | | iRc == I LTR_ERR_CANCEL ) 

return iRc; 
else 

return ILERROR (iRc, iRc); 
} // CILTranslator : : UnloadRecord 



/* 

* Function: CILTranslator: : Unloadlnstance 

* Purpose: This routine is the implementation for the Unloadlnstance 

* member function of the CILTranslator class. It is called from 

* CILTranslator :: PutNext, which is called from the 

* Repeat Callback routine (*ILTR_cbRepeat) while we are unloading 

* records from TIF. If a record that we're unloading needs to 

* be fanned then CILTranslator :: UnloadRecord calls ILRepeatltem, 

* which in turn calls this function repeatedly, once for each 

* instance of the recurring item. 

* NOTE: this function is called for outcome=ADD (insert) ONLY!! 
* 

* Input: tr - pointer to ILTR translation structure 

* pRepeat - pointer to repeat info for this rec 

* Return: SUCCESS - all is well 

* ILXT_ERR_USAGE - NULL pointer to global data passed 

* ILTR_ERR_NOMEM - unable to allocate memory 

* ILTR_ERR_CANCEL - user cancel 

*- I LXT_ERR_T I F - problems writing to TIF 

* Author: David Boothby, Copyright (c) IntelliLink Corporation, 1995 

" ' ~* ~ — — — — — — * 

int CILTranslator: : Unloadlnstance ( ILTR_PTRANSL tr, ILTR_PREPEAT pRepeat) 

int i^c; // return code 

int iRc2; // Secondary return code 

IL_PSTR pUniquelD; // Pointer to NEW unique ID 

CILGlPtr gd; // ptr to GlobalData object 

CILRecPtr pRec; // object for current record; 

// Set up gd t0 point to Global data object 

gd - this->m_pGlobalData; 
if (gd == NULL) 

return ILERROR (0, ILXT_ERR_USAGE) ; 

// fetch the record object from gd 

pRec = gd->m_pRecord; 

// Reset the record and unique ID values 

gd->m_ulRecID = (UINT32) -1L; 
gd->m_szRecID[0] = '\0'; 
gd->m_szUniqueID[0] = ' \0' ; 

// Reset pointer to unique ID to be passed to ILTIFAcceptOutcome . 

pUniquelD = NULL; 

// Add or replace a record 

iRc = pRec->PutRecord (tr, gd) ; 

// If there is a new Unique ID, set a pointer to this ID 

if (gd->m_bHasUniqueID && gd->m szUniqueID[0] ) 



/ 
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pUniquelD - gd->m_szUniqueID; 

// If record action processed successfully, "accept" the TIF outcome. 

if (iRc == SUCCESS) 

iRc =* ILTIFAcceptOutcome (tr, pUniquelD); 

// if we p5 a ve an error, we tell TIF we must "reject" the outcome 

else 

iRc2 = ILTIFRejectOutcome (tr, iRc); // iRc2 is ignored 
// Clear SKIP 'return codes 

if (iRc >= ILTR_SKIP_WRITE && iRc <= ILTR_SKIP_ALL) 
iRc = SUCCESS; 

if (iRc == SUCCESS | | iRc == ILTR_ERR_CANCEL) 

return iRc; 
else 

return ILERROR (iRc, iRc) ; 
) // CILTranslator : : Unloadlnstance 



/* 

* Function: CILTranslator: : FanBef oreUnload 

* Purpose: This function creates fanned instances, in TIF, for all 

* recurring items that need to be fanned. 

* Method: The TIF database is scanned, looking for recurring 

* items that are to be ADDED (inserted) to the Target App. 

* For each such item the Target App data store's 

* "CanPutRepeat" function is called to find out whether 

the item must be fanned. If the item must be fanned 
then the ILTIFFanltem function is called to do the fanning 



* 
* 
* 



* Input: tr - pointer to ILTR translation structure 



+ 



* Return: SUCCESS - all is well 

* ILTR_ERR_CANCEL if user presses CANCEL 

* or ILXT_ERR_TIF or other abnormal error indication 



* Author: David Boothby, Copyright (c) IntelliLink Corporation, 1995 

int CILTranslator :: FanBef oreUnload (ILTR PTRANSL tr) 
{ 

int iRc; // return code 

LONG RecordCount; // Number of TIF records 

CILGlPtr gd; // ptr to GlobalData object 

INT32 recnum; // TIF record number 

INT32 Outcome; // outcome for TIF record 

ILTR_REPEAT sRepeatlnfo; // repeat struct for a record 

// Set up gd t0 point to Global data object 

gd = this->m_pGlobalData; 
if (gd == NULL) 

return ILERROR (0, ILXT_ERR_USAGEJ ; 

// tell TIF that we're going to do 'Fanning Before Unload' 

iRc = ILTIFStartNextPhase (tr, TIF_PHASE_FANNING_BEFORE UNLOAD); 
if (iRc != SUCCESS) 

return ILERROR (iRc, ILXT_ERR_TIF) ; 

// provide space for reading repeat structures into 

gd->m_pRepeatInfo = &sRepeatInf o; 

// Retrieve number of records from TIF 

iRc = ILTIFHowManyRecords (tr, &RecordCount) ; 
if (iRc != SUCCESS) 

return ILERROR (iRc, ILXT_ERR_TIF) ; 

for (recnum=0; recnum < RecordCount; recnum++) 
{ 

// Process messages and check for user cancel 

iRc = ILProcessMessages (tr); 
if (iRc « I LT R_E RR_C ANC E L ) 
gd->m bUserCancel = TRUE; 



/ 
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if (iRc SUCCESS) 

return iRc; // CANCEL or abnormal error 

iRc = ILTIFNextRecord (tr); 
if (iRc != SUCCESS) 

return ILERROR (iRc, ILXT_ERR_TIF) ; 

iRc = ILTIFGetOutcome (tr, &Outcome) ; 
if (iRc != SUCCESS) 

return ILERROR (iRc, ILXT_ERR_TIF) ; 

// if outcome isn't ADD or UPDATE we don't do fanning here. 

if ((Outcome & < ILTIF_OUTCOME_ADD i ILTIF_OUTCOME_UPDATE) ) 0) 
continue; 

iRc = ILTRTIFItemlsRecurring (tr); 
if (iRc == FALSE) 

// if item isn't recurring we obviously won't fan it. 

continue; 

else if (iRc != TRUE) 

return ILERROR (iRc, ILXT_ERR_TIF) ; 

// Read next TIF record into buffer 

iRc = ILTIFReadRecord (tr); 
if (iRc != SUCCESS) 

return ILERROR (iRc, ILXT__ERR_TIF) ; 

iRc = ILGetRepeat (tr, gd->m_pRepeatInfo) ; 
if (iRc == ILTR_ERR_NOFLD) 
continue; 

else if (iRc !- SUCCESS) 

return ILERROR (iRc, iRc); 

// Determine whether item can be put into Target App w/o Fanning 

iRc = gd->m_pDataStore->CanPutRepeat (tr, gd) ; 

// Free excluded dates, if any 

if (gd->m_pRepeatInf o->exDates != NULL) 

IL_FREE_AND_ZERO (gd->m_pRepeatInfo->hExDates, gd->m_pRepeatInf o->exDates ) ; 

if (iRc == ILXT_ERR_MUST_FAN) 
{ 

iRc = ILTRTIFFanltem (tr, gd->m_pDataStore->m nMaxRepeat); 
if (iRc != SUCCESS) 

return ILERROR (iRc, ILXT ERR TIF); 



} 



// tell TIF that we're finished 'Fanning Before Unload' 

iRc - ILTIFStartNextPhase (tr, TIF_PHASE_FINISHED_FANNING BEFORE UNLOAD); 
if (iRc != SUCCESS) 

return ILERROR (iRc, ILXT_ERR_TIF) ; 

iRc = ILTIFSetPositionAboveTopRecord (tr); // too trivial to ever fail 

gd->m_pRepeatInfo - NULL; 
return SUCCESS; 

} // CILTranslator : : FanBef oreUnload 

/* 

* Function: IL_OutputDebugLog 

* Purpose: Write debug message text to log file if 

* Field-Level Logging is turned ON. 

* Input: tr Pointer to ILTR translation structure. 

* pszMsg Message text to be logged. 

* Return: void 

* - - V 

extern "C" 

void IL_DECL IL_OutputDebugLog // Write debug message to log file. 

( ILTR_PTRANSL tr, // Pointer to translation record 

^ IL_PSTR pszMsg ) // Pointer to message text to be logged 
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if (ILTR_Flags & ILTR_FIELD_LEVEL LOGGING) 
{ 

int iRc; // Function return code 

char szBuffer [ ILTB_MAX_MSG + 2); // Message buffer plus line terminator 

// Simply return if no log file exists. 

if ( ILTR_hLog ==0 || ILTR_hLog == I L_NULL_HFI LE ) 
return; 

// Copy the message to our internal message buffer. 

IL_STRCPY (szBuffer, pszMsg) ; 

// appropriate line terminator to message text string 

#ifdef ILWIN 

IL_STRCAT (szBuffer, "\r\n"); 
#else 

IL_STRCAT (szBuffer, "\n"); 
#endif 

// Append debug message text to the log file. 

^ IL_WRITE (ILTR_hLog, szBuffer, IL_STRLEN (szBuffer), iRc); 



} // IL_OutputDebugLog 



/* 

* Name 

* Purpose 

* Parameters 



Returns 



MakeLogMessage 

This routine creates a field level debug log message 
szMsg — pointer to message buffer of size ILTB_MAX MSG 
pField - pointer to field object ~~ ~~ 

szData - character data to go in message buffer 
void 



void MakeLogMessage 
( ILTR_PTRANSL 
char 

CILField 
char 



{ 



tr, 
*szMsg, 
*pField, 
*szData 



// Make make up field log message 

// Pointer to translation record 

// message buffer, size I LTB_MAX_MSG 

// pointer to field object 

// field data 



/ 



if 
{ 



(ILTR_Flags & ILTR_FIELD_LEVEL_LOGGING) 



char 
int 
int 
int 



//• 

if 

{ 



szWork [ILTB_MAX_MSG] 
nNameLen = 0; 
nFormatChars = 8; 
nMsgDataLen = 0; 



// message work buffer 

// Length of formated name+label 

// number of format chars in a msg 

// truncated data length for debug msg 



v If field is binary, make up 

(pField->m_szType [0] == ILX TYPE 



a dummy message for now 
BINARY) 



IL SPRINTF 



return; 



(szMsg, "[%s:%s] (Binary}", 
pField->m_szLabel, pField->m szName) ; 



/* 

* Make sure the message will fit in the message buffer. 

* Compute length of name and label including format chars. 
* * / 

nNameLen = IL_STRLEN <pField->m_szLabel ) + 

IL_STRLEN (pField->rn_szName) + nFormatChars; 

// Check if the message will fit in the buffer 

if ( ( IL_STRLEN (szData) + nNameLen) < ILTB_MAX_MSG) 

IL_SPRINTF (szMsg, "[%s:%s] [%s]", pField->m_szLabel , 

pField->m_szName, szData); 

} 

else 
{ 

/* 

* The data is too long to fit in the msg buffer truncate the 

* value to fit in the buffer then move it in 
* */ 

nMsgDataLen = ILTB MAX MSG - nNameLen; 
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IL_MEMCPY (szWork, szData, nMsgDataLen); 
szWork [nMsgDataLen] = * \0 ■ ; 

IL_SPRINTF (szMsg, "{%s:%s] [%s]'\ pField->m_szLabel , 

pField->m_szName, szWork) ; 

} 

) 

else 

// Set message buffer to null string in case some tries to use it 

szMsg[0] = '\0'; 

} // MakeLogMessage 



/ 



Name : 
Purpose : 
Parameters : 
Returns : 



CallChooseRecords — static function 

Function to call the Choose Records Dll — WIN32 only 
tr -- Pointer to translation record 
IDOK, IDCANCEL, or ILTR ERR. . . code 



/ 



static int CallChooseRecords (ILTR PTRANSL tr) 



// 

#ifdef 
{ 

int 
char 
PCHOOSE 
IL HINST 



When 
WIN32 



running under WIN32, we .invoke the Choose Records dialog 



iRc; 

szChooseDll [ 
pChoose; 
hChooseDll ; 



MAX PATH] 



// Function return code 

// Path name to the Choose Record Dll 

// Pointer to the ChooseRecords function 

// Handle to the Choose Record Dll 



// Get a path name to where ILCHOOSE.DLL is expected to be 

IL_STRCPY (szChooseDll, ILTR_szCurWD) ; 

if (szChooseDll [IL_STRLEN (szChooseDll) - 1] != IL_FILESEP CH) 

IL_STRCAT (szChooseDll, IL_FILESEP_STR) ; 
IL_STRCAT (szChooseDll, "ilchoose.dll") ; 



// Load the Choose Records Dll 

LoadDll (szChooseDll, hChooseDll) ; 
if (hChooseDll == NULL) 
return IDOK; 



if available. If not, ignore the call 



// Get t h e address of the ChooseRecords function 

pChoose = (PCHOOSE) GetProcAddress (hChooseDll, "ChooseRecords") ; 
if (pChoose == NULL) 

return ILERROR (0, ILTR_ERR_UNKNOWN) ; 

// Now ca n the Dll ChooseRecords function entry point 

iRc = (*pChoose) (tr) ; 
return iRc; 

} // CallChooseRecords 

// If not running under WIN32, fake it (ALL records are "selected"). 

#else 

( 

return IDOK; 

} 

#endif 
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#if !defined< ILCILREC) 

/* 

* Module: cilrec.h 

* Purpose: Header file for CILRecord class 

* Author: Dave McConville, Copyright (c) IntelliLink, 1995 

* Notes: All objects are implemented with pure C++ in order to allow these 

* class to be platform independent. No use of MFC or MacApp has been 

* made . 

* v 

#define ILCILREC // Indicate header inclusion 

// Include all the relavent headers 

#include "cilfa.h" 

/* 

* Error codes 
* */ 



/* 

* Maximum values and constant defines 
* * I 



/* 

* type definitions 
* V 



/* 

* ILRecord class. 

* */ 

tdefine CILRecPtr CILRecord * 

class CILRecord 

{ 



public : 

// Class constructor 

CILRecord (CILFldArrayPtr *pFldArray) ; 

// Class destructor 

-CILRecord < ) ; 



/* 

* Caller accessible functions 
* */ 



virtual int Put Record 

(ILTR_PTRANSL tr, 
CILGlPtr gd) ; 

virtual int Delete 

(ILTR_PTRANSL tr, 
CILGlPtr gd) ; 

virtual int GetRecord 

(ILTR_PTRANSL tr, 
CILGlPtr gd) ; 

virtual int FastSyncDeltaAck 
(ILTR_PTRANSL tr, 
CILGlPtr gd) ; 

// class data members 

CILFldArrayPtr m_pFldArray; 



// Put TIF record to data store 

// pointer to tr 

// pointer to application data 

// Delete an existing record 

// pointer to tr 

// pointer to application data 

// Read record from application file 

// pointer to tr 

// pointer to application data 

// Acknowledge a FastSync Delta 

// pointer to tr 

// pointer to application data 

// pointer to field array 



#endif // ILCILREC 
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* 

* 
* 
+ 
* 
* 
+ 
* 
★ 
* 
* 
+ . 



File: CILREC.CPP 

Purpose: This module contains the implementation for the member functions 
of the CILRecord class. 



Functions 



CILRecord: 
CltRecord: 
CILRecord: 
CILRecord: 
CILRecord: 
CILRecord: 



CILRecord 

-CILRecord 

PutRecord 

Delete 

GetRecord 

FastSyncDeltaAck 



Author: Dave McConville, Copyright (c) IntelliLink Corporation, 1995 



/ 



#include 
#include 
#include 
#include 
#include 
#include 
#include 



"cilglobl.h" 
"oilfield. h" 
"cilfa.h" 
"cilrec . h" 
"cildata.h" 
"ilxtrans.h" 
"ilxterr .h" 



// header for CILGlobalData class 

// header for CILField class 

// header for CILFieldArray class 

// header for CILRecord class 

// header for CILData class 

// error codes & error handling protos 



// local function prototypes 

static 

int GetRecordUniquelD 

( ILTR_PTRANSL tr, 
CILGlPtr gd ) ; 



// Retrieve record/unique ID(s) 

// Pointer to translation record 

// Pointer to translator global data 



/* 

* Name 

* Purpose 

* Parameters 

* Returns 
* 



CILRecord: :CILRecord 
Class constructor 

pointer to a CILFldArrayPtr to associate with the record 
none 

v 

CILRecord: :CILRecord 

(CILFldArrayPtr *pFldArray) 



{ 



m_pFldArray = *pFldArray; 



/ 



* Name 

* Purpose 



Parameters 
Returns 



CILRecord: : -CILRecord 
Class destructor 
none 
none 



/ 



CILRecord: : -CILRecord {) 

{ 



* 



Name 

Purpose 

Parameters 

Returns 

Notes 



CILRecord: : PutRecord 

Write record to application file 

Pointer to tr, pointer to application data 

SUCCESS - all is well 



- gd 



int CILRecord: : PutRecord 
(ILTR PTRANSL tr, 



{ 



CILGlPtr 



gd) 



int 
int 
int 

ILTR_UPDOPT 
CILDataStore 



i; 

iRc; 

nFields; 

nAction = UPD_NONE; 
*pDataStore; 
CILFieldArray *pFldArray; 
CILField +pField; 
long ISise; 
IL_PANY pvData; 
char szMsg [ILTB MAX MSG] 



/ 



// 
// 
// 
// 
// 
// 
// 
// 
// 



loop variable 
Return code 

number of fields in field array 
Action to take on record 
pointer to current data store object 
to field array 
to field object 
returned data 
to data value 



pointer 
pointer 
Size of 
Pointer 



// Debug message log text 



// reference to current field array 

pFldArray = this->m_pFldArray; 
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// retrieve number of fields. 

nFields = pFldArray->m_nFields; 

// fetch dataStore object from gd 

pDataStore = gd->m_pDataStore; 

// For update, replace, delete or none, get any record ID's from TIF 

if ( gd->m_nRecAction « UPD_UPDATE I I 

gd->m_nRecAction == UPD_RE PLACE I I 

gd->m_nRecAction == UPD_DELETE I I 

gd->m_nRecAction == UPD_NONE) 

( 

// Get tne recorc i and/or unique ID(s) for this record, if any. 

iRc = GetRecordUniquelD (tr, gd) ; 
if (iRc != SUCCESS) 

LOG_ERROR_AND_EXIT (iRc, ILXT ERR FAIL) ; 

} 

else 
{ 

// No record/unique ID's. Reset any current ID values. 

gd->m_ulRecID = (UINT32) -1L; 
gd->m_szReclD(0] = ' \0'; 
gd->m_szUniqueID[0] = '\0'; 

} 

/* 

* Allow data store to do any preparation needed for writing a record 

* before the fields are processed. 
* * i 

iRc = pDataStore->BeginWriteRecord (tr, gd, gd->m_nRecAction, gd->m_ulRecID) ; 

// if tne datastore wants to skip this record that's ok 

if (iRc >= ILTR_SKIP_WRITE && iRc <= I LTR_SKI P_ALL ) 

EXIT_WITH_ERROR (iRc) 
else if (iRc) 

// any other error is worth logging 

LOG_ERROR_AND_EXIT (iRc, iRc) 

// Place a new line in the debug log if debug logging. 

IL_OutputDebugLog (tr, ""); 
ILjDutputDebugLog (tr, "Writing Record"); 

/* 

* Need to loop thru the fields reading them from TIF, convert to the 

* applications native format and writing them to the DataStore 
* */ 

for (i =0; i < nFields; i++) 
{ 

// get pointer to current Field object 

pField = pFldArray->At (i); 

// i s there a field in this slot 

if (pField == NULL) 
continue; 

/* 

* Skip any unmapped, non-hidden fields if only mapped fields 

* go in TIF. Otherwise the field will not have been defined 

* in TIF. 
* */ 

if ( pDataStore->m_bOnlyMappedInTIF && 
pField->m_bIsMapped == FALSE && 
! (pField->m_ulAttribs & ILTB_ATT_HIDDEN_FIELD) ) ■ 
continue; 



// retrieve TIF field 

iRc = ILTIFGetField (tr, pField->m_szLabel , TIF_AUT0, 

&lSize, &pvData) ; 

if (iRc != SUCCESS) 

LOG_ERROR_AND_EXIT (iRc, I LXT_ERR_T I F ) ; 

// save the length of this field's data 

gd->m_uiFieldLen = (unsigned) iSize; 



/* 

* At this point in time the data for this field is in the TIF field 



Copyright ©1996 Puma Technology, Inc. All Rights Reserved. 



Cilrec.cpp 



Page 3 of 7 



* buffer. Copy the data to the field buffer in gd. 
* */ 



// will the field fit in the buffer? 

if (gd->m_uiFieldLen > gd->m_uiFldBuf Size) 
I 

// i s fi e id too big? 



if (gd->m_uiFieldLen > pDataStore->m uiMaxFldBuf Size) 
( 

ILAddFieldError (tr, pField->m_szLabel, ILTR_ERR_TRUNC) ; 
gd->m_uiFieldLen = pDataStore->m uiMaxFldBuf Size; 

) 

else 
{ 

// expand the buffer 

gd->m_lpFldBuf = (IL_PSTR) I L_RE ALLOC (gd->m_uiFieldLen, 

gd->m_hFldBuf , gd->m_lpFldBuf ) ; 

// was realloc successful? 

if (gd->m_lpFldBuf == NULL) 

EXIT_WITH_ERROR { ILTR_ERR NOMEM) ; 

} 

) 

// move the data to the field buffer 

IL_MEMCPY (gd->m_lpFldBuf , (IL_PSTR) pvData, gd->m_uiFieldLen) ; 

/* 

* Field data has been copied into our local buffer; truncated if 

* necessary to make it fit. Now check to see whether the field 

* definition specifies a max length. If so then truncate the value. 

* NOTE that MaxLength for non-binary fields does NOT include the 

* null terminator, but the length held in "gd->m_uiFldLen" DOES 

* include the null terminator byte. 



if (pField->m_uiMaxLength > 0) 
{ 

if (pField->m_szType [0] == ILX TYPE BINARY) 
{ 

// check length of binary field; truncate if necessary 

if (gd->m_uiFieldLen > pField->m_uiMaxLength) 

ILAddFieldError (tr, pField->m_szLabel , ILTR_ERR_TRUNC ) ; 
gd->m_uiFieldLen = pField->m uiMaxLength; 

} 

} 

// check length of non-binary field; truncate if necessary 

else if (gd->m_uiFieldLen > pField->m uiMaxLength+1 ) 
{ 

ILAddFieldError ( tr, pField->m_szLabel , ILTR_ERR_TRUNC) ; 
gd->m_uiFieldLen = pField->m_uiMaxLength+l; 
gd->m_lpFldBuf [pField->m_uiMaxLength] = 0; 

} 



// tn i s field's data is now in field buffer 

pField->m_lpData = gd->m_lpFldBuf ; 

// not that field i s i n IL f orma t 

pField->m_nFormat = ILXT_IL_FORMAT; 

// Make up a log message for the log file. 

MakeLogMessage (tr, szMsg, pField, gd->m_lpFldBuf ) ; 
IL_OutputDebugLog (tr, szMsg) ; 

// convert field and write field to app 

iRc = pField->PutToApp (tr, gd) ; 

* if (iRc) 

LOG ERROR_AND_EXIT (iRc, iRc); 

} 

/* 

* Now that all the fields have been handled, write the record to the 

* DataStore. 
* */ 
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iRc = pDataStore->EndWriteRecord (tr, gd, gd->m_nRecAction, gd->m_ulRecID) ; 

// if the datastore wants to skip this record that's ok 

if (iRc >= ILTR_SKIP_WRITE && iRc <= I LTR_SKI P_ALL ) 

EX I T_WI TH_ERROR (iRc) 
else if (iRc) 

// any*other error is worth logging 

LOG_ERROR_AND_EX I T (iRc, iRc); 

// all is well 

iRc = SUCCESS; 

Exit : 

// All done 

return (iRc) ; 

} 



/* 
* 



Name 
Purpose 
Parameters 
Returns 



CILRecord: : Delete 

This routine is called to perform a delete operation. 
Pointer to tr, pointer to application data - gd 
SUCCESS - all is well 
ILXT_ERR_FAIL - couldn't get Unique ID from TIF 

* or error returned by the DataStore DeleteRecord function 

* Notes : This function fetches the record id from the current TIF 

* record then calls the DataStore object to delete the rec 
* + / 

int CILRecord: : Delete 

(ILTR_PTRANSL tr, 
CILGlPtr gd) 



{ 



int 

CILDataStore 



iRc; 
* pDataStore; 



// Return code 

// pointer to data store 



// Get tne record and/or unique ID(s) for this record, if any. 

iRc = GetRecordUniquelD (tr, gd) ; 
if (iRc != SUCCESS) 

LOG_ERRO R_ AN D_ E X I T (iRc, ILXT_ERR_FAIL) ; 

// Fetch the DataStore object from gd 

pDataStore = gd->m_pDataStore; 

// Delete the record from the DataStore 

iRc = pDataStore->DeleteRecord (tr, gd) ; 

Exit : 

// All done 

return (iRc) ; 

} 



/* 

* Name : CILRecord: : GetRecord 

* Purpose : Read record from application file 

* Parameters : Pointer to tr, pointer to application data - gd 

* Returns : SUCCESS - all is well 

* others as returned from CILField: :GetFromApp 

* Notes : 

* v 

int CILRecord: : GetRecord 



(ILTR_PTRANSL tr, 
CILGlPtr gd) 

{ 

int iRc; // Return code 

int i; // loop variable 

int nFields; // number of fields in field array 

CILField *-pField; // pointer to field object 

char szMsg [ ILTB_MAX_MSG) ; // Debug message log text 

// initialization for new record 

gd->m_lStartDate = OL; 
gd->m_bSkipToDo = FALSE; 

// get number of fields in field array. 
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nFields = this->m_pFldArray->m_nFields; 

// Place a new line in the debug log if debug logging. 

lL_OutputDebugLog (tr, ""); 
IL_OutputDebugLog (tr, "Reading Record"); 

// loop thru the fields and get the data 

for (i =0; i < nFields; ++i) 
{ 

// fetch the next field in the field array 

pField = this->m_pFldArray->At (i); 

// is there a field in this slot? 

if (pField == NULL) 
continue; 

//-- empty field buffer 

gd->m_lpFldBuf [0] = ' \0\* 
gd->m_uiFieldLen = 0; 

// tell the field to give up its value 

iRc = pField->GetFromApp (tr, gd) ; 

if (iRc) 

( 

// log abnormal error for this field number 

ILERROR (i, iRc) ; 
break; 

} 

// Make up a log message for the log file. 

MakeLogMessage (tr, szMsg, pField, gd~>m_lpFldBuf ) ; 

// debug message is safely in the buffer 

IL_OutputDebugLog (tr, szMsg) ; 

} 

// perform range checking for To Do items if range has been- specified 

if (gd->m_bToDoRangeCheck) 
{ 

// does this to do repeat? 

if (gd->m_bRepeatingAppt) 
{ 

// skip if start is higher than end of range 

if (gd->mjpRepeatInfo->startDate > ILTR_nHiDate) 

gd->m_bSkipToDo = TRUE; 

// skip if there is a stop date & its lower than begin range 

else if ( (gd->m_pRepeatInf o->stopDate) && 

(gd->m_pRepeatInfo->stopDate < ILTR_nLoDate) ) 

gd->m_bSkipToDo = TRUE; 

} 

else if (gd->m_lStartDate) // its a single to do with a start date 
{ 

// check if the start date is in specified range 

if ( (gd->m_lStartDate < ILTR_nLoDate) I I 
(gd->m_lStartDate > ILTR_nHiDate) ) 

{ 

gd->m_bSkipToDo = TRUE; 

} 

} 

} 

// if we encountered a done or out of range ToDo, skip this record. 

i f ( gd->m_bSkipToDo ) 
( 

ILSetAction (tr, ILTR_ACT_RANGE) ; 
return ILTR_SKIP_WRITE; 

} 

return iRc; 

} 
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/* 

* Name : CILRecord: : FastSyncDeltaAck 



* Purpose : To acknowledge a single record's FastSync Delta. 
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* Explanation: Some but not all translators have an advanced capability 

called "FastSync". When a FastSync-capable translator 
is operating in FastSync mode, all the records that it 
loads into TIF are DELTA (i.e. change) records, where 
the DELTA code (value of the _Delta field) is one of 
the values A for Add, C for Change, or D for Delete. 

Sometimes FastSync translators operate in SlowSync mode, 
which case all the un-deleted records that are known to' 
the translator must be assigned status=NEW. 



in 



* 
* 
+ 
+ 

+ 

* 

* 
+ 

* 
* 



Even after loading a delta into TIF, the translator 
remains responsible for remembering and potentially 
re-supplying the same delta until the 

"FastSyncDeltaAck" function is called FOR THAT RECORD, during 
the unload-from-TIF phase. This function should "clear 
status bits" or do whatever it takes to make the 
delta be permanently dead and gone. 

FastSyncDeltaAck is called (during unload) to ACK inputs 
from FastSync-capable translators, regardless of whether the 
LOAD phase is done in FastSync or SlowSync mode. In either 
case the possibility exists that some inputs may remain 
unconsumed, and will need to be re-supplied the next time 
synchronization is performed. 

Note that Unique IDs are required for Fast Sync. 



* Parameters : Pointer to tr, pointer to application data - gd 

* Returns : SUCCESS - all is well 

others as returned from underlying functions 



Notes 



int CILRecord: : FastSyncDeltaAck 
(ILTR_PTRANSL tr, 
CILGlPtr gd) 

{ 

int iRc; // Return code 

// Get the un i que id(s) for this record, if any. 

iRc = GetRecordUniquelD (tr, gd) ; 
if (iRc != SUCCESS) 

LOG_ERROR_AND_EXIT (iRc, ILXT_ERR_FAIL) ; 

// Pass the Delta ACK on t0 the DataStore 

iRc = gd->m_pDataStore->AckDelta (tr, gd) ; 

Exit: 

// All done 

return (iRc) ; 

} 



/ 



/* 

* Name: GetRecordUniquelD internal function 

* Purpose: Retrieve record and unique ID's (if any) from the TIF database 

in preparation for a delete, update, or record record operation 

* Parameters Pointer to tr, pointer to application data - gd 

* Returns SUCCESS - all is well 

ILXT_ERR_TIF - some problem reading TIF field data 
* v 

mt GetRecordUniquelD // Retrieve record/unique id(s) 

( ILTR_PTRANSL tr, // Pointer to translation record 

^ CILGlPtr gd ) // Pointer to translator global data 

int iRc = SUCCESS; // Return code 

lon 9 ISize; // size of returned data 

IL_PANY pvData; // Pointer to data value 

IL_PSTR pszEnd; // Pointer to any text after record ID 

// Reset any current record and unique ID values. 

gd->m_ulRecID = (UINT32) -1L; 
gd->m_szRecID[0] = '\0'; 
gd->m_szUniqueID[0] = ' \0 ' ; 
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// If we have record id's get the record ID from original TIF record 

if (gd->m_bHasRecordID) 
{ 

iRc = ILTIFGetField <tr, ILTR_FLD RECORD ID, TIF ORIGINAL, &lSize, SpvData) * 
if (iRc != SUCCESS) - - _ p <,a '' 

LOG_ERROR_AND_EXIT (iRc, ILXT ERR TIF); 

// Convert record ID to numeric record ID and save it in gd. 

gd->m_ulRecID = strtoul ((IL_PSTR) pvData, &pszEnd, 10); 

// Copy the record ID string into global data. 

if (ISize <= ILXT_MAX_RECID_STRING) 

IL_STRCPY (gd->m_szRecID, (char *) pvData); 
else 

LOG_ERROR_AND_EXIT (iRc, ILXT ERR LIMIT); 
} " " 

// If we have unique ID's get the unique ID from original TIF record 

if (gd->m_bHasUniqueID) 

{ 

iRc = ILTIFGetField (tr, ILTR_FLD_UNIQUE ID, TIF ORIGINAL, SlSize, &pvData) ■ 
if (iRc != SUCCESS) ~ ~ 

LOG_ERROR_AND_EXIT (iRc, ILXT_ERR_TIF) ; 

// Copy the UNIQUE record ID string into global data. 

if (ISize <= ILXT_MAX_RECID_STRING) 

IL_STRCPY (gd->m_szUniqueID, (char *) pvData); 
else 

LOG_ERROR_AND_EXIT (iRc, ILXT ERR LIMIT); 

Exit : 

// All done 

return (iRc) ; 

} 
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#if !def ined( ILCILFIELD) 

/* 

* Module: cilfield.h 

* Purpose: Header file for field class 

* Author: Dave McConville, Copyright (c) IntelliLink, 1995 

* Notes: 

* Libraries: The "following libraries are needed to use ILXL: 

* <None> 

* v 

#define ILCILFIELD // Indicate header inclusion 

// Include all the relavent headers 

#include "cilglobl . h" 
#include "iltbl.h" 
#include "iltr.h" 

/* 

* ILField class. 

* */ 

#define CILFieldPtr CILField * 

class CILField 

{ 

public : 

// Class constructor 

CILField (); 

// Class destructor 

-CILField (); 

/* 

* Caller accessible functions 
* */ 



int Type 

(char * szBuf, 

unsigned int uiBufSize); 

int SetType 

{char * szType) ; 

BOOLEAN IsType 

(char cType) ; 

virtual int GetFroraApp 
(ILTR_PTRANSL tr, 
CILGlPtr gd) ; 

virtual int PutToIL 

{ ILTR_PTRANSL tr, 
IL_PANY pVal, 
UINT32 len ) ; 



// return type of field 

// string buffer 

// size of buffer 

// set the field type 

// ptr to type string 

// set the field type 

// type as char 

// move field from app to IL 

// pointer to tr 

// pointer to global data object 

// wrapper for ILFldPut 



virtual int ProcessGet 
(ILTR_PTRANSL tr, 
CILGlPtr gd) ; 

virtual int PutToApp 

(ILTR_PTRANSL tr, 
CILGlPtr gd) ; 

virtual int Process Put 
( ILTR_PTRANSL tr, 
CILGlPtr gd) ; 



// perform action on field for get 

// pointer to tr 

// pointer to application data 

// Move field from IL to app 

// pointer to tr 

// pointer to global data object 

// perform action on field for get 

// pointer to tr 

// pointer to global data object 



field object attributes 



int 
int 
char 

char 



m_nILTRIndex; 
m_nCILFAIndex; 
m_sz Label 

[ ILTR_MAX_FLDNAME 
m szName 



+ 1] 



// index in ILTR Field List 

// index in Field Array 

// internal field name 

// . . 

// external field name 



[ILTR MAX FLDNAME + 1]; // 
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char 
char 

unsigned int 

ILX_ATTR 
int 

BOOLEAN 

IL_PSTR 

int 

int 

long 



m_szType [ 2 J ; 
m_szDef aultValue 

[ILTR_MAX_TYPEDESC] ; 
m_uiMaxLength; 

m_ulAttribs; 

m_nFieldAction; 

m_bIsMapped; 

m_lpData; 

m_n Format ; 

m_nOrigin; 

m lRefCon; 



// data type of field 

// Default value (if any) 

// . . 

// max length for data 

// 0 - variable length 

// Field attributes 

// Action to be taken on field 

// whether field is mapped 

// pointer to field data 

// format data is stored in 

// field origin 

// each xlator is free to use 

// this field for whatever ! ! 



}; 



#endif // ILCILFIELD 



i 
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/*■ 










File: 


CILFIELD.CPP 


* 


Purpose : 


Implementation of member functions for CILFeild 


* 


Functions : 


CILField: 


:CILField 


+ 




CILField: 


: -CILField 


* 




ClfcField: 


:Type 






CILField: 


; SetType 


+ 




CILField: 


: GetFromApp 


* 




CILField: . 


:PutToIL 


* 




CILField: : 


: ProcessGet 


+ 




CILField: : 


PutToApp 


+ 




CILField: : 


ProcessPut 


+ 


Author : 


Dave McConville, Copyright (c) IntelliLink, 1995 



class 



/ 



// 

#include 
#include 
tinclude 
#include 
#include 
#include 



Include all the relavent headers 



"cilglobl.h" 
"oilfield. h" 
"cildata.h" 
"iltr .h" 
"ilxtrans.h" 
"ilxterr . h" 



// header for CILGlobalData class 

// header for CILField class 

// header for CILDataStore class 

// general ILTR header file 

// error codes & error handling protos 



extern "C" 
{ 

# include "ilmacro . h' 
} 



/ 



+ 
* 



Name 
Purpose 
Parameters 
Returns 



CILField: :CILField 
Class constructor . 
none 
none 



Initializes data members. 



CILField: :CILField ( ) 
{ 

m_nILTRIndex = -1; 
m_nCILFAIndex = -1; 
m_szLabel[0] = ILXT_CHAR_NULL; 
m_szName[0] = I LXT_CHAR_NULL ; 
m_szType[0] = 'A'; 
m_szType[l] = I LXT_CHAR_NULL ; 

ILXT CHAR NULL; 



/ 



} 



m_szDef aultValue [0] = _ 
m_uiMaxLength = 0; 
m_ulAttribs = 0; 

m_nFieldAction = ILXT_ACT_NORMALFIELD 
mJblsMapped = FALSE; 
m_lpData ~ NULL; 

m_nFormat = I LXT_UNKNOWN_FORMAT ; 
m_nOrigin = ILXT_APP_FIELD; 
m IRefCon = -1; 



// Field's index in ILTR Field List 
// Field's index in FieldArray 
// internal field name 
// external field name 
// data type of field 
// . . 

// Default field value (if any) 

// max length for data; 0 = variable 

// Field attributes 

// Action to be taken on this field 

// whether field is mapped 

// pointer to field data 

// true if data is stored in IL format 

// field origin {app or "special") 

// xlator-def ined usage 



+ Name 

* Purpose 

* Parameters 

* Returns 



CILField: : -CILField 
Class destructor 
none 
none 



CILField: : -CILField ( ) 

t 



/ 



* 



Name 

Purpose 

Parameters 

Returns 



int CILField 



CILField: :Type 
return type of field 

szBuf - string buffer to copy type into 
nBufSize - size of buffer passed 
: ILXT_0K - all is well 

ILXT_ERR_TRUNC - incoming type string was truncated 
v 

: Type 

(char * szBuf, // string buffer 

unsigned int uiBufSize) // size of buffer 
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if (IL_STRLEN (this->m_szType) > uiBufSize) 



IL_MEMCPY (szBuf, this->m_szType, uiBufSize); 
return ILXT ERR TRUNC; 



> 

else 
{ 

IL_STRCPY (szBuf, this->m_szType) ; 
return ILXT_OK; 

} 



/* 

* Name 

* Purpose 

* Parameters 

* Returns 



CILField: : SetFieldType 

sets the field type 

szType - pointer to type string 

ILXT_OK 

ILXT ERR BAD FLD TYPE 



int CILField: : SetType 

(char * szType) 

{ 



/ 



// ptr to type string 



if { IL_STRLEN (szType) > ILTR MAX TYPEDESC) 
{ 

this->m_szType[0] = ILXT_CHAR_NULL; 
return ILXT_ERR_BAD_FLD_TYPE; 

} 

else 
( 

IL_STRCPY (this->m_szType, szType) ; 
return ILXTJDK; 

} 



} 



/* 

* Name 

* Purpose 

* Parameters 

* Returns 

-*-_ 



CILField: : IsType 

check if field is of the given type 
cType - type to check for 
True i False 

+ / 

BOOLEAN CILField: : IsType 

^ (char cType) // field type as char 

if (this->m_szType [0] == cType) 

return TRUE; 
else 

return FALSE; 



/ 



Name 
Purpose 
Parameters 
Returns 



* 
★ 



int CILField: :GetFromApp 

(ILTR_PTRANSL tr, 
CILGlPtr gd) 



CILField: :GetFromApp 

Retrieve field from application and put field to ILTR 
Pointer to ILTR global, pointer to global data object 
SUCCESS 

error code from ILFldPut or ILTIFPutField 
+ / 



{ 



CILDataStore 
int 



* pDataStore; 
iRc; 



// pointer to DataStore object 
// return code 



// fetch the DataStore object from gd 

pDataStore = gd->m_pDataStore; 

/* 



* If this field is not an IntelliLink Special field, then 

* read the field from the DataStore, else just allow the 

* special processing to take place in the ProcessGet 

* member fucntion. 
* */ 

if (m_nOrigin == ILXT_APP_FIELD) 

{ 



fetch the next field from the current record 
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iRc = pDataStore->ReadField (tr, gd, this); 
if (iRc) 

EX I T_W I TH_ERROR (iRc); 

} 

// data i^ in field buffer and in application "native" format. 

m_lpData = gd->m_lpFldBuf ; 

m_n Format = I LXT_NAT I VE_FORMAT ; 

// process the field based on its action code 

iRc = this->ProcessGet (tr, gd) ; 
if (iRc) 

EXIT_WITH_ERROR (iRc); 

// If we have valid field data, write it to intermediate file now 

if (gd->m_nFieldAction ILXT_PUTFIELD) 

{ 

/* 

* Only put out this field if we have a non-null buffer pointer. 

* NOTE: we do put out zero-length fields here; required for FILTERS 

* to work right. It is probably impossible, or at least abnormal, 

* to have a null buffer pointer here. 



if (m_lpData) 
{ 

// j_ s this a real export or export before import 

if (gd->m_nPhase == ILXT_EXPORT) 
{ 

// i t . s an export : write to ILIF or TIF or Transfer File 

iRc = this->PutToIL (tr, m_lpData, (UINT32) gd->m_uiFieldLen) ; 

// check for valid return codes - their ok 

if ((iRc == ILIF_ERR_NOFIELD) || (iRc =- ILTR ERR NOFLD) ) 
iRc = SUCCESS; 

// if truncated, flag as field error and clear 

if (iRc == ILTR_ERR_TRUNC) 
{ 

ILAddFieldError ( tr, m_szLabel, ILTR_ERR_TRUNC ) ; 
iRc = SUCCESS; 

} 

} 

else if (gd->m_nPhase == ILXT EXPORT BEFORE IMPORT) 
{ 

/* 

* This is an export before import. Skip this field if only mapped 

* fields are supposed to go into TIF and this field is not mapped 

* and this is NOT a HIDDEN field. All HIDDEN fields qo to TIF 
* V 

if (pDataStore->m_bOnlyMappedInTIF && ( ! m_bIsMapped) && 
! (m_ulAttribs & ILTB_ATT_HIDDEN_FIELD) ) 
//do nothing - skip the write 

else 
{ 

// write the field to TIF 

iRc = ILTIFPutField (tr, m szLabel, m IpData, gd->m uiFieldLen) ; 
if (iRc) 

L0G_ERROR_AND_EXIT (iRc, iRc) ; 

) 

} 

else 
( 

// Logic error if not exporting or exporting before import 

LOG_ERROR_AND_EXIT (0, ILXT ERR LOGIC) ; - 

} 

} 

} 

else // don't write field to ILIF 
{ 

// reset Field Action to default 

gd->m_nFieldAction = ILXT PUTFIELD; 

} 

Exit: 

// a n d one w ith this field 

return iRc; 
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} // CILField :: GetFromApp 



/* 

* Name : C£LField: : PutToIL 

* + / 

int CILField: : PutToIL 

( ILTR_PTRANSL tr, 
IL_PANY pVal, 
UINT32 len ) 

{ 

int iRc; 

iRc o iLFldPut {tr, m_szLabel, (IL_PSTR) pVal, (unsigned int) len); 
return iRc; 

} // CILField: : PutToIL 



/ 



★ 



* 



Name 



* Purpose 

* Parameters 

* Returns 



CILField: : ProcessGet 

Process the field based on it FieldAction code 
Pointer to ILTR global, pointer to global data object 
SUCCESS - all is well 

ILXT_ERR_UNK_VAL - unknown field action code 

return codes from DataStore member functions 
v 



int CILField: : ProcessGet 

(ILTR_PTRANSL tr, // pointer to tr 

CILGlPtr gd) // pointer to application data 



{ 



int iRc = SUCCESS; // return code 

CILDataStore *pDataStore; // pointer to DataStore object 

// fetch DataStore object from gd 

pDataStore = gd->m_pDataStore; 

// s et default action to "put this field" to intermediate file 

gd->m_nFieldAction = ILXT_PUTFIELD; 

// Assume data is in the field buffer unless told otherwise 

m_lpData = gd->m_lpFldBuf ; 

/* 

* If this is an application field (i.e. not hidden or special) 

* and there is no data, then don't bother processing. 
* v 

if ( (m_nOrigin == ILXT_APP_FIELD) && (gd->m uiFieldLen == 0)) 
{ 

return SUCCESS; 

} 

// Process the field in accordance with its "action" code 

switch (m_nFieldAction) 
{ 

case ILXT_ACT_STARTDATE: // Field is a "start date 

case ILXT_ACT_ENDDATE: // Field is an "end date" 

case ILXT_ACT_ALARMDATE: // Field is an "alarm dat 

// allow datastore to convert dates 

m_lpData = pDataStore->DateToIL (m_lpData, gd->m_lpConvBuf ) ; 

// recalculate the field length 

gd->m_uiFieldLen = IL_STRLEN (m_lpData) ; 

// i s tn i s the s tart date? 

if (m_n FieldAction == ILXT_ACT_STARTDATE) 
{ 

/* 

* If there is a value for this field then convert it 

* from Alpha Date format to Date Code (long) format 

* and save it away for range checking. 
* */ 

if (m_lpData[0] != ' \0 * ) 

// convert it and save it 

gd->m_lStartDate = IL_AlphaToCodeDate (<IL_PSTR) m_lpData) 
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else 

// specify no start date 

gd->m_lStartDate = 0; 

} 

break; 

case I LXT_ACT_STARTT IME : // Field is a "start time" 

case ILXT_ACT_ENDTIME: // Field is an "end time" 

case ILXT_ACT_ALARMTIME: // Field is an "alarm time" 

// allow datastore to convert times 

m_lpData = pDataStore~>TimeToIL (m_lpData, gd->m_lpConvBuf ) ; 

// recalculate the field length 

gd->m_uiFieldLen = IL_STRLEN <m_lpData) ; 
break; 

case ILXT_ACT_ALARMFLAG: // Field is an "alarm flag" 

// allow datastore to convert Boolean flags 

m_lpData = pDataStore->BoolToIL (m_lpData, gd->m_lpConvBuf ) ; 

// recalculate the field length 

gd->m_uiFieldLen = IL_STRLEN {m_lpData); 
break;" 



case ILXT_ACT_PHONE: // Field is a "phone field' 

// allow datastore to convert phones 

m_lpData = pDataStore->PhoneToIL (m_lpData, gd->m_lpConvBuf ) ; 

// recalculate the field length 

gd->m_uiFieldLen = IL_STRLEN (m_lpData) ; 
break; 



case ILXT_ACT_PRIORITY: // Field is a "priority" 

// allow datastore to convert priorities 

m_lpData = pDataStore->PriorToIL (m_lpData, gd->m_lpConvBuf ) ; 

// recalculate the field length 

gd->m_uiFieldLen = IL_STRLEN (m_lpData); 
break; 

case ILXT_ACT_TODODONEFLD: // Field is "To Do Completed" 

// allow datastore to convert flag 

m_lpData = pDataStore->BoolToIL (m_lpData, gd->m_lpConvBuf ) ; 

■ // recalculate the field length 

gd->m_uiFieldLen = IL_STRLEN (m_lpData) ; 

// Make sure we have a valid pointer before using it 

if (m_lpData == NULL) 

iRc = ILERROR (0, ILXT_ERR_LOGIC) ; 

// should Done To Do check be performed? 

if (gd->m_bToDoDoneCheck) 
{ 

// Set skip flag if TodQ dQne & Qnly export i ng not done Xodo . s 

if (ILTR_nSchOpt ==* I LTB_TODO_NOTDONE && m_lpData[0] == '1') 
gd->m_bSkipToDo = TRUE; 

} 

break; 

case ILXT_ACT_KEYFIELD: // Field is a "key field" 

case ILXT_ACT_NORMALFIELD: // Field is a "normal field" 

// Allow datastore to convert data according to its type 

if (this->IsType <ILX_TYPE BOOL)) 

{ 

// convert BOOLEAN to IntelliLink format 

^ m_lpData = pDataStore->BoolToIL (m_lpData, gd->m_lpConvBuf ) ; 

else if (this->IsType (ILX TYPE DATE)) 
{ 

// convert Date to IntelliLink format 

^ m_lpData = pDataStore->DateToIL (m_lpData, gd->m_lpConvBuf ) ; 

else if (this->IsType (ILX_TYPE TIME)) 
{ 

// convert time to IntelliLink format 
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m_lpData = pDataStore->TimeTolL (m_lpData, gd->m_lpConvBuf ) ; 

else if (this->m_ulAttribs & ILTB_ATT_VIEW) 
ILSetRecName (tr, m_lpData) ; 

// recalculate the field length 

gd->m_uiFieldLen = IL_STRLEN (m_lpData); 
break; 

case ILXT_ACT_APPDATA: 
/* 

* This special field allows applications to pass arbitrary data 

* to the intermediate file. Allow the DataStore to use this field 

* by processing this action and calling the DataStore's Get appdata 

* member function. Data (if any) is placed in gd->m lpFldBuf 
* */ 

iRc = pDataStore->Get_appdata (tr, gd, this); 

m_lpData = gd->m_lpFldBuf ; 

break; 

case ILXT_ACT_REPEATBASIC : 
/* 

* This special field is used to extract repeat information for the 

* current record from the DataStore. The DataStore's GetRepeat 

* member function is responsible for setting the m_bRepeatingAppt 

* flag to specify whether or not this record repeats. It is also 

* the responsibility of that function to fill in the ILTR REPEAT 

* structure pointed to by gd if it is in fact a repeating~item. 
★ * / 

iRc = pDataStore->GetRepeat (tr, gd, this); 
gd->m_nFieldAction = ILXT_IGNOREFIELD; 
break; 

case ILXT_ACT REPEATXDATES: 
/* 

* This special field is treated together with the "Repeat Basic" 

* field under ILXT_ACT__REPEATBASIC, and can be ignored here 
* * i 

gd->m_nFieldAction = ILXT_IGNOREFIELD; 
break; 

case ILXT_ACT_RECORDID: 
/* 

* This special field is used to allow the data store to assign an 

* id to this record. 
* * I 

iRc = pDataStore->GetRecID (tr, gd, this); 

m_lpData = gd->m_lpFldBuf ; 

break; 

case ILXT_ACT_UNIQUEID: 
/ + 

* This special field is used to allow the data store to assign 

* a UNIQUE id to this record. 
* */ 

iRc = pDataStore->GetUniqueID (tr, gd, this); 

m_lpData = gd->m_lpFldBuf ; 

break; 

case I LXT_ACT_DELTA : 
/* 

* This special field is used, for "Fast Sync" translators only, 

* to allow such translators to pinpoint Adds, Changes, and Deletes 

* that have occurred since the last time synchronization was done. 
* */ 

iRc = pDataStore->GetDelta (tr, gd, this); 

m_lpData = gd->m__lpFldBuf ; 

break; 

case ILXT_ACT_SUBTYPE: 
/* 

* This special field carries the Section SubType Tag (aka Origin Tag) 

* from Source to Target, but translators should not touch this field 

* directly. Special harness code moves Tags back and forth between 

* the "_subType" field and user-visible fields which have 

* field attribute ILTB ATT TAGGED. 
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./ 

gd->m_nFieldAction = ILXT_IGNOREFIELD; 
breaks- 
default : 

// Is this a special DataStore action 

if (mjnFieldAction >= ILXT_ACT_USER_BASE) 

// pass it along to the DataStore 

iRc = pDataStore->ProcessGetAction (tr, gd, this); 
else 

// unknown field action code 

iRc = ILERROR (m_nFieldAction, I LXT_ERR_UNK_VAL ) ; 

// if there was an error then ignore this field 

if (iRc) 

gd->m nFieldAction = ILXT IGNOREFIELD; 



} 



// Make sure we have a valid data- pointer if "put field" is set 

if (m_lpData « NULL && gd->m_nFieldAction == ILXT_PUTFIELD) 
iRc = ILERROR (0, ILXT_ERR_LOGIC) ; 

// we are done 

return iRc; 

} // CILField: : ProcessGet 



* Name 

* Purpose 

* Parameters 

* Returns 



CILField: : PutToApp 
Move field from IL to app 

Pointer to ILTR global, pointer to global data object 

SUCCESS or error code 
* */ 

int CILField: : PutToApp 

(ILTR_PTRANSL tr, // pointer to tr 

CILGlPtr gd) // pointer to application data 

{ 

CILDataStore * pDataStore; // pointer to DataStore object 

int iRc; // return code 

// fetch DataStore object from gd 

pDataStore = gd->m_pDataStore; 

// process each field based on its field type and attributes 

iRc = this->ProcessPut (tr, gd) ; 
if (iRc) 

EXIT_WITH_ERROR (iRc); 

// data is currently in application "native" format 

m_nFormat = ILXT_NATIVE_FORMAT; 

/* 

* If this field is not an IntelliLink Special field, then write 

* the field to the DataStore, else the special processing that 

* took place in ProcessPut member function should have handled it. 
* * I 

if (m_nOrigin == ILXT_APP_FIELD) 

// Write the field to the record 

iRc = pDataStore->WriteField (tr, gd, this); 

Exit: 

// all done 

return iRc; 

} // CILField: : PutToApp 



* 



+ 



Name 



* Purpose 

* Parameters 

* Returns 



CILField: :ProcessPut 



Pointer to ILTR global, pointer to global data object 

SUCCESS or error code 
* __*/ 

int CILField: : ProcessPut 

(ILTR_PTRANSL tr, ■ // pointer to tr 
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CILGlPtr gd) 



int iRc = SUCCESS; 

int nExSize; 
long ISize; 

IL_PANY jjvData; 

CILDataStore *pDataStore; 

IL_PSTR pOriginalData; 

// fetch DataStore object from gd 



pDataStore ~ gd->m pDataStore; 



pointer to application data 
return code 

size of repeat exlusion list (bytes) 
Return value from TIE 
Return value from TIF 
pointer to DataStore object 
original pointer to field data 



// 

// 
// 
// 
// 
// 
// 



// remember original pointer to data 

pOriginalData = m_lpData; 

//__ Process the field in accordance with its "action" code 

switch {m_nFieldAction) 
{ 

case ILXT_ACT_STARTDATE: // Field is a "start date" 

case ILXT_ACT_ENDDATE: // Field is an "end date" 

case ILXT_ACT_ALARMDATE: // Field is an "alarm date" 

// allow DataStore to convert to native date format 

m_lpData = pDataStore->DateFromIL (m_lpData, gd->m_lpConvBuf ) ; 

// was a conversion successful? 

if (m_lpData == NULL) 

iRc = ILERROR (0, ILXT_ERR_CONV) ; 

break; 



case ILXT_ACT_STARTTIME: // Field is a "start time" 

case ILXT_ACT_ENDTIME: // Field is an "end time" 

case ILXT_ACT_ALARMTIME: // Field is an "alarm time" 

// allow DataStore to convert to native time format 

m_lpData = pDataStore->TimeFromIL (m_lpData, gd->m_lpConvBuf ) ; 

// was a conversion successful? 

if (m_lpData == NULL) 

iRc = ILERROR (0, ILXT_ERR_CONV) ; 

break; 



case ILXT_ACT_ALARMFLAG: // Field is an "alarm flag" 

// allow DataStore to convert boolean 

m_lpData = pDataStore->BoolFromIL (m_lpData, gd->m_lpConvBuf ) ; 

// was a conversion successful? 

if (m_lpData ==* NULL) 

iRc = ILERROR (0, ILXT_ERR_CONV) ; 

break; 



case ILXT_ACT_PH0NE: // Field is a "phone field" 

// allow DataStore to convert phone 

m_lpData = pDataStore->PhoneFromIL (m_lpData, gd->m_lpConvBuf ) ; 

// was a conversion successful? 

if (m_lpData == NULL) 

iRc = ILERROR (0, ILXT_ERR_CONV) ; 

break; 

case ILXT_ACT_PRIORITY: // Field is a "priority" 

// allow DataStore to convert priorities 

m_lpData = pDataStore->PriorFromIL (m_lpData, gd->m_lpConvBuf ) ; 

// was a conversion successful? 

if (m_lpData == NULL) 

iRc = ILERROR (0, ILXT_ERR_CONV) ; 

break; 



case ILXT_ACT_TODODONEFLD: // Field is "To Do Completed" 

// allow DataStore to convert boolean 

m_lpData =» pDataStore->BoolFromIL (m_lpData, gd->m IpConvBuf); 
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// was a conversion successful? 

if (m_lpData NULL) 

iRc = ILERROR (0, ILXT_ERR_CONV) ; 

break; 



case ILXT_A(Tt_KEYFIELD: // Field is a "key field" 

case ILXT_ACT_NORMALFIELD: // Field is a "normal field" 

if (! m_lpData) 
break; 

if (this->IsType ( ILX_TYPE_BOOL) ) 

// allow DataStore to convert boolean 

m_lpData = pDataStore->BoolFromIL (m_lpData, gd->m_lpConvBuf ) ; 
else if (this->IsType ( ILX_TYPE_DATE) ) 

// allow DataStore to convert date 

m_lpData = pDataStore->DateFromIL (m_lpData, gd->m IpConvBuf ) ; 
else if (this->IsType { ILX_TYPE_TIME) ) 

// allow DataStore to convert time 

m_lpData = pDataStore->TimeFromIL (m_lpData, gd->m_lpConvBuf ) ; 
else if (this->m_ulAttribs & I LTB_ATT_VI EW ) 
ILSetRecName (tr, m_lpData) ; 

// was a conversion successful? 

if (m_lpData == NULL) 

iRc = ILERROR (0, ILXT_ERR_CONV) ; 

break; 

case ILXT_ACT_APPDATA: 
/* 

* This special field allows applications to pass arbitrary data 

* to the intermediate file. Allow the DataStore to use this field 

* by processing this action and calling the DataStore' s Put_appdata 

* member function. 
* * i 

iRc = pDataStore->Put_appdata (tr, gd, this); 
break; 

case ILXT_ACT_REPEATBASIC: 
/* 

* This special field is used to pass repeat information for the 

* current record to the DataStore. The DataStore's PutRepeat 

* member function is responsible for extracting the data from 

* the ILTR_REPEAT structure pointed to by gd if this record is 

* in fact a repeating item. 
* V 



// check if there is a repeat structure for this record 

if (gd->m_uiFieldLen == 0) 
break ; 

// copy repeat struct from field buffer 

IL_MEMCPY (gd->m_pRepeatInfo / gd->m_lpFldBuf , sizeof (ILTR_REPEAT) ) ; 

// j_f there are exclusions then create exclusion list 

if (gd->m_pRepeatInfo->numExDates) 
{ 

// determine size of exclusion list 

nExSize = gd->m_pRepeatInf o->numExDates * sizeof (long); 

// allocate space for exclusion list 



gd->m_pRepeatInfo->exDates = { ILTR_PDATES) IL_ALLOC (nExSize, 

gd->m_pRepeatInfo->hExDates) ; 
if (gd->m_pRepeatInfo->exDates == NULL) 
return ILTR ERR NOMEM; 



// Get the exclusion list from TIF 

iRc = ILTIFGetField (tr, I LTR_RE P_XDATE , TIF_AUTO, 

&lSize, &pvData) ; 

// These had better agree! 

if (ISize != (long) nExSize) 

return ILERROR (nExSize, ILXT_ERR_USAGE) ; 

// cop y the exclusion list from field buffer 



IL_MEMCPY (gd->m_pRepeatInfo->exDates/ ( IL_PSTR) pvData, nExSize); 
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> 

// i et t h e datastore handle the repeat stuff 

iRc = pDataStore->PutRepeat (tr, gd, this); 
break; 

case ILXT_ACT_REPEATXDATES: 
/* 

* This special field is treated together with the "Repeat Basic" 

* field under I LXT_ACT_RE PEATBAS IC , and can be ignored here 
* */ 

break; 

case ILXT_ACT_RECORDID: 
/ 

* This special field is used to store the record id for a particular 

* record. Pass this id onto the datastore for current record 
* */ 

iRc ~ pDataStore->PutRecID (tr, gd, this); 
break; 

case ILXT_ACT_UNIQUEID: 
/* 

* This special field is used to set the UNIQUE record id for a 

* record. Pass this id onto the datastore for current record. 
* * / 

iRc = pDataStore->PutUniqueID (tr, gd, this); 
break; 

case I LXT_ACT_DELTA : 
/* 

* This special field is used, for "East Sync" translators only, 

* to allow such translators to pinpoint Adds, Changes, and Deletes 

* that have occurred since the last time synchronization was done. 

* It is meaningful for EXPORT only, so we do nothing with it here. 
* + 1 

iRc = SUCCESS; 
break; 

case ILXT_ACT_SUBTYPE: 
/* 

* This special field carries the Section SubType Tag (aka Origin Tag) 

* from Source to Target, but translators should not touch this field 

* directly. Special harness code moves Tags back and forth between 

* the "_subType" field and user-visible fields which have 

* field attribute ILTB_ATT TAGGED. 
* */ 

iRc = SUCCESS; 
break; 

default : 

// Is this a special Datastore action 

if (m_nFieldAction >= ILXT_ACT_USER_BASE) 

// pass it along to the Datastore 

iRc = pDataStore->ProcessPutAction (tr, gd, this); 

else 

// unknown field action code 

iRc = ILERROR (0, ILXT_ERR UNK VAL) ; 

} 

/* 

* Check if the data has been converted in GlobalData conversion buffer. 

* This will be the case if the pointer in m_lpData has changed. Check 

* that value here and if it has then copy the data from the conversion 

* buffer pointed to by m_lpData to the field buffer in gd. 
* */ 

if (m_lpData != pOriginalData) 
{ 

// copy the data from m_lpData to gd->m_lpFldBuf 

IL_STRCPY (gd->m_lpFldBuf , m_lpData) ; 

// reset m_lpData to point to field buffer 

m_lpData = gd->m_lpFldBuf ; 

} 

// all done 
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return iRc; 
) // CILField: : ProcessPut 
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ffifndef _ILTIF_INCLUDED 
ffdefine _ILTIF_INCLUDED 

/ + 

+ Name: ILTIF.H 

* Purpose: This file contains all of the structures, defines and includes 

* used in the ILTIF API for accessing TIF files. 
+■ 

* Author: Ken Dobson, Copyright (c) IntelliLink Corporation, 1994 
v 

ffinclude "illog.h" 
ffinclude "illink.h" 

/ + 

* TIF Phases of Operation (for StartNextPhase calls) 

* - first two ^defines are special values used to manage phase transitions 

* that span address-space switches, e.g Win32/16 or Mac EXE/CodeResource . 

+ . 

ffdefine TI F_PHASE_PREVIOUS 28 

ffdefine TI F_PHASE_NEXT 30 

ffdefine TI F_PHASE_SETTING_THINGS_UP 33 

ffdefine TI F_PHASE_DONE_SETTINGJTHINGS_UP 29 // !!! out of sequence !!! 

#define TI F_PHASE_LOADING_PREVIOUS_RECORDS 34 

ffdef ine TI F_PHASE_LOADING_TARGET_RECORDS 35 

ffdefine TI F_PHASE_LOADING_SOURCE_RECORDS 36 

ffdefine TI F_PHASE_SANITIZING_SOURCE_RECORDS 37 

ffdefine TIF_PHASE_CHOOSING_RECORDS 31 

ffdefine TIF PHASE CONFLICT RESOLUTION 38 



// TIFTablePickRecordsForSync( ) relied on order of next 3 chase numbers 

ffdefine TI F_PHASE_UNLOADING_TO_TARGET 39 
ffdefine TI F_PHASE_UNLOADING_TO_SOURCE 40 
ffdef ine TI F_PHASE_UNLOADING_TO_HISTORY 41 

ffdefine TIFSYNC_UNLOAD_PHASE_COUNT 3 // the three "unloading_to_xxx" values 

/* 

* The next 2 definitions are for use of TIF on EXPORT. On EXPORT we clearly 

* are loading from the SOURCE system, but this use of TIF is meant to be 

+ simple; no field mapping or source record caching. So we lie and say that 

* we're loading TARGET records. 

* _ v 

ffdefine TI F_PHASE_LOADING_FOR_EXPORT TI F_PHASE_LOADING_TARGET RECORDS 

ffdefine TI F_PHASE_UNLOADING_FOR_EXPORT 42 

/ + 

* The remaining phase definitions are for "pseudo-phases". TIF users 

* call ILTIFStartNextPhase with one of the following phase numbers solely 

* for the sake of getting TIF to add something to TIF. LOG. 

+ . , 

ffdefine TI F_PHASE_FANNING_BEFORE_UNLOAD 51 
ffdefine TIF PHASE FINISHED FANNING BEFORE UNLOAD 52 



/* 

* Length of EPOCH string, stored in ILINK.INI and in TIF History Files 
* v 

ffdefine TI F_EPOCH_SIZE 16 // YYYYMMDD. HHMMSS\ 0 

ffifdef BUILDING_ILTIF_ITSELF 

ffinclude "tif.h" 
ffendif 

// Mechanism Interface globals 
typedef struct ILTIF_STRUCT 
{ 

IL_HANDLE hstlLTIF; // Handle of global structure 

ffifdef BUILDING_ILTIF_ITSELF 

ILT_PTIF pstTIF; // Pointer to global TIF structure 

#else 

IL_PANY pstTIF; // Pointer to global TIF structure 

ffendif 
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// 

ILUT_BUFFER 
ILUT_BUFFER 
ILUT_BUFFER 

ILUT_BUFFER 

BOOLEAN 

LPSILLOG 
cha r 
char 



next 3 members are reusable buffers used to hold field values 
Field; // last field value 

Field2; // used exclusively by GetMappedField 

Field3; // used by MappedFieldChanged and by 

// GetFieldGuts for Phase20 nested calls 
// for any very localized usage. . . 



TmpBuf ; 
bTestMode; 
IpsILLog; 



// TRUE if running in Test environment 



// Pointer to Logging control block 
szHistoryName[ 9] ; // basic filename w/o path or extension 
szHistoryDir [MAX_PATH] ; // where history files belong 



} ILT_ILTIF; 

typedef ILT_ILTIF IL_DIST 



/ / access macros 

#define ILTI F_Field 
ffdefine ILTIF_Field2 
#define ILTI F_Field3 
ffdefine ILTI F TmpBuf 



for 



// Global data structure 

*ILT_PILTIF; // Pointer to above struct 

members of the ILT_ILTIF structure: 
{ ILTR_pILTI F->Field } 
(ILTR_pILTIF->Field2) 
(ILTR_pILTIF->Field3) 
{ ILTR_pILTI F->TmpBuf } 



#define ILTIF_hstILTIF { ILTR_pILTIF->hstILTIF) 

ffdefine ILTIF_pstTIF ( ILTR_pILTIF->pstTIF) 

ffdefine ILTIF_szHistoryName ( ILTR_pILTIF->szHistoryName ) 

#define ILTIF__szHistoryDir { ILTR_pILTIF->szHistoryDir } 

11 * " " ' (ILTR_pILTIF->szWorkFile) 



ffdefine ILTI F szWorkFile 



// TIF max values 
ffdefine TIF_MAX_DISDATE 
ffdefine TI F_MAX_DISTIME 

// TIF Error Defines 



32 
32 



// Maximum display date 
// Maximum display time 



#def ine 


TIF 


ERR BASE 


(-700) 






#def ine 


TIF~ 


|err_bad PARAM 


{TIF ERR 


BASE - 


1) 


ffdefine 


TIF~ 


"err BAD FASTSYNC DELTA 


(TIF ERR~ 


"base - 


2) 


#def ine 


TIF" 


[err_mem 


(TIF ERR~ 


"base - 


3} 


ffdefine 


TIF~ 


~err_bad state 


(TIF ERR 


"base - 


4) 


ffdef ine 


TIF 


"err bad FLDNAME 


(TIF ERR~ 


"base - 


5) 


ffdef ine 


TIF 


"recerror 


(TIF ERR* 


"base - 


6) 


ffdef ine 


TIF 


'EOF 


(TIF ERR~ 


"base - 


7) 


ffdef ine 


TIF 


"err_wrong_phase 


(TIF ERR 


"base - 


8) 


#def ine 


TIF~ 


"err cant create dir 


(TIF ERR 


"base - 


9) 


ffdefine 


TIF 


~err_logging 


(TIF ERR 


"base - 


10) 


ffdef ine 


TIF 


"err_bad_mode 


(TIF ERR 


BASE * 


11) 


ffdefine 


TIF 


"err_absurd_fanout 


(TIF ERR 


BASE - 


12) 



22) 
23) 



// next error i s when # of ILTIFDef Fields calls exceeds number 

// 0 f field slots allocated in ILTIFCreate call 

ffdefine TI F_ERR_PILTI F_IS_NULL { TI F_ERR__BASE - 13} 
ffdefine TI F_ERR_BAD_HISTORY_FILE ( TI F_ERR_BASE - 14) 
#define TI F_ERR_CANT_DELETE_FILE (TI F_ERR_BASE - 15} 
#define TIF_ERR_GetTempFileName ( TI F_ERR_BASE - 16) 
TIF_ERR_17 ( TI F_ERR_BASE - 17} 
TI F_NO_MATCH ( TI F_ERR_BASE - 18) 
TIF_ERR_BAD_TIF_ORIGIN (TIF_ERR_BASE - 19) 
TIF_ERR_BR0KEN_SKG ( TI F_ERR_BASE - 20) 
TIF_ERR_PDATA_IS_NULL ( TI F_ERR_BASE - 21) 
TI F_ERR_TARGETID_IN_SOURCE_REC ( TI F_ERR_BASE 
TIF_ERR_SOURCEID_IN_TARGET_REC ( TI F_ERR_BASE 
TIF_ERR_BAD_ID_SLOT { TI F_ERR_BASE - 24) 
TI F_ERR_BROKEN_CIG ( TI F_ERR_BASE - 25} 
TIF_ERR_BAD_CIG_POPULATION ( TI F_ERR_BASE - 26) 
TIF_ERR_NEXT_IS_BAD ( TI F_ERR_BASE - 27} 
TIF_ERR_BAD_0THER_0RIGIN ( TI F_ERR_BASE - 28) 
TIF_ERR_CANT_JOIN_BAD_CIG ( TI F_ERR_BASE - 29) 
TIF_ERR_CANT_LEAVE_BAD_CIG ( TI F_ERR_BASE - 30) 
TI F_ERR_BAD_NEWMEMBER_ORIGIN ( TI F_ERR_BASE - 31) 
TIF_ILLEGAL_MATCH ( TI F_ERR_BASE - 32) 
TI F__ERR_BAD_ORIGIN ( TI F_ERR_BASE - 33) 
TIF_ERR_HETEROGENEOUS_CIG (TIF_ERR_BASE - 34) 
TIF_ERR_BAD_CIG_TYPE ( TI F_ERR_BASE - 35) 
TIF_ERR_REMNANT_ISNT_SINGLETON (TI F_ERR_3ASE - 36) 
TIF_ERR_CIG_ISNT_A_PAIR ( TI F_ERR_BASE - 37) 
TIF_ERR_BAD_DATE_OR TIME FIELD (TIF ERR BASE - 38) 



ffdefine 
ffdefine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
ffdef ine 
#def ine 
#def ine 
ffdef ine 
ffdefine 
ffdef ine 
ffdefine 
ffdef ine 
ffdef ine 
ffdefine 
ffdefine 
ffdef ine 
ffde f ine 
ffdef ine 
ffdefine 
ffdef ine 
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ffdefine TIF_ERR_BAD_CURRENT_PHASE (TI FjERR_BASE - 39) 
ffdefine TI F_ERR_BAD_NEW_PHASE (TIF_ERR_BASE - 40) 
ffdefine TIF_ERR_BAD_RESOLUTION (TI F_ERR_BASE - 41) 
ffdefine T I F_E R R_BA D_SMARTM E RG E_C I G (TIF_ERR_BASE - 42) 
ffdefine TI F_ERR_NOT_YET_IMPLEMENTED ( T I F_E R R_B AS E - 43) 
ffdefine TI F_ERR_BAD_RECORD_NUMBER (TIF_ERR_BASE - 44) 
ffdefine TI F_ERR_IMPERTINENT_RECORD (TI F_ERR_BASE - 45) 
ffdefine TIF_ERR_IMPOSSIBLE_OUTCOME (TI F_ERR_BASE - 46) 
ffdefine TIF_ERR_BAD_FIELD_TYPE (TIF_ERR_BASE - 47) 
ffdefine TI F_ERR_TODO_RANGE_CHANGED (TIF_ERR_BASE - 48) 
ffdefine TIF_ERR_CANT_FIND_ROOT_FIELD (TI F_ERR_BASE - 49) 
ffdefine TIF_SKIP_THIS_RECORD (TI F_ERR_BASE - 50) 
ffdefine TI F_ERR_WEIRD_OUTCOME (TI F_ERR_BASE - 51) 
ffdefine TIF_SKIP_FAIL_RANGE (TIF ERR BASE - 52) 

/* 

* next 3 errors can only arise when using TIF for APPOINTMENTS, with 
+ Appointment Overlap Checking enabled. These errors are reported 

* if field definitions don't meet the Overlap Checkers requirements. 

* — *■ i 

ffdefine T I F_E R R_M I S S I NG_OVE RLAP_ FIELD ( TI F_ERR_BASE - 53) 
ffdefine T I F_E RR_RE LAT I VE_ST ART_DATE ( TI F_ERR_BASE - 54) 
ffdefine TIF_ERR_RELATIVE_START_TIME ( TI F_ERR_BASE - 55) 
ffdefine TIF_PSTTIF_IS_NULL (TI F_ERR_BASE - 56) 
ffdefine TI F_ERR_CANT_G£T_DLL_HANDLE ( TI F_ERR_BASE - 57) 
ffdefine TIF_SKIP_AND_DONT_LOG_THIS_RECORD (TI F_ERR_BASE - 58) 
ffdefine TI F_ERR_BAD_SMARTMERGE_PHASE ( TI F_ERR_BASE - 59) 
ffdefine TI F_ERR_BAD_SYNC_UNLOAD_PHASE ( TI F_ERR_BASE - 60) 
ffdefine TIF_ERR_FIELD_LIST_HAS_CHANGED ( TI F_ERR_BASE - 61) 
ffdefine TIF_ERR_RECORD_ZERO_TOO_SMALL ( TI F_ERR_BASE - 62) 
ffdefine TI F_ERR_CANT_FAN_THIS_OUTCOME { TI F_ERR_BASE - 63) 
ffdefine TIF_ERR_UTH_LOOPING ( TI F_ERR_BASE - 64) 
ffdefine TIF_ERR_NON_UNIQUE_SOURCEID ( TI F_ERR_BASE - 65) 
ffdefine TI F_ERR_NON_UNIQUE_TARGETID (TI F_ERR_BASE - 66) 
ffdefine TIF_ERR_BAD_SYNC_CR_OPTION ( TI F_ERR_BASE - 67) 
ffdefine TI F_ERR_BAD_CR_ACTION (TI F_ERR_BASE - 68) 
ffdefine TIF_ERR_BAD_SYNC_CR_ACTION ( TI F_ERR_BASE - 69) 
ffdefine TIF_ERR_BAD_CIG_TYPE_AFTER_ILCR (TI F_ERR_BASE - 70) 
ffdefine TIF_ERR_NULLPTR_FOR_SUBSTITUTION (TIF_ERR_BASE - 71) 
ffdefine TIF_ERR_TOO_MANY_NAMEHASH_COLLI SIGNS ( TI F_ERR_BASE - 72) 
ffdefine TI F_ERR_CANT_WRITE_SYNC_INI_PARM ( TI F_ERR_BASE - 73) 
ffdefine TI F_ERR_TOO_MANY_NAMES_UNUSABLE ( T I F_E R R_BAS E - 74) 
ffdefine TIF_ERR_CANT_DELETE_HISTORY_FILE ( TI F_ERR_BASE - 75) 
ffdefine TIF_ERR_CANT_RENAME_HISTORY_FILE ( TI F_ERR_BASE - 76) 
ffdefine TI F_ERR_BAD_MSGBOX_RETURN_CODE ( TI F_ERR_BASE - 77) 
ffdefine TIF_ERR_BAD_ILTR_NSYNCHRONIZE ( TI F_ERR_BASE - 78) 
ffdefine TIF_ERR_CIG_ISNT_A_TRIPLE (TI F_ERR_BASE - 7 9) 
ffdefine TI F_ERR_CANT_COPY_HISTORYFI LE ( TI F_ERR_BASE - 80) 
ffdefine TIF_ERR_BAD_PHASE_FOR_ACCEPT_OUTCOME { TI F_ERR_BASE - 81) 
ffdefine TI F_ERR_FIELD_VALUE_TOO_BIG ( TI F_ERR_BASE - 82) 
ffdefine TI F_ERR_BAD_PUT_RECORD_OPTION ( TI F_ERR_BASE - 83) 
ffdefine TI F_ERR_BAD_PHASE_FOR_PUT_RECORD (TIF_ERR_BASE - 84) 
ffdefine TI F__ERR_WRONG_FILE_FORMAT_VERSION (TIF_ERR_BASE - 85) 
ffdefine TI F_ERR_BAD_GETFIELD_NWHICH ( TI F_ERR_BASE - 86) 
ffdefine TIF_ERR_87 (TIF_ERR_BASE - 87) 
ffdefine TIF_ERR_88 ( TI F_ERR_BASE - 88) 
ffdefine TI F_ERR_ABNORMAL ( TI F_ERR_BASE - 89) 
ffdefine TIF_ERR_CANT_FAN (TIF_ERR_BASE - 90) 
ffdefine TI F_ERR_BROKEN_FIG (TIF_ERR_BASE - 91) 
ffdefine TIF_ERR_INIT_FAILURE ( TI F_ERR_BASE - 92) 
ffdefine TIF_ERR_ILFldTypeInvertedLookup ( TI F_ERR_BASE - 93) 
ffdefine TI F_ERR_ILFldTypeEx ( TI F_ERR_BASE - 94} 

ffdefine TIF_ERR_95 ( TI F_ERR_BASE - 95) 

ffdefine TI F_ERR_CANT_READ_FROM_NULL_RECORD (TI F_ERR_BASE - 96) 

ffdefine TIF_ERR_97 (TI F_ERR_BASE - 97) 

ffdefine TI F_ERR_ABSURD_FIELD_LENGTH ( TI F_ERR_BASE - 98) 

ffdefine TI F_ERR_ABSURD_FIELD_OFFSET ( TI F_ERR_BASE - 99) 

ffdefine TI F_ERR_FIELD_EXTENDS_BEYOND_RECORD_END (TIF_ERR_BASE - 100) 
ffdefine TIF_ERR_101 ( TI F_ERR_BASE - 101) 
/ 



* The following error is returned by STUBs for various sync-specific 

* functions when TIF DLL is built with "NOSYNCPORT=" . 

* v 

ffdefine TI F_ERR_NOSYNCPORT ( TI F_ERR_BASE - 102) 

ffdefine TI F_ERR_EM PTY_FIG ( TI F_ERR_BASE - 103) 
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ffdefine TIF_ERR 
ffdefine TIF_ERR 
ffdefine TIF_ERR~ 
ffdefine TIF_ERR~ 
ffdefine TIF_ERR" 
ffdefine TIF ERR" 



NO_SUBTYPE_FIELD < TI F_ERR_BASE - 104) 
"nO_SUBTYPE_VALUE (TIF_ERR_BASE - 105) 
"BAD_FIELD_NUM (TIF_ERR_BASE - 106) 
KSTRUCT_SIZE_MISMATCH (TIF_ERR_BASE - 107) 
^108 (TIF_ERR_BASE - 108) 
"DUP DISTING FIELD {TIF ERR BASE - 109) 



// TIF information default values 
ffdefine TIF NOTSET -1 // 



Offset not set to value yet 



// TIF defines for getting field data 



ffdefine TIF 
ffdefine TIF~ 
ffdefine TIF~ 
ffdefine TIF* 
ffdefine TIF~ 
ffdefine TIF~ 



ORIGINAL 

CURRENT 

AUTO 

SOURCE_CACHE 
JANNING_ADJ 
NESTED CALL 



1 // You want the original data 

2 // You want the current data 

3 // Auto determine cur or orig 

14 // INTERNAL ONLY: get from Source Cache 

28 // INTERNAL ONLY: for ILTR\REPEAT.C 

63 // recursion indicator! ! 



// TIF Default value defines 
ffdefine TI F_BOOL_ DEFAULT 
ffdefine TIF_NUMBER_DE FAULT 
ffdefine TIF TIME DEFAULT 



I LTR_BOOLEAN 

MQtt 

"0000" 



FALSE // Boolean field 
// Number field 
// Time field 



// Defines for record comparison during conflict resolution 
ffdefine TIF_DU PLICATE 1 // Records are duplicate 

ffdefine TIF_CONFLICT 2 // Record in conflict 

ffdefine TIF NOCONFLICT 3 // Two different records 



// Defines 
ffdefine TIF 
ffdefine TIF 
ffdefine TIF 
ffdefine TIF 
ffdefine TIF 
ffdefine TIF 
ffdefine TIF 
ffdefine TIF 



for SmartMerg 
_REC_OFF 
_REC_NONE 
_REC_IGNORE 
_REC_ADD 
_REC_UPDATE 
_REC_DELETE 
_REC_RE PLACE 
REC NOTIFY 



e reconc 
-1 

ILX_0PT 
ILX_OPT 
ILX_OPT 
ILX_OPT 
ILX_OPT 
ILX_OPT 
ILX OPT 



iliation options 



NONE 
"IGNORE 
"INSERT 

"update 
"delete 
"replace// 
"notify // 



// 
// 
// 
// 
// 
// 



reconcliation off 
None reconcliation 
Ignore conflicts 
Add Conflicts 
Update Conflicts 
Delete Conflicts 
Replace Conflicts 
Notify Conflicts 



/* 



Defines for Synchronization Conflict Resolution Options 

* Note that ADD_ACROSS means that in the context of a single conflict 

* we start out with 1 record in each app, and end up with 2 in each. 



ffdefine TI FSCRO_LEAVEJJNRESOLVED ILX OPT IGNORE 
ffdefine TIFSCRO_ADD_ACROSS 
ffdefine TI FSCRO_NOTI FY 
ffdefine TI FSCRO_TARGET_WINS 
ffdefine TIFSCRO SOURCE WINS 



/ 



ILX_OPT 
ILX_OPT" 

ilx_opt" 

ILX OPT" 



INSERT 
NOTIFY 
ACCEPT_1 
ACCEPT 2 



ffdefine TIF PUT SIMPLE TEXT 9999 



/ 



// for TIFRecordAddFieldValue call 



* ILTIF Outcomes 



* WARNING: Tiftable.cpp requires that all outcome codes fit in a single byte 



ffdefine 
ffdefine 
ffdefine 
ffdef ine 
ffdefine 
ffdefine 
ffdefine 



ILTIF 
ILTIF" 

iltif" 
iltif" 
iltif" 
iltif" 
iltif" 



OUTCOME 

"outcome" 
"outcome" 
"outcome" 
"outcome" 
"outcome" 
"outcome" 



LEAVE_ALONE 
ADD 

"delete 
"replace 

UPDATE 

"ignore 



/ 



0x00000001 
0x00000002 
0x00000004 
0x00000008 
0x00000010 
0x00000020 



LEAVE DELETED 0x00000040 



ffdefine ILTIF FIRST TIER OUTCOME MASK Ox0000007F 



The TIFPositionToNextRecord function filters out obsoleted TARGET items, 

but it does not filter out obsoleted SOURCE items, since we may want to 

log them. (When source items conflict with one another, and 

user chooses to use one source item to update or replace another, the 

victim is "obsoleted" and we write "IGNORED" in the xlate log.) 
* v 

ffdefine ILTIF OUTCOME OBSOLETED 0x00000080 



* 
* 



Copyright ©1996 Puma Technology, Inc. All Rights Reserved. 



iltif.h 



Page 5 of 5 



// the following special outcome code is only used by ILTIFFanltem 

ffdefine ILTI F_OUTCOME_FANNED OxOOOOOlOOL 

/ + 

* The following bits are OR'd together with the above OUTCOME bits to 

* tell a FastSync translator that a "delta" has been fully dealt with. 

V 

ffdefine ILTI F_OUTCOME_DELTA_ACK 0x00000200L 

/* 

* ILTIFGetOutcome uses the following mask to make sure no "weird" 

* outcome bits are handed out to the users of ILTIF. 

+ +/ 

ffdefine ILTI F_EXPECTED_OUTCOMES 0x000002 FF 

// bit masks for input to ILTI FFeatureSet 

ffdefine TIF_DISABLE_FAST_SYNC 0X00000001L 
ffdefine TIF_DISABLE_SYNC_BY_ID 0x00000002L 

/* 

* definitions for extra field attributes defined by TIF 

* use these bits in pExtraAttributes [ 0] , for ILTI FDef FieldEx { ) call. 

* v 

ffdefine TIFEA_IS_MAPPED 0x00000000 

ffdefine TI FEA_ISNT_MAPPED 0x00000001 

ffdefine TI FEA_AUTO_FILLIN 0x00000002 

ffdefine TIFEA_FIRST_LINE_MAPPED 0x00000004 

ffdefine T I FE A_KE Y_ DAT ENFIELD 0x00000008 // used internally 

/* 

* definitions for logging in high-level ILTIF environment 

+ +/ 

ffdefine ILTI FLOG ( ILTR_pILTIF->lpsILLog) 

ffdefine ILTI Flogsz { s ) ILLOG_logsz ( ILTIFLOG, ILLOG_ALWAYS, s ) 

ffdefine ILTI Flogs zsz ( s, t ) ILLOG_logszsz ( ILTI FLOG, ILLOG_ALWAYS, s, t ) 

ffdefine ILTI Flogs z3 ( s, t, u ) ILLOG_logsz3 ( ILTI FLOG, ILLOG_ALWAYS, s , t, u ) 
ffdefine ILTI Flogs z3ul (s,t,u,v) ILLOG_logsz3ul ( ILTI FLOG, ILLOG_ALWAYS, s, t , u, v) 
ffdef ine ILTI Flogs zul (s, t ) ILLOG_logszul (ILTIFLOG, ILLOG_ALWAYS, s, t ) 

ffdefine ILTI Flogs zs zul (s, t, u) ILLOG_logszszul (ILTIFLOG, ILLOG_ALWAYS, s , t , u ) 
ffdef ine ILTI Flogs zulul {s, t, u) ILLOG_logszulul { ILTIFLOG, ILLOG_ALWAYS, s, t, u) 
ffdef ine ILTIFlogszul3 (s, t, u, v) ILLOG_logszul3 (ILTIFLOG, I LLOG_ALWAY S , s, t, u, v) 
ffdefine ILTI Flogs z2u 12 ( s, t , u, v) ILLOG_logsz2ul2 { ILTIFLOG, ILLOG_ALWAYS, s, t, u, v) 

ffendif 
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ffifndef _ILTI FFN_INCLUDED 
ildefine ILTIFFN INCLUDED 



/ + 

* Name: ILTIFFN. H 

* Purpose: ILTIF Function Prototypes 



* Author: Ken Dobson, Copyright (c) IntelliLink Corporation, 1994 



7 



#ifdef cpluspius 

extern W C H 
{ 

#endif 



// everything callable as C functions 



# i f d e f BUILDI NG_T I F_AS_ST AT I C_L I B 

ffdefine TIF DLL ENTRY POINT int IL DECL 



#else 



ffdefine TIF DLL ENTRYPOINT DLLEXPORT int IL DECL EXP 



#endif 



// ILTIFCreate is a "classic" entrypoint, which ignores its 2nd arg 

// anc j S i m piy calls ILTIFInit. Suggestion: call ILTIFInit instead. 

TI F_DLL_ENTRY POINT ILTIFCreate 
( ILTR_PTRANSL tr, 

IL_HINST hObsoleteUnusedArgument , 

INT32 lFields ); // initial Number of fields 

// (if not enough, TIF will grow it) 

// This is the very first TIF function that you should call 

// SmartMerge apps may call ILTIFCreate, which calls this function. 

TIF_DLL_ENTRYPOINT ILTIFInit 
{ ILTR_PTRANSL tr, 

IL_PSTR IpszTIFFilename, 

INT32 lFields ); // initial Number of fields 

// (if not enough, TIF will grow it) 

/* 

* ILTIFSyncInit and ILTI FSyncFinishUpAndClose 

*■ 

* high-level entrypoints for synchronization -- in tifsync2.cpp 

+ • + / 

TIF_DLL_ENTRY POINT ILTIFSyncInit ( I LTR_PTRANSL tr, 

IL_PSTR szSourceFile, 
IL_PSTR szTargetFile ); 

TIF_DLL_ENTRYPOINT ILTI FSyncFinishUpAndClose ( ILTR_PTRANSL tr); 

// For Debugging, create formatted dump of 

// the CURRENTLY OPEN TIF file 

TIF_DLL_ENTRYPOINT ILTIFDump 
( I LTR_PTRANSL tr ) ; 

// Returns how many fields are currently defined in TIF 

TIF_DLL_ENTRYPOINT ILTI FHowManyField 
( ILTR_PTRANSL tr, 

INT32 *lNumOfFlds ); // Number of fields returned 

// Returns field name given an index 

TIF_DLL_ENTRY POINT ILTI FGet Fie ldName 
( ILTR_PTRANSL tr, 

INT32 lFldNdx, // Index of the desired field 

IL_PSTR szFldName ); // Field name returned 

// Define a field in the TIF database. 

TI F_DLL_ENTRYPOINT ILTI FDef Field 
( ILTR_PTRANSL tr, 

IL_PSTR szFldName, // Field Name 

INT32 lFldSize, // Field size 
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char IL_DIST *pFldType, 
IL_PSTR szFormat, 
ILTB_ATTRIB FieldAttributes, 
IL PSTR szDefault ) ; 



// ptr to 1 char Field Type 
// Field format 

// Default Value for field 



// Define 

TIF_DLL_ENTRYPOINT ILTIFDef FieldEx 
( ILTR_PTRANSL tr, 
IL_PSTR szFldName, 
INT32 lFldSize, 
char IL_DIST *pFldType, 
IL_PSTR szFormat, 
ILTB_ATTRIB FieldAttributes, 
INT32 *pExtraAttributes, // 

// 

IL PSTR szDefault ) ; 



a field in TIF, with EXPANDED capabilities 



// Field Name 
// Field size 

// ptr to 1 char Field Type 
// Field format 

IN: array of 1 or more extra longs 
use TIFEA_ ^defines in iltif.h... 
// Default Value for field 



TIF_DLL_ENTRYPOINT ILTI FDef FieldN 
( I LTR_PTRANSL tr, 
ILTR_NDX fldnum, 
INT32 ExtraAttributes ); 



// Tell TIF about a field 



// fields in ILTR field list 



// Get a field definition from TIF or from ILTR 

TIF_DLL_ENTRY POINT ILTI FGet FieldAttributes 
{ ILTR_PTRANSL tr, 

IL_PSTR szFldName, // IN: Field Name 

INT32 IL_DIST +pMaxLength, // OUT: Max Field size (or 0 for unlimited) 
char IL_DIST *pFieldType, // OUT: FldType ( ILX_TYPE_XXX) 

ILTB_ATTRIB IL_DIST + pFieldAttributes ); // OUT: Field Attribute bits 

// Do a standard fill of the TIF mechanism fields, by calling 

// ILTIFDef Field once for every field returned by ILGetField 

TIF_DLL_ENTRYPOINT ILTI FFi 1 1 Fields 

( ILTR_PTRANSL tr, // Fill all ILTI F fields from ILIF 

BOOL16 bMappedOnly, // Fill in only mapped fields? 

BOOL16 bIDNeeded ); // Is a record ID field needed? 



/ 



ILTIFPutField: 

Place data into a field in the current record. This function assumes 
that character data uses endpoint-specif ic character encodings. Thus 
all non-binary fields are passed through Character Mapping, which 
includes mapping endpoint-specif ic EOL character sequences to 
ILTR EOS CHAR (OxFF) . 



For non-binary fields the value supplied as 'lFldSize* helps make 
the debugLog look good, but otherwise it is NOT respected. TIF 
re-computes the Field Length by calling 'strlen'. 



TIF_DLL_ENTRYPOINT ILTIFPutField 
{ ILTR_PTRANSL tr, 
IL_PSTR szFldName, 
IL_PANY pFldData, 
INT32 lFldSize ); 



/ 



// tr struct 

/ / Field name 

// Data for the field 

// Size of the data 



/ 



Name: ILTI FPut FieldEx 

Extended version of ILTIFPutField, called from ILTR\ f ldput . c, allows 
for ' Special FanningAdj ustment ' calls and control over Character Mapping. 
Called from ILTR\ f ldput . c\ILTRPut Field, with bMapCharsI f NonBinary=FALSE, 
when char mapping has already been done by the ILTRPutField function. 



* For non-binary fields the value supplied as 'lFldLen* helps 

* the debugLog look good, but otherwise it is NOT respected. 

* re-computes the Field Length by calling 'strlen*. 



make 
TIF 



/ 



TIF_DLL_ENTRYPOINT ILTI FPut FieldEx 
( ILTR_PTRANSL tr, 
IL_PSTR szFldName, 
IL_PANY pFldData, 
INT32 lFldLen, 



// tr struct 

// Field name 

// Data for the field 

// Length of the data 



BOOLEAN bSpecialFanningAdjustment, // TRUE for Date Adj. when fanning 
BOOLEAN bMapCharsIfNonBinary ); // TRUE to have char mapping done 

// for non-binary text fields 
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// Sometimes Map Fields, and Write the record to the TIF 

TIF_DLL_ENTRY POINT ILTI FPutRecord 
{ ILTR_PTRANSL tr ) ; 

// Create clean slate, ready for 'PutField* calls to fill'er up 

TIF_DLL_ENTRYPOINT ILTI FInit Record 
{ ILTR__PTRAffSL tr ) ; 

// Next entrypoint is now IDENTICAL to ILTI FPutRecord 

TI F_DLL_ENTRY POINT ILTIFWriteRecord 
( ILTR_PTRANSL tr ) ; 

/ / arrange for a copy of the Current Record to be used 

// as target of any subsequent Put Field calls, and 

// as record to use for subsequent ILTI FPutRecord call 

TIF_DLL_ENTRYPOINT ILTIFCloneRecord 
( ILTR_PTRANSL tr ) ; 

/* 

* Name: ILTI FEndLoad 

* Purpose: Tells TIF that we're done loading, ready to start unloading. 

* When and ILX_V3 style TARGET translator is using TIF, this 

* call causes TIF to Analyze and Resolve Conflicts. 

* + / 

TIF_DLL_ENTRYPOINT ILTI FEndLoad 
( ILTR_PTRANSL tr ) ; 

/* 

* ILTIFStartNextPhase 

* Signals beginning of a new phase, and indicates end of previous phase 

* use TIF_PHASE_XXX definitions from ILTI F. H 

* v 

TI F_DLL_ENTRYPOINT ILTIFStartNextPhase 
( ILTR_PTRANSL tr, 
INT16 phase ) ; 

/* 

* Name: ILTI FSet Posit ionAboveTopRecord 

* Purpose: Set Position such that a subsequent ILTIFNextRecord or 

* ILTIFReadNextRecord call will get the FIRST record that 

* pertains to the current UNLOADING PHASE . 

* NOTE: returns SUCCESS even if there are ZERO records to unload. 

* + / 

TIF_DLL_ENTRYPOINT ILTIFSetPositionAboveTopRecord { ILTR PTRANSL tr ); 



// ILTI FTopRecord is OBSOLETE: use ILTIFSetPositionAboveTopRecord instead 

// Goto next record from the TIF. 

TI F_DLL_ENTRYPOINT ILTIFNextRecord 
( ILTR_PTRANSL tr ) ; 

/* 

* Name: ILTI FGotoRecord 

* Purpose: Goto a specified record in the TIF, verifying that the 

* specified record exists and pertains to the current UNLOADING 

* PHASE . 

* NOTE: Code that uses ILTI F should not make assumptions about the 

* numbering of TIF records. Record numbers passed to this 

* function should NOT be generated by users of ILTI F; rather 
the numbers should be gotten by calling ILTI FRecordNum. A 
typical usage pattern is to do one pass over the TIF, using the 
[Read] NextRecord to iterate; using ILTI FRecordNum to get 
record numbers, storing them, maybe filtering or sorting them, 
then doing a second pass which iterates through the stored 
record numbers, using ILTI FGotoRecord for positioning. 



+ 



ILTIF users who don't need to do filtering or sorting probably 
* don't need to use this function at all. 

* + / 

TIF_DLL_ENTRY POINT ILTI FGotoRecord 
( ILTR PTRANSL tr, 
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INT32 IRecNum ); // record number to position on 

// Return the current record number 

TIF_DLL_ENTRYPOINT ILTI FRecordNum 
( ILTR_PTRANSL tr, 

INT32 +lRecNum ); // Pointer to buffer to return rec num 

// Read next record from the TIP. 

TI F_DLL_ENTRY POINT ILTIFReadRecord 
( ILTR_PTRANSL tr ); 

// Goto next record from the TIF and read it. 

TI F_DLL_ENTRY POINT ILTI FReadNext Record 
{ ILTR_PTRANSL tr ) ; 

// Goto specified record from the TIF and read it. 

TI F_DLL_ENTRYPOINT ILTI FReadRecordNum 
( ILTR_PTRANSL tr, 

INT32 IRecNum ); // Record to retrieve 

/* 

* Get field value for given field, into a buffer owned by TIF, and 

* return Length == STRLEN ( text ) +1 for text fields, or "Exact Length" 

* for binary fields. Field values are NOT truncated. 

* v 

TI F_DLL_ENTRYPOINT ILTI FGet Field 
( ILTR_PTRANSL tr, 

IL_PSTR szFldName, // Field Name 

int nWhich, // Current, original, or AUTO 

INT32 *lField, // OUT : length of value returned 

IL_PANY *pField ); // Buffer for the field data 

/* 

* Get field value for given field and copy it into the caller's buffer. 

* Return Length == STRLEN (text) (NOT STRLEN{)+1} for text fields, 

+ or "Exact Length" for binary fields. Field values ARE truncated as 

* necessary, and I LTR_ERR_TRUNC error is returned when that happens. 

* (Called from within the ILTR\ fidget . c\Get Field function.) 

+ NOTE: For text, the IN value of *pLength is max size INCLUDING null 

* terminator, but the OUT value of +pLength is STRLEN (text } 

* — not including null. 

* So to GetAndCopy the value "1995", you must supply *pLength >= 5, 
+ and when the call completes you'll have *pLength == 4. 

* v 

TI F_DLL_ENTRYPOINT ILTIFGetAndCopyField 
( ILTR_PTRANSL tr, 
IL_PSTR FieldName, 

int nWhich, // Current, original, or AUTO 

INT32 +pLength, // IN=MAX / OUT=ACTUAL length of value 

I L_PANY +pBuffer ); // Buffer for the field data 

// Set the data translation option for TIF mechanism 

TIF_DLL_ENTRY POINT I LTI FSet DataConv 
( ILTR_PTRANSL tr, 

int nOption ); // Data translation option 

// Set the TIF reconciliation option 

TI F_DLL_ENTRY POINT ILTIFSetReconcile 
{ ILTR_PTRANSL tr, 

int nOption ); // Reconciliation option 

/* 

* Record Outcome Functions: 

* These functions are used, during an UNLOADING PHASE, to get the 

* OUTCOME flags for a given record. The 'GetOutcome' 

+ function returns a long word full of flag bits; the other 

* functions in this group call 'GetOutcome', then check 

* for various bit flags in the flag word. 
+■ 

* Functions are: 
+ 

* ILTIFGetOutcome 
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* 



ILTI FReco rdAdded 
ILTIFRecordChanged 
I LT I FReco rd De 1 e t ed 
ILTI FReco rdReplaced 



* ILTIFFieldChanged 

* All of the Record-level functions work from in-memory TIF 

* knowledge, so they need not be preceded by a ReadRecord call. 

* Unlike the Record-level functions, the ILTIFFieldChanged function 

* must be preceded by a ReadRecord call. 

* . v 

TIF_DLL_ENTRYPOINT ILTI FGetOutcome 

{ I LTR_PTRANSL tr, INT32 IL_DIST *pOutcome ); 

TIF_DLL_ENTRYPOINT ILTI FReco rdAdded { ILTR_PTRANSL tr ); 
TIF_DLL_ENTRYPOINT ILTIFRecordChanged ( ILTR_PTRANSL tr ); 
TIF_DLL_ENTRYPOINT ILTI FReco rd Deleted ( ILTR_PTRANSL tr ); 
TIF_DLL_ENTRYPOINT ILTIFRecordReplaced ( ILTR_PTRANSL tr ); 
TIF_DLL_ENT-RY POINT ILTIFFieldChanged ( ILTR_PTRANSL tr, 

IL_PSTR szFldName ) ; 

/* 

* Functions for Accepting or Rejecting a Record Outcome 
*■ 

* When a translator is unloading records from TIF, TIF assumes that 

* the prescribed record outcomes will be effected by the translator. 

* As long as this assumption holds true, nothing special need be 

* done. But it is a good practice, especially when doing 

* Synchronization, for the translator to call ILTI FAcceptOutcome 

* for each record. Currently this is REQUIRED for INSERT operations 

* done during synchronization if the translator wants to supply a 

* unique ID for the newly-created item, and for UPDATE operations 

* that cause a new unique ID to be assigned by the application. 

* NOTE that TIF does NOT allow for the possibility that a LEAVE_ALONE 

* outcome might result in assignment of a new unique ID. If any 
+ application has that behavior then unique IDs are UNUSABLE for 

* IntelliLink synchronization, and the translator must not tell TIF 

* that Unique IDs exist!! 
*■ 

* Although TIF allows for the possibility that a sync-driven UPDATE 

* may force assignment of a new ID, that is probably unusual 

* behavior, and if the application is known to assign new IDs when 

* users make changes then that apps IDs are UNUSABLE for 

* IntelliLink Synchronization. 

* On the other hand if a translator finds that it cannot put a record 

* outcome into effect (e.g. it cannot add a record) , it has two 

* choices: 

* 1. it can treat the failure as a FATAL error which aborts the 

* entire operation, or 

* 2. it can simply tell TIF that the outcome for this particular 

* record is rejected, then continue processing. 

* For option #2 it must call ILTI FRe j ectOutcome . At this point in 

* time no values are defined for the 2nd argument to this function. 

* v 

/* 

* ILTI FAcceptOutcome 

* — for 2nd arg, pass NULL (not "") if you don't have a New Unique ID 

* to tell TIF about. 

* v 

TIF_DLL_ENTRYPOINT ILTI FAcceptOutcome ( ILTR_PTRANSL tr, IL_PSTR newUniquelD) ; 

/* 

* ILTI FRe j ectOutcome 

* / 

TIF_DLL_ENTRYPOINT ILTI FRe j ectOutcome (ILTR PTRANSL tr, int errorCode); 
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// Shut Down the TIF mechanism and delete the TIF file 

TIF_DLL_ENTRYPOINT ILTIFClose 
( ILTR_PTRANSL tr ) ; 

/* 

* Name: ILTIFCloseFileTemporarily for xlators to call 

* Purpose: Close-the TIF workfile file at translation phase transition 

* */ 

TI F_DLL_ENTRY POINT ILTIFCloseFileTemporarily ( ILTR_PTRANSL tr); 

/* 

* Name: ILTI FCloseFilelnitially — for engine to call 

* Purpose: Close the TIF file without updating it or shutting things down 

+ V 

TIF_DLL_ENTRY POINT ILTI FCloseFi lelni t ia 1 ly ( ILTR_PTRANSL tr); 

/* 

* Name: ILTIFReopenFile 

* Purpose: Re-open a TIF file that was previously closed by calling 

* ILTIFCloseFileTemporarily 

+ _ « + 1 

TIF_DLL_ENTRYPOINT ILTIFReopenFile ( ILTR_PTRANSL tr); 

/* 

* Status Bar Functions: (& old names for same...) 

*■ 

* I LTI FBeginStatusBar - Initialize and display the status bar 

* ILTI FUpdateStatusBar - Increment the status bar 

* ILTIFEndStatusBar - Take down and clean up the status bar 

*■ _ ♦ i 

TIF_DLL_ENTRY POINT ILTI FBeginStatusBar 
( ILTR_PTRANSL tr, 

IL_PSTR szTheMsg, // The message 

INT32 INumRecs ) ; // Number of updates 

TIF_DLL_ENTRY POINT ILTI FUpdateStatusBa r 
< ILTR_PTRANSL tr ) ; 

TIF_DLL_ENTRYPOINT ILTIFEndStatusBar 
( ILTR_PTRANSL tr ) ; 

/ + 

* Old Names for the Status Bar Functions: 

* V 

TIF_DLL_ENTRY POINT ILTI FBeginSta tus 
( ILTR_PTRANSL tr, 

IL_PSTR szTheMsg, // The message 

INT32 INumRecs ); // Number of updates 

TIF_DLL_ENTRY POINT I LTI FUpdateSt a tus 
( ILTR_PTRANSL tr ) ; 

TIF_DLL_ENTRYPOINT ILTI FEndSta tus 
{ ILTR_PTRANSL tr ) ; 

// Unload all fields in all records from I LTI F to ILIF 

TI F_DLL_ENTRY POINT I LTI FUnloadToI LI F 
( ILTR_PTRANSL tr ) ; 

// Return the number of records in the TIF mechanism 

TI F_DLL_ENTRY POINT I LT I FHowMa n yReco rd s 
( ILTR_PTRANSL tr, 

INT32 *lNumOfRecs ); // Pointer to number of records 

/* 

* Name: I LTI FDontSyncBylD 

* Purpose: Tells the Synchronization Engine not to use Unique IDs in doing 

* synchronization. 
+ 

* NOTE: calling this function is equivalent to calling 

* ILTIFFeatureSet (tr, 0, TIF_DISABLE_SYNC_BY_ID) ; 

* Comments: This call turns off usage of unique IDs for sync, but TIF still 

* does ordinary storage and retrieval of unique IDs, if unique ID 

* fields are defined. 
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* 
* 



+ 



This function is only needed when a translator that has a field 
in its field list called JJniquelD wants TIF to do KeyField-based 
synchronization rather than uniquelD-based synchronization. 

For_a synchronization job involving translators ILXAAA and ILXBBB, 
the "field lists of one or the other or both or neither of ILXAAA 
and ILXBBB may have _UniqueID fields. If both have _UniqueID 
fields, then if ILXAAA calls ILTIFDontSyncBylD the sync engine 
will do KeyField-based correlation on the ILXAAA side of things, 
but correlation on the ILXBBB side will still be done by Unique ID 

TIF requires that this function be called either during the 
load-f rom-target phase or during the load-f rom-source phase. 

However TIF does not apply any other restrictions on when this 
function may be called. Unless wacky counter-arguments suggest 
otherwise, a translator should call ILTIFDontSyncBylD before 
putting any records into TIF. Suggestion: call it in your 
BEGIN routine when ILTR direction == ILTR EXPORT. 



* Author: David Boothby, Copyright (c) IntelliLink Corporation. 
+■ 

TIF_DLL_ENTRYPOINT ILTIFDontSyncBylD {ILTR PTRANSL tr); 



7 



/ 



* Name: ILTI FFea tureSet 

+ Purpose: Tells TIF to turn specified feature bits ON or OFF. 

* Comments : This function has a general -purpose interface, but initially 

* it's only use is to disable FastSync and/or Sync-by-UniquelD 

* for the current phase. 



* Author: David Boothby, Copyright (c) IntelliLink Corporation. 
+ 

TIF_DLL_ENTRYPOINT ILTIFFeatureSet ( ILTR_PTRANSL tr, 

UINT32 ulTurnOnBits, 
UINT32 ulTurnOf fBits ); 



7 



/ + 

* ILTI FItemlsRecur ring 



TIF_DLL_ENTRYPOINT ILTI Fit emlsRecurr ing ( ILTR_PTRANSL tr) ; 

/* 

+ ILTIFFanltem 



TIF_DLL_ENTRYPOINT ILTIFFanltem { ILTR_PTRANSL tr, int maxFanCount ) ; 

/* 

* ILTI FNewEpoch — record new Start Of Epoch date&time stamp in ILINK.INI 
* . v 



TIF_DLL_ENTRYPOINT ILTI FNewEpoch 
( int sysid, 

IL_PSTR szWorkDir, 
IL_PSTR szAppFiie, 
IL_PSTR szEpoch ) ; 



// system number from ilsysids.h 

// directory where IntelliLink lives 

// name of app file or app status file 

// YYYYMMDD. HHMMSS\0 



/ + 

* ILTIFRemoveRecord 

* To implement a 'chooser* function, for SmartMerge, you must call 

* ILTIFStartNextPhase {tr, TIF_PHASE_CHOOSING_RECORDS) , just before calling 

* ILTIFEndLoad; then you can read the incoming (source) records, just as if 

* you were in the UNLOAD- to -TARGET phase, and then for any records that you 
+ want to remove (so that they aren't visible to the conflict resolution 

* and unload-to-target phases) you simply call ILTIFRemoveRecord. 

* If you want to remove the "current" record, pass IRecNum = -1. 
+ 

* For example : 
* 

* rc = ILTIFReadNextRecord (tr); 

* rc = ILTIFRemoveRecord (tr, -1); 
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* If you want to remove an arbitrary record, pass actual recnum. 

* For example : 

* rc = ILTIFReadNextRecord (tr); 

* rc = ILTI FRecordNum (tr, ilRecNum) ; 

* rc = ILTIFRemoveRecord (tr, IRecNum); 

* When your 'chooser 1 function is finished, call ILTI FEnd Load, etc. 

* Records that you have 'removed' will show up in TIF. LOG with 

* ODD Flags values (the GARBAGE bit is 0x00000001). 

* f 

TIF_DLL_ENTRYPOINT ILTIFRemoveRecord ( ILTR_PTRANSL tr, INT32 IRecNum); 

/* 

* ILTIFWipeOutHistory 

_ v 

TIF_DLL_ENTRYPOINT ILTIFWipeOutHistory { ILTR_PTRANSL tr); 

if i fdef cplusplus 

} 

ffendif 

If i fdef BUILDING_ILTIF_ITSELF 

ffinclude "tiffn.h" 
ffendif 

ffendif 
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ffifndef _TI F_INCLUDED 
#define _TI F_INCLUDED 

/* 

* Name: TIF.H 

* Purpose: Private definitions used only within ILTIF/TIF. 

* This file should NOT be included by any modules 

* outside of the ILTIF subsystem. 

* NOTE: nobody, not even any of the TIF modules themselves, should 

* directly include this file. It's inclusion is controlled by 

* ILTIF. H. 

* Author: Ken Dobson, Copyright (c) IntelliLink Corporation, 1994 



ffinclude "tifrc.h" 
ffinclude "ildfx.h" 
ffinclude <assert.h> 

ffdefine TIF_ASSERT assert 

ffdefine IL_HPSTR char IL_HUGE * 

ffdefine IL_USHPSTR unsigned char IL HUGE * 



ff i f de f BUILDING_TI F_AS_STATIC_LIB 

extern IL_HINST hXlatorlnst; // see ILTR EXPORT. C 
ffdefine TIF_DLL_InstanceHandle hXlatorlnst 

Seise 

extern IL_HINST TIF_DLL_InstanceHandle; // see LibMain in iltif.cpp 
ffendif 

/* 

* Parameters used for sizing reusable field buffers. Initial field 

* buf size is big enough for _repBasic. Weird number is "distinctive". 

* v 

ffdefine TI F_INITIAL_FIELD_BUF_SIZE 153 
ffdefine TIF_BUF_INC 2048 

ffdefine TI F_MAX_RECORD_SIZE 3200000 // arbitrary 3.2 megabyte limit 

// currently the range of VALID cig types is 1-16 (ctOOO isn't valid) 

ffdefine TI FSYNC_CIG_TYPE_COUNT 16 // must "agree" with TIFCIG_MAX 

// when hashing and comparing descriptions, only use first 19 characters 

ffdefine TIF19 19 

// Decoration of UNMAPPED Source Field Names 

ffdefine TI F_USFN_PREFIX M \01" 

ffdefine T I F_USFN_ FORMAT TI F_USFN_PREFIX "%s" 

// Unique ID Field Names recognized by TIF 

ffdefine T I F_SOURCE I D_ FIELDNAME TI F_USFN_PREFIX ILTR_FLD_UNIQUE_I D 
ffdefine TIF_TARGETID_FIELDNAME I LTR_ FL D_UN I QU E_I D 

/* 

+ 

+ The first several records of the TIF File have special uses — see the 

* definitions of TIF_RECORD_ZERO/ ONE/TWO below. Higher-numbered records 

* starting with TI F_FIRST_ITEMNO contain TI F_RECORD_VALUE structs. 

* WARNING:: all file-resident structures must use size-invariant types to 

* allow for hybrid translations {Win32/16) & cross-platform usage of tools. 
*— v 

// Field Descriptor — Data Definition for a Single field 

typedef struct 

{ 

INT16 FieldNum; // zero-based fieldnum of this field 

INT16 RelatedFieldNum; // zero-based fieldnum of related field 
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char szFldName(ILTR_MAX_FLDNAME+lJ ;// Field Name w/room for decoration 
INT32 MaxLength; // Maximum allowed length for this field 

INT32 MaxMappedLength; // Max length of SOURCE field to which this 

// TARGET field is mapped 
char FieldType; // Field Data type 

char sz Format [ ILTR_MAX_FLDNAMEJ ; // Format string for translation 
char RelatedFiSldName [ ILTR_MAX_FLDNAME ] ; 

ILTB_ATTRIB FieldAttributes; // various bit flags (UINT32) 

INT32 ExtraAttributes; // more attribs, see TIFEA_XXX ffdefines 

BOOL16 FieldlsAdded; // Is Assoc field added 

B00L16 bSourcelDField; 

B0OL16 bTargetlDField; 

INT16 FieldToGetDefaultValueFrom; // set to get default from another fid 
char szDefault [ ILTR_MAX_FLDNAME] ; // Default value for field 
} TIF_FIELD_DESC; // Single field descriptor 

typedef TI F_FIELD_DESC IL_DIST *TI F_FIELD_DESC_PTR; // ptr to above struct 



// FieldList structure — put in Record Zero of TIF File 
typedef struct 

{ 

INT16 AllocatedFieldCount; 

INT 16 Actual FieldCount; 

INT16 FirstOffset; // OBSOLETE: Offset to 1st byte of 1st field 

TI F_FI ELD_DESC pFieldDescs [ ] ; // Array of field descriptors 

} TIF_FIELDLIST; 

typedef TIF_FIELDLIST IL_DIST *TIF_FIELDLIST_PTR; // Pointer to above struct 

/ + 

* TIF File Format Version — stored in record zero of the TIF file. 

* When updating Version^, increment the high byte when the size or shape 
+ of key structures in the file format change. Increment the low byte 

* when interpretation of elements changes. 

* + / 

ffdefine TI F_SHAPE 0x53 
#define TI F_INTERP 0x07 

ffdefine TI F_CURRENT_FILE_FORMAT_VERSION ((0x100 * TI F_SHAPE ) + TIF_INTERP) 
ffdefine TI F_FIELD_COUNT_INCREMENT 10 // growth step 



/*■ 



Note: The structures below are allocated once per record, and then 
each time a data is added to the record the structure is 
reallocated and the offset of the data is stored in the 
proper field struct. With this scheme a field can be overwritten 
many times. The new data just gets added to the bottom and 
the field structure points there. The old data for this field 
then become dead space. 



/ 



// Field Value Header — the Record Value Struct contains an array of these 

typedef struct 

{ 

INT32 FieldOffset; // Offset of data at bottom of struct 

INT32 lFldSize; // Size of the field data 

} TIF_FIELD_VALUE; // Info about a single field value 

typedef TIF_FIELDJ/ALUE IL_DIST *TI F_FIELD_VALUE_PTR; // ptr to above struct 



// Record Value Structure 

typedef struct 

{ 

INT32 IRecSize; 
INT32 1 Command; 

} 

TI FREC_FIXED_PART ; 

// Record Value Structure 
typedef struct 



- Fixed Size Header Part 

// Total size of record 
// Reserved for future use 
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TIFREC_FIXED_PART R; 

TI F_FIELD_VALUE pFieldValues [ ] ; // Array of Field Value structs 

} 

T I F_RECOR D_VALU E ; 

typedef TIF RECORD" VALUE IL DIST *TIF RECORD VALUE PTR; // Record Value Pointer 



/ 



* Use the following macros to access members of a Record Value Header 

* pointed to by a Record Value Pointer. 



#define TI FREC_SIZE { pr ) 
^define TIFREC COMMAND { pr ) 



(pr->R. IRecSize) 
{ pr->R . lCommand ) 



/ 



typedef ILX_OPTION TI F_RECONCILIATION_OPTION; 

// Outcome Counts Structure, used to gather inputs for OKToProceed 

typedef struct 

{ 

long LeaveAloneCount ; 
long AddCount; 
long UpdateCount; 
long ReplaceCount ; 
long DeleteCount; 
long IgnoreCount; 

} 

TIF_OUTCOME_COUNTS; 

// Date Range Structure 

typedef struct 

{ 

INT32 IStartDate; 
INT32 lEndDate; 

} 

TIF DATERANGE; 



/ 



+ 



The TI F_KSTRUCT type holds parameters that remain constant for all phases 
of TIF usage. For Win32/16 mixed mode operation these parameters must 
be shared (i.e. passed) across the 32/16 boundary. 

TIF parameters that are NOT stored in TI F_KSTRUCT are either fleetingly 
meaningful or are reconstructed when we cross the 32/16 boundary. 



typedef struct 
{ 

INT16 FileFormatVersion; 



/ 



// (TIF CURRENT FILE FORMAT VERSION } 



// 

INT16 AlarmFlagFieldNum; 
INT16 AlarmTimeFieldNum; 
INT16 AlarmDateFieldNum; 
INT16 DoneFlagFieldNum; 
INT16 StartDateFieldNum; 
INT16 EndDateFieldNum; 
INT16 StartTimeFieldNum; 
INT16 EndTimeFieldNum; 
INT16 ViewFieldNum; 
INT16 SourcelDFieldNum; 
INT16 TargetlDFieldNum; 
INT16 SourceDeltaFieldNum; 
INT16 TargetDeltaFieldNum; 
INT16 RepBasicFieldNum; 
INT16 RepExclFieldNum; 
INT16 SubTypeFieldNum; 
INT16 SourceSubTypeFieldNum; 
INT16 KeyDateFieldNum; 



Distinguished Field Indices 



/ 



Next flags say whether the translators are FastSync-capable, whether 
or not the loading done for current job is Fast or Slow. 



7 



BOOL16 bSourcelsFastSyncAble; 
BOOL16 bTa rgetlsFastSyncAble; 
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/* 

* Next flags say whether the loading done for the current job was done 

* Fast or Slow. 

*• _ + 1 

BOOL16 bFastSyncSourceLoad; 
BOOL16 bFastSyncTargetLoad; 

/* 

* Next 2 flags are normally set based on existence of fields called 

* "_UniqueID" in the Target and Source Field Lists. But translators 

* can override standard behavior by calling ILTI FDontSyncBylD. 

* * / 

B00L16 bSyncUsingTargetlDs; 
B00L16 bSyncUsingSourcelDs; 

/* - 

* Next 3 flags control various behaviors 

•4- _ _ _ _ + / 

BO0L16 bCheckForOverlap; // for appointments 

B00L16 bReconcileExclusions; // for recurring items 

BOOL16 bReconcileRepBasic; // for recurring items 

BO0L16 bDontSyncDoneTodos; // ILTR_nSchOpt == I LT R_T 0 DO_N OT DON E 

/* 

* Date Range info, used for synchronization only 

* + / 

TI F_DATERANGE RangeOfSync; // date range requested by user this time 

TI F_DATERANGE RangeOf PreviousSync; // date range requested by user last time 
TI F__DATERANGE RangeOf SourceLoad; // date range used when loading src recs 

// Date when previous synchronization occurred 

INT32 IDateOf PreviousSync; 

/* 

* Epoch values, used for sync only, and not used for all systems. Used 

* to decide whether a history file is still usable, or if it has been 

* invalidated by some external event, such as a user doing a hard 

* reset of a handheld device. The epoch value stored in a history 

* file is compared with the epoch value stored in ILINK.INI to check 

* for possible invalidation. 

*■ + 1 

char SourceEpoch [TI F_EPOCH_SIZE] ; // date&time stamp (YYYYMMDD. HHMMSS\0 ) 
char TargetEpoch [TI F_EPOCH_SIZE] ; // date&time stamp ( YYYYMMDD. HHMMSS\0 ) 

/* 

* Max fanout counts are kept for source and target translators. See 

* ILRPT.H for definition of the ILTR_FANOUT_MAXIMA structure. 

* V 

ILTR_FANOUT_MAXIMA SourceFanoutMaxima; // max count for source app 
ILTR_FANOUT_MAXIMA Ta rget FanoutMaxima ; // max count for target app 

} 

TIF KSTRUCT; 



/* 

* Thel LT_TI F structure type (typically pointed to by *pstTIF) 
+ is the primary control structure for the innards of TIF. 

+■ -k i 

typedef struct 
{ 

TI F_KSTRUCT K; // "Konstant Stuff" 

IL_HANDLE hstTIF; // Handle of global structure 

/* 

* Next 2 members are for an Array of Field Descriptions used to describe 

* all Target Fields and all UNMAPPED Source Fields. 

V 

TIF_FIELDLIST_PTR pFieldList; 
IL_HANDLE hFieldList; 

/* 

* Next 2 members are for an Array of Field Descriptions used to describe 

* all MAPPED Source Fields. Populated in Phase 05 (SYNC ONLY). 

* +■ i 
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TIF_FIELDLIST_PTR 
IL_HAN DLE 

INT32 
INT32 

ILUT_BUFFER 
ILUT_BUFFER 
ILUT_BUFFER 
ILUT_BUFFER 
ILUT_BUFFER 

ILUT_BUFFER 
ILUT_BUFFER 
ILUT BUFFER 



pSourceFieldList ; 
hSourceFieldList ; 

lCur rentRecNum; 
lOriginalRecNum; 

CurrentRecord; 
Original Record; 
FirstRecord; 
SecondRecord; 
SourceRecord; 

Current Field; 
Original Field; 
Extra Field; 



// actual recnum while unloading 
// actual recnum while unloading 



// used for caching in Phase20 



ILUT PBUFFER 



pFanBuf ; 



ILDFX_HNDL 
BOOLEAN 



hILDFX_File; 
bWorkFilelsOpen; 



// Handle to ILDFX file 



INT32 
INT32 



INT32 
INT32 



Total RecordCount; 
Pert inentRecordCount ; 



CurrentRecordNumber ; 
Cu r rent RecordOut come; 



// see TIF_TotalRecordCount 

// Number of records for 

// current UNLOADING PHASE 

// virtual recnum 

// outcome for most recent- 

// ly read virtual record 



TIF_REC0NCILIATI0N_OPTI0N Resolution; 
INT32 Af fectedltem; 



// res. for 1 conflict 
// record that user has 
// chosen to update 



BOOLEAN 

BOOLEAN 

BOOLEAN 

BOOLEAN 

LPSILLOG 

INT16 

INT32 

ILTR_PTRANSL 
struct ILTIF 



bSkipLeaveAlones ; // 

bFastSyncLoad; // 

bFastSyncUnload; // 

bUserCancel; // 

IpsILLog; // 

phase; // 
origin; 
tr; 

STRUCT IL DIST 



Set for non-total-rebuild unloading 
Set while doing a "Fast Sync Load" 
Set while doing a "Fast Sync Unload" 
Set if user presses CANCEL 
Logging control block 
phase, of TIF operation 



char 
BOOLEAN 



Previous I LTR Phase; 



// 

*pILTIF; 

// 
// 
// 



yecch! - just in case we ever need it 

// pointer to parent structure 
gross & hideous but needed for TIF 
code to access stuff in ILTIF struct 
copy of ILTR_phase 
RecordHasBeenPutSinceLastGet; // flag maintained by ILTI FReadRecord 

// and ILTIFPutRecord, to keep track 
// of what's going on during the 
// 'Sanitizing Source Records' phase. 



int nWhich; 



// Original, Current, or Auto (^defines below) 



/* 

* Next flag is set to TRUE, by TIF, when we're unloading 

* records and we want each unloaded record to be logged in 

* the USER-VISIBLE logfile (xlate.log or il.log). 

* + / 

BOOLEAN bCurrentlyLoggingAndCountingRecords; 

BOOLEAN bNeedPriming; // TRUE until record has been init'd 

BOOLEAN bPleaseSaveFanoutMaxima; // TRUE until the Maxima have been saved 



char szWorkFile [MAX_PATH] ; // Filename for TIF File 

ILXTR_SYNC_OPTION nSynchroni ze; // copy of ILTR_nSynchronize 

UINT32 CRPolicy; // Conflict Resolution Policy (copy of ILTR_CRPolicy) 

TIF_RECONCILIATION_OPTION Reconci 1 iat ionOpt ion; 

// the next '5 localizable strings are used in ILCR 

char szRepStartPseudoFldName [ ILTR_MAX_FLDNAME+1 ] ; 
char szRepStopPseudoFldName [ ILTR_MAX_FLDNAME+1 ] ; 
char szRepExPseudoFldName [ ILTR_MAX_FLDNAME+1 ] ; 
char szTrue [20] ; 
char szFalse [ 20] ; 
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/* 

* Next 2 recnum values are used to limit forward scanning of TIF index 

* when unloading. Used to avoid unloading instances generated during 

* unload. 
+ 

* Both GoalPostXXX values are set by TI FComputePertinentRecordCount . 

* (This allows for good basic unload behavior even if user 

* never calls ILTI FHowManyRecords . ) 

* The 'GoalPostForNextPass' value is incremented when new records 

* are added during unload, and is copied into Goalpost 

* by ILTI FHowManyRecords. 
+ 

* After any unload procedure that generates new records, such as 

* when CILTranslator: : FanBeforeUnload calls ILTIFFanltem or when 

* ILTIFAcceptOutcome calls CreateOneFigMember, the scan-stopping 

* Goal Post is pushed out IF AND ONLY IF one calls ILTI FHowManyRecords . 

INT32 GoalPost; 

INT32 GoalPostForNextPass; 



// outcome-counting stuff needed for OKToProceed 

BOOLEAN bCountingOutcomes; 

TI F_OUTCOME_COUNTS OutcomeCounts ; 

// see TI FTABLE . CPP for explanation of the following table 

unsigned char TableAutoma tic [TIFSYNC_CIG_TYPE_COUNT] 

[ TI FSYNC_UNLOAD_PHASE_COUNT ] 
[3] ; 

} ILT_TIF; 

typedef ILTJTIF IL_DIST +ILT_PTIF; // Pointer to above struct 

typedef ILT_PTIF IL_DIST * PSTTI F_TYPE; // pointer to pointer to above struct 

/ / access macros for members of the above structs 

ffdefine TIF_hstTIF ( ( + pstTI F) ->hstTIF) 



ffdefine TI F_pFieldList 
ffdefine TI F_h Field List 

ffdefine TIF_pSourceFieldList 
ffdefine TI F_hSourceFieldList 

ffdefine TI F_l Cur rent RecNum 
ffdefine TIF_10riginalRecNum 

ffdefine TIF_CurrentRecord 
ffdefine TlfjpCur rentRecord 

ffdefine TIF_OriginalRecord 
ffdefine TIF_pOriginalRecord 

ffdefine T I F_Fi rst Record 
ffdefine TIF_pFirstRecord 

ffdefine TI F_SecondRecord 
ffdefine TIF_pSecondRecord 

ffdefine TIF_SourceRecord 
ffdefine TIF pSourceRecord 



{ (*pstTIF)->pFieldList) 
( (*pstTIF)->hFieldList) 

( (*pstTIF) ->pSourceFieldList) 
{ (*pstTIF) ->hSourceFieldList ) 

( (*pstTIF} ->lCurrentRecNum) 
( (*pstTIF) ->10riginalRecNum} 

( (*pstTIF) ->CurrentRecord) 
( (TIF_RECORD_VALUE_PTR) 

(TIF_CurrentRecord.pBuf fer } ) 
( (*pstTIF) ->OriginalRecord) 
( (TIF_RECORD_VALUE_PTR) 

( TIF_Original Record. pBuf fer ) 
( (*pstTIF) ->FirstRecord) 
( (TIF_RECORD_VALUE_PTR) 

( TIF_Fi rst Record. pBuf fer ) 
( (*pstTIF} ->SecondRecord) 
{ (TIF_RECORD_VALUE_PTR) 

{ TI F_SecondRecord . pBuf f er ) 
{ (*pstTIF) ->SourceRecord J 
( ( TI F_RECORD_VALUE_PTR ) 

(TIF_SourceRecord .pBuf fer) 



) 



) 



) 



) 



ffdef ine 
ffdefine 


TIF 
TIF~ 


_CurrentField 
_pCurrentField 


( (*pstTIF) 
{ <*pstTIF} 


->CurrentField) 

->Cur rent Field . pBuf f er ) 


ffdef ine 
ffdefine 


TIF 
TIF~ 


OriginalField 
_pOriginal Field 


( (*pstTIF) 
{ (*pstTIF) 


->OriginalField ) 

- >Original Field. pBuf fer ) 


ffdefine 
ffdef ine 


TIF 
TIF~ 


ExtraField 
pExtraField 


( (*pstTIF) 
{ (*pstTIF) 


->ExtraField) 
->ExtraField.pBuf fer } 


ffdefine 


TIF_ 


pFanBuf 


( (*pstTIF) 


->pFanBuf ) 


ffdefine 


TIF_ 


_hFile 


{& ( + pstTIF) 


->hILDFX File) 



// actual 
// actual 



\ 



\ 



\ 



\ 
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ffdefine TIF_bWorkFileIsOpen 



( (*pstTIF)->bWorkFileIsOpen) 



/ 



TI F_TotalRecordCount is the value returned by ILDFX_GetRecordCount ( ) . 
This count includes both "control" records and "data" records. There are 
N control records, numbered zero through (TI F_FIRST_ITEMNO-l ) , followed by 
data records numbered TI F_FIRST_ITEMNO through ( TI F_RecordCount-l ) . 



ffdefine 
ffdefine 
ffdef ine 
ffdef ine 
ffdefine 



TI F_TotalRecordCount 
TI F_PertinentRecordCount 
TI F_CurrentRecordNumber 
TI F_Cur rentRecordOutcome 
TIF nSynchronize 



( { *pstTIF 
( (*pstTIF 
( (*pstTIF 
( (*pstTIF 
( CpstTIF 



ffdefine TIF_Reconciliation6ption ((*pstTIF 



ffdefine TI F_Resolut ion 
ffdefine TI F_Af feet edit em 

ffdefine TIF Fi leFormatVersion 



( (*pstTIF 
{ {*pstTIF 

( (*pstTIF 



ffdefine 
ffdefine 
ffdefine 
ffdefine 
ffdefine 
ffdef ine 
ffdef ine 
ffdefine 
ffdefine 
ffdefine 
ffdefine 
ffdefine 
ffdefine 
ffdefine 
ffdefine 
ffdefine 
ffdef ine 
ffdef ine 



TIF_AlarmFlagFieldNum 
TIF_A1 a rmTime FieldNum 
TIF_AlarmDateFieldNum 
TIF_Done Flag FieldNum 
TIF_StartDateFieldNum 
TIF_EndDate FieldNum 
TIF_StartTimeFieldNum 
TIF_EndTime FieldNum 
TIF_ViewFieldNum 
TIF_SourceIDFieldNum 
TIF_TargetIDFieldNum 
TIF_SourceDelt a FieldNum 
TIFJTa rget Delta FieldNum 
TIF_RepBasicFieldNum 
TIF_RepExcl FieldNum 
TIF_SubType FieldNum 
TIF_SourceSubTypeFieldNum 
TIF KeyDateFieldNum { 



( <*pstTIF 
( (*pstTIF 
( ( + pstTIF 
( {+pstTIF 
( (*pstTIF 
( (*pstTIF 
{ CpstTIF 
{ (*pstTIF 
( (*pstTIF 
( { *pstTIF 
{ (*pstTIF 
( (*pstTIF 
( (*pstTIF 
( (*pstTIF 
( (*pstTIF 
( (*pstTIF 
{ (*pstTIF) 
(*pstTIF 



->TotalRecordCount ) 
->PertinentRecordCount ) 
->Cur rentRecordNumber ) 
->Cur rentRecordOutcome ) 
->nSynchronize ) 

->Reconciliat ionOption ) 
->Resolution ) 
->Af f ectedltem) 

->K. FileFormatVersion ) 



/ 



// virtual 



>K. Ala rmFlag FieldNum) 
>K. Ala rmTime FieldNum) 
>K. Ala rmDate FieldNum) 
>K. DoneFlagFieldNum) 
>K. Start Date FieldNum) 
>K.EndDateFieldNum ) 
>K.StartTime FieldNum) 
>K.EndTimeFieldNum ) 
>K.ViewFieldNum ) 
>K.SourceIDFieldNum ) 
>K.TargetIDFieldNum ) 
>K. SourceDeltaFieldNum ) 
>K.TargetDeltaFieldNum ) 
>K.RepBasicFieldNum ) 
>K. RepExclFieldNum } 
>K. SubTypeFieldNum ) 
->K. Sour ceSubType FieldNum) 
>K. KeyDateFieldNum} 



ffdefine TI F_bFastSyncSourceLoad (<*pstTIF; 
ffdefine TI F_bFastSyncTa rget Load ((*pstTIF; 

ffdefine TIF_bSourceIsFastSyncAble ( ( *pstTI F) ->K. bSou reels Fast SyncAble } 
ffdefine TI F_bTa rget Is Fast SyncAble ( ( *pstTI F) ->K. bTa rgetlsFastSyncAble ) 



->K. bFastSyncSourceLoad ) 
->K.bFastSyncTargetLoad) 



ffdefine 
ffdefine 
ffdefine 
ffdef ine 
ffdefine 
ffdefine 



TIFJoSynctlsingTa rget IDs 

TI F_bSyncUsingSourceIDs 

TIF_bCheckForOverlap 

TI F_bReconcileExclusions 

TI F_bReconcileRepBasic 

TIF_bDontSyncDoneTodos 



{ (*pstTIF) 
( ( + pstTIF) 
{ (+pstTIF) 
( (*pstTIF) 
( (*pstTIF) 
( (+pstTIFJ 



*>K.bSyncUsingTa rget IDs ) 
■>K. bSyncllsingSourcelDs ) 
■>K.bCheckForOverlap) 
->K. bReconcileExclusions ) 
■>K. bReconcileRepBasic ) 
■>K. bDontSyncDoneTodos ) 



ffdefine TI F_RangeOf Sync 
ffdefine TI F_RangeOf Previous Sync 
ffdefine TI F_RangeOf Source Load 



( (*pstTIF) ->K.RangeOfSync) 

( (*pstTIF) ->K.RangeOf PreviousSync) 

( (+pstTIF) ->K.RangeOfSourceLoad) 



ffdefine TI F_lDateOf PreviousSync ( ( + pstTI F) ->K. IDateOf PreviousSync ) 



ffdefine TI F_SourceEpoch 
ffdefine TI F_TargetEpoch 

ffdefine TI F_SourceFanoutMaxima 
ffdefine TIF_Target FanoutMaxima 



( (*pstTIF)->K.SourceEpoch) 
( (*pstTIF)->K.TargetEpoch) 

( ( +pstTIF) ->K. Source FanoutMaxima ) 
( (*pstTIF) ->K. Target FanoutMaxima ) 



ffdefine 
ffdef ine 
ffdefine 

ffdefine 
ffdefine 
ffdefine 
ffdefine 
ffde f ine 
ffdefine 
ffdefine 
ffdefine 



TIF_bPleaseSaveFanoutMaxima ( (*pstTIF) ->bPleaseSa veFanoutMaxima ) 
TIF_bNeed Priming { ( *pstTI F) ->bNeed Priming ) 

TIF_bCurrentlyLoggingAndCountingRecords \ 

( (*pstTIF) ->bCurrentlyLoggingAndCountingRecords ) 



TIF_nWhich 
TIF_szWorkFile 
TIF_bUserCancel 
TI F_bSkipLeaveAlones 
TI F_bFastSyncLoad 
TIF_bFastSyncUnload 
T I FLOG 
TIF phase 



{ (+pstTIF)->nWhich) 

( (*pstTIF)->szWorkFile> 

( (*pstTIF)->bUserCancel ) 

{ (+pstTIF) ->bSkipLeaveAlones ) 

( (*pstTIF) ->bFastSyncLoad) 

( (*pstTIF) ->bFastSyncUnload) 

( (+pstTIF)->lpsILLog) 

{ ( + pstTIF) ->phase ) 
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ffdefine TIF_origin ( ( *pstTI F) ->origin ) 

ffdefine TIFjTRPolicy ( ( *pstTI F) ->CRPolicy) 

ffdefine TIF_tr ( ( +pstTI F) ->t r ) 

ffdefine TIF_pILTIF { { *pstTI F) ->pILTI F) 

ffdefine TIF_PreviousILTRPhase ( ( *pstTI F) ->PreviousILTRPhase ) 

ffdefine TIF_Recorc!HasBeenPutSinceLastGet ( ( *pstTI F) ->RecordHasBeenPutSinceLastGet ) 

ffdefine TI F_szRepStart PseudoFidName ( { *pstTI F) ->szRepStart PseudoFldName ) 
ffdefine TI F_szRepStopPseudoFldName ( ( *pstTI F) ->szRepSt op PseudoFidName ) 
ffdefine TI F_szRepExPseudo FldName ( ( *pstTI F) ->szRepEx PseudoFidName ) 
ffdefine TIF_szTrue ( ( *pstTI F) ->szTrue ) 

ffdefine TIF_szFalse ( ( *pstTI F) ->szFalse ) 

ffdefine TIF_GoalPost ( ( *pstTI F} ->Goal Post ) 

ffdefine TI F_GoalPost For Next Pass ( ( *pstTI F) ->Goal Post ForNext Pass ) 

ffdefine TI F_bCountingOutcomes ( ( *pstTI F) ->bCountingOutcomes ) 

ffdefine TI F_OutcomeCounts ( ( *pstTI F) ->OutcomeCounts ) 

ffdefine TI F_LeaveAloneCount ( TI F_OutcomeCounts . LeaveAloneCount ) 

ffdefine TIF_AddCount (TI F_OutcomeCounts . AddCount ) 

ffdefine TI F_UpdateCount ( TI F_OutcomeCounts . UpdateCount ) 

ffdefine TI F_ReplaceCount ( TI F_OutcomeCounts . ReplaceCount } 

ffdefine TI F_DeleteCount (TI F_OutcomeCounts . DeleteCount ) 

ffdefine TI F_IgnoreCount (TI F_OutcomeCounts . IgnoreCount ) 

ffdefine TI FTableAutomatic ( ( v pstTI F) ->TableAutomatic ) 

// ILDFX Record Numbers 

ffdefine TIF_RECORD_ZERO 0 // Target Field List is stored here 

ffdefine TI F_RECORD_ONE 1 // Source Field List is stored here 

ffdefine T I F_R ECOR D_T WO 2 // TI F_KSTRUCT is stored here 

ffdefine TI F_FIRST_ITEMNO 3 // User data is stored starting here 

// TIF Current Record Number - special values 

ffdefine T I F_ POS I T I ON_ABOVE_TO P ( TI F_FIRST_ITEMNO-l ) 
ffdefine TI F_POSITION_BELOW_BOTTOM (-4) 

// special TIF-internal fields: 

ffdefine TI F_INST_LIST_FIELD "\2lnstanceArray" 
ffdefine TI F_INST_LIST_FIELDNUM 0 

// arbitrary limit on Group Size 

ffdefine T I F_MAX_GROU P_S 1 2 E 30000 

ffdefine T I F_MAX_S KG_S I Z E TI F_MAX_GROUP_SIZE 

ffdefine TI F_MAX_FIG_SIZE 1000 

ffdefine TI F_MAX_CIG_SIZE 3 // one P-item, one T-item, one S-item 

ffdefine TIF MAX CONFLICTS 10 



// 

ffdefine TIF 



NO SLOT 



offsets in ILDFX EX DAT A: 

(-1) // says NO, don't look at EX DATA ! 



ffdef ine 
ffdef ine 
ffdef ine 
ffdefine 
ffdefine 
ffdefine 
ffdefine 
ffdef ine 
ffdef ine 
ffdefine 
ffdefine 
ffdef ine 
ffdef ine 
ffdefine 



TI F_NEXT_IN_CIG_SLOT 
TI F_NEXT_IN_SKG_SLOT 
TI F_NEXT_IN_FIG_SLOT 
TIF_FLAGS_SLOT 
TI F_KEYFIELDS_HASH_SLOT 
TIF_SOURCEID_HASH_SLOT 
TI F_T ARGET I D_HAS H_S LOT 
T I F_N KFIEL DS_H AS H_S LOT 
TI F_NON DAT E_H ASH_S LOT 
TI F_DESC_HASH_SLOT 
TI F_START_DTTM_SLOT 
TI F_END_DTTM_SLOT 
TIF FLAGS 2 SLOT 



// Corresponding Item Group 
// Same Keyfields Group 
// Fanned Instance Group 



0 
1 
2 
3 
A 
5 
6 

1 // Hash of Non-Key Not-No-Reconcile Fids 

8 // Hash of Non-Date Non-Key Not-No-Reconcile Fields 

TI F_NONDATE_HASH_SLOT // for SmartMerge 

9 
10 
11 



TIF REP EXCL HASH SLOT 12 



ffdefine TIF EX DATA PER RECORD 13 



// access macros for ILDFX EX DATA values 

ffdefine TIFX(f, i, slot} ILDFX_EXDATA { f , i, slot) 

ffdefine TI FX_NEXT_IN_GROUP ( f , i , 1 inkage_slot ) TIFX{f, i, linkage_slot ) 
ffdefine TI FX_NEXT_IN_CIG ( f , i ) TIFX_NEXT_IN GROUP (f, i, TIF NEXT IN CIG SLOT) 
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ffdefine TI FX_NEXT_IN_SKG { f , i ) TI FX_NEXT_IN_GROUP { f , i, T I F_N EXT_I N_S KG SLOT) 
ffdefine TI FX_NEXT_IN_FIG ( f , i ) TI FX_NEXT_IN_GROUP ( f , i, TI F_NEXT_IN_FIG~SLOT ) 

ffdefine TIFX_FLAGS ( f , i ) TIFX(f, i, TI F_ FLAG S_S LOT ) 

ffdefine TI FX_KEYFIELDS_HASH ( f , i ) TIFXff, i, TI F_KEYFIELDS_HASH SLOT) 

ffdefine TIFX_SOURCEID_HASH ( f , i ) TIFX(f, i, TI F_SOURCEID_HASH SLOT) 

ffdefine TIFXJTARGBTIDJiASH ( f , i ) TIFX(f, i, TI F_TARGETID_HASH SLOT) 

ffdefine TI FX_NKFIELDS_HASH { f , i ) TIFXff, i, TI F_NKFIELDS_HASH SLOT) 

ffdefine TI FX_NONDATE_HASH ( f , i } TIFX(f, i, T I F_NON DAT E_HAS H SLOT) 

ffdefine TI FX_DESC_HASH T I FX_NON DAT E_HAS H 

ffdefine TI FX_START_DTTM ( f , i ) TIFXff, i, TI F_START_DTTM_SLOT ) 

ffdefine TI FX_END_DTTM ( f , i ) TIFX(f, i, T I F_EN D_DTTM_S LOT ) 

ffdefine TI FX_FLAGS2 ( f , i ) TIFX(f, i, TI F_FLAGS2_SLOT ) 

ffdefine TI FX_REP_EXCL_HASH { f , i ) TIFX{f, i, TI F_REP_EXCL_HASH_SLOT ) 

ffdefine TI FX_START_DATE { f , i ) ( TI FX_START_DTTM ( f , i ) / 1440) 

ffdefine TI FX_END_DATE ( f , i ) (TI FX_END_DTTM ( f , i ) / 1440) 

ffdefine TI FX_START_TIME { f , i ) ( TI FX_START_DTTM ( f , i ) % 1440) 

ffdefine TI FX_END_TIME ( f , i ) ( T I FX_EN D_DTTM ( f , i ) % 1440) 

// structure of FLAGS word in EX DATA : 

ffdefine TI F_IS_UNANALYZED OxOOOOOOOlL 

ffdefine TIFX_IS_UNANALYZED ( f , i ) ( T I FX_ FLAGS ( f f i ) & TI F_IS_UNANALY2ED) 

// tne GARBAGE and UNANALYZED flags use the same bit!! 

ffdefine TIF_IS_GARBAGE TI F_IS_UNANALYZED 

// values for ORIGIN part of FLAGS word 

ffdefine TI F_FROM_PREVIOUS 0x00000002L 
ffdefine TI F_FROM_TARGET 0x00000004 L 
ffdefine TIF_FROM_SOURCE Ox00000006L 

ffdefine TI F_ORIGIN_MASK 0x00000006L // does NOT include 'unanalyzed' bit 
ffdefine TIF IS FANNED FOR TARGET OxOOOOOOOSL 



ffdefine TI F_OUTCOME_MASK 
/* 



OxOOOOOFFOL 



* We use the TIF OUTCOME bits differently, depending on whether 

* we're doing SmartMerge or Synchronization. For SmartMerge 

* the following outcome bit definitions are used: 



ffdefine TI F_OUTCOME_ADD_ITEM_TO_TARGET OxOOOOOOlOL 
ffdefine TIF_OUTCOME_REPLACE_ITEM_IN_TARGET 0x00000020L 
ffdefine TIF OUTCOME UPDATE ITEM IN TARGET Ox00000040L 



/ 



ffdefine TI F_ITEM_WILL_END_UP_IN_TARGET_MASK 0x00000070L // add, rep, or upd 
ffdefine TI FXjDUTCOME ( f , i ) ( T I FX_ FLAGS ( f , i ) & TI F_OUTCOME_MASK) 

ffdefine TI FX_ITEM_WILL_END_UP_IN_TARGET ( f , i ) \ 

( TI FX_FLAGS { f , i ) & TI F_ITEM_WILL_END_UP_IN_TARGET_MASK) 

ffdefine TIFX_ITEM_WILL_BE_ADDED_TO_TARGET { f , i ) \ 

(TI FX_FLAGS ( f f i ) & TI F_OUTCOME_ADD_ITEM_TO_TARGET ) 

ffdefine TI FX_ITEM_WILL_NOT_END_U P_IN_TARGET ( f , i ) \ 
( !TIFX_ITEM_WILL_END_UP_IN_TARGET(f,i) ) 

ffdefine TI F_OUTCOME_IGNORE_DUPLICATE_ITEM 0x00000080L 
ffdefine TI F_OUTCOME_IGNORE_CONFLICTING_ITEM OxOOOOOlOOL 
ffdefine TI F_OUTCOME_IGNORED_MASK 0x0OOO0180L 
ffdefine TI FX_ITEM_IS_IGNORED ( f , i ) \ 

( ( TI FX_FLAGS ( f , i ) & TI F_OUTCOME_IGNORED_MASK) != 0} 

ffdefine TIF_OUTCOME_DELETE_ITEM_FROM_TARGET Ox00000200L 

// OBSOLETED means that item is to be replaced or updated by another 

ffdefine TIF_OUTCOME_OBSOLETED_ITEM 0x00000400L 
ffdefine TIF OUTCOME IGNORED OR OBSOLETED Ox00000580L 



ffdefine TI F_ITEM_OBSOLETES_AN OTHER 0x00000800L 
ffdefine TIFX_ITEM_OBSOLETES_ANOTHER ( f , i ) \ 

(TIFX_FLAGS(f,i) & TI F_ITEM_OBSOLETES_ANOTH£R ) 

ffdefine TI FX_ITEM_IS_OBSOLETED ( f , i } \ 
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(TIFX_FLAGS(f,i) & TI F_OUTCOME_OBSOLETED ITEM J 
ffdefine TI FX_ITEM_ISNT_OBSOLETED ( f , i ) ( ! TI FX_ITEM_IS_OBSOLETED ( f , i } ) ~ 



/ 



* For Synchronization of "peer" items, the following outcome bit 

* definitions are used: 



ffdefine TI FSYNC_TARGET_WINS 
ffdefine TI FSYNC_SOURCE_WINS 
ffdefine TI FSYNC_IGNORE 
ffdefine TIF SYNC OUTCOME COUNT 



/ 



1L 
2L 
3L 
3L 



ffdefine 
ffdef ine 
ffdefine 
ffdef ine 
ffdef ine 



T I F_OU TCOM E_S H I FT 
TIF_OUTCOME_MUL 
TIF_OUTCOME_SYNC_TARGET_WINS 
TI F_OUTCOME_SYNC_SOURCE_WINS 
TIF OUTCOME SYNC IGNORE 



4 // bit positions away from l*s 



ffdefine TIF OUTCOME SYNC MASK 



OxlOL 
(TIFSYNC_TARGET 
(TIFSYNC_SOURCE" 
(TIFSYNC_IGNORE' 

0x30L 



WINS + TIF_OUTCOME_MUL) 
[WINS * TIF_OUTCOME_MUL) 
* TIF OUTCOME MUL) 



/ + 

* NOTE: 



for synchronization these 5 bits are UNUSED: 0xF40 



7 



// 

ffdef ine 
ffdef ine 
ffde f ine 

// 



TIF 

TIF* 

TIF" 



ID 

"id" 
'id" 



MATCH 
"MATCH 

"match" 



PT 
PS 



flags used for ID-based matches 

OxOOOOCOOOL 

Ox00004000L // Previous & Target 
Ox00008000L // Previous & Source 



ffde f ine 


TIF 


KFM 


EXACT 1 


OxOOOOlOOOL 


ffdefine 


TIF~ 


"kfm" 


EXACT 2 


0x00002000L 


ffdefine 


TIF~ 


! KFM ! 


_EXACT12 


Ox00003000L 


ffdef ine 


TIF 


KFM 


INEXACT1 


OxOOOlOOOOL 


ffdef ine 


TIF* 


"kfm" 


"INEXACT2 


Ox00020000L 


ffdef ine 


TIF~ 


[kfm] 


~INEXACT 12 


0x0O030000L 


ffde f ine 


TIF 


KFM 


_STRONGl 


OxOOOllOOOL 


ffde f ine 


TIF 


"kfm" 


~STRONG2 


0x00022000L 


ffdefine 


TIF~ 


'kfm] 


~STRONG12 


Ox00033000L 


ffdefine 


TIF 


KFM 


ANY1 


OxOOOllOOOL 


ffdef ine 


TIF 


kfm" 


"ANY 2 


0x00022000L 


ffdefine 


TIF 


'kfm" 


ANY12 


Ox00033000L 



// flags used when we match fanned instances to Master Recurrence Items 

ffdefine TI F_IS_SYNTHETIC_MASTER 0x00O400OOL // flag set when we create a pseudo-master 
ffdefine TIFX_IS_SYNTHETIC_MASTER ( f , i ) \ 

(TIFX_FLAGS(f,i> & TI F_IS_SYNTHETIC_MASTER ) 

ffdefine TI F_IS_GOBBLED_UP_INSTANCE 0x00080000L // flag set when we gobble up an instance 
ffdefine TI FX_ I S_GOBBLED_UP_IN STANCE ( f , i ) \ 

( TI FX_FLAGS { f , i ) & TI F_IS_GOBBLED_UP_INSTANCE ) 
ffdefine TI FX_ISNT_GOBBLED_UP_INSTANCE ( f , i ) ( ! TI FX_IS_GOBBLED UP INSTANCE ( f, i ) ) 



/ 



* 



CIG Type identifiers: 

3-digit Source, Previous , Ta rget string: 

a ZERO digit means item absent in this domain 

a ONE digit means item has base value for this domain 

a TWO digit means item has different value in this domain 

a THREE digit means item has yet another value in this domain 



ffdefine TI F_CIG_TYPE_SHI FT 20 
ffde 
ffde 



fine TIFCIG_MUL OxOOlOOOOOL 
fine TIF CIG TYPE MASK OxOlFOOOOOL 



// bit-positions away from Is place 



7 



// values used for NOT-PREVIOUSLY-SYNCHRONIZED items 

ffdefine TIFCIG_000 0 // no cig type assigned (yet) 

ffdefine TIFCIG_001 1 // item is present in target only ("new in target") 
ffdefine TIFCIG_100 2 // item is present in source only ("new in source") 
ffdefine TIFCIG_101 3 // item is identical in Source and Target 
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ffdefine TIFCIG_102 4 // new source item <> new target item 

// values used for PREVIOUSLY SYNCHRONIZED items 

ffdefine TIFCIG_111 5 // item is unchanged across the board 

ffdefine TIFCIG_112 6 // item CHANGED in Target since last sync 

ffdefine TIFCIG_110 7 // item DELETED from Target since last sync 

ffdefine TIFCIG_21Jr 8 // item CHANGED in Source since last sync 

ffdefine TIFCIG_212 9 // item CHANGED IDENTICALLY in Src & Target 

ffdefine TIFCIG_213 10 // item CHANGED DIFFERENTLY in Src & Target 

ffdefine TIFCIG_210 11 // item CHANGED in Source, DELETED from Target 

ffdeflne TIFCIG_011 12 // item DELETED from Source since last sync 

ffdefine TIFCIG_012 13 // item DELETED from Source, CHANGED in Target 

ffdeflne TIFCIG_010 14 // item DELETED from both Source & Target 

ffdefine TIFCIG_132 15 // 102 conflict resolved interactively 

// to a "compromise" value; always UpdateBoth. 

ffdefine TIFCIG_13F 16 // Used when UpdateBoth is Fanned to Target 
ffdefine TIFCIG MAX 16 



ffdef ine 


TIF 


CIG 


TYPE 


000 


(TIFCIG 


000 




TIFCIG 


MUL) 


// 


0X00000000L 


ffdef ine 


TIF" 


cig" 


"type" 


"001 


(TIFCIG" 


"001 




TIFCIG" 


MUL) 


// 


0X00100000L 


ffdefine 


tif" 


"cig" 


type" 


"100 


(TIFCIG" 


"100 




TIFCIG* 


~MUL) 


// 


0x00200000L 


ffdef ine 


tif" 


"cig" 


"type 


"101 


{TIFCIG" 


"101 


* 


TIFCIG" 


MUL) 


// 


0x00300000L 


ffdefine 


tif" 


"cig" 


"type 


"102 


(TIFCIG" 


"102 




TIFCIG" 


"MUL) 


// 


Ox00400000L 


ffdefine 


tif" 


"cig" 


"type" 


"ill 


(TIFCIG 


"ill 




TIFCIG" 


"MUL) 


// 


OxOOSOOOOOL 


ffdefine 


tif" 


"cig" 


"type 


"ll2 


(TIFCIG" 


"l!2 


+ 


TIFCIG" 


"MUD 


// 


Ox00600000L 


ffdefine 


tif" 


"cig" 


"type" 


"no 


(TIFCIG 


"110 


★ 


TIFCIG" 


"MUD 


// 


Ox00700000L 


ffdef ine 


tif" 


"cig" 


"type" 


'211 


(TIFCIG 


"211 




tifcig" 


""MUL) 


// 


0x00800000L 


ffdef ine 


tif" 


"cig" 


"type 


"212 


(TIFCIG" 


212 


+ 


tifcig" 


"mud 


// 


Ox00900000L 


ffdefine 


tif" 


"cig" 


"type 


"213 


(TIFCIG" 


213 




tifcig" 


"mud 


// 


OxOOaOOOOOL 


ffdef ine 


tif" 


"cig" 


"type 


"210 


(TIFCIG" 


210 


+ 


tifcig" 


"MUL) 


// 


OxOObOOOOOL 


ffdef ine 


tif" 


"cig" 


"type 


'on 


(TIFCIG 


011 


* 


tifcig" 


"MUL) 


// 


OxOOcOOOOOL 


ffdefine 


tif 


"cig" 


"type 


012 


(TIFCIG 


012 


*• 


tifcig" 


"MUD 


// 


OxOOdOOOOOL 


ffdef ine 


tif" 


'cig 


"type 


010 


(TIFCIG 


010 


+ 


tifcig" 


"mud 


// 


OxOOeOOOOOL 


ffdef ine 


tif" 


"cig" 


"type 


132 


(TIFCIG 


132 


* 


tifcig" 


"MUL) 


// 


OxOOfOOOOOL 


ffdef ine 


TIF" 


'cig 


"type 


13F 


(TIFCIG 


13F 




tifcig" 


"mud 


// 


OxOlOOOOOOL 



/* 

* The 'Mex CIG' bit is set when the original CIG type and SyncOutcome bits 

* are altered to encode instructions for an ExclusionList Merge. When this 

* is done the original CIG type is stored in FLAGS 2 . 



ffdefine TIF_MEX_CIG Ox02000000L // cigtype altered by MEX 

/* 

* The 'Mex Only 1 bit is used in conjunction with CIG types 213, 132, and 

* 13F (132 after Fanning to Target), to indicate that the only field 

* values to be updated are the Exclusion List and the Exclusion Count 

* in the _repBasic field. See tifmex.cpp and t i f . cpp\Get FieldBylndex . 

ffdefine TIF_MEX_ONLY Ox04000000L // only update Exclusion List & Count 

// when FastSync loads an item into TIF with _Delta=D, the ZOMBIE bit is set 

ffdefine TIF_ZOMBIE Ox08000000L // item is a zombie 

/ + 

* Assume that the endpoint origins are X and Y, where X is either Source 

* or Target, and Y is either Target or Source. 

* The , WRONG_SST l bit, when turned ON for an item whose origin is X, 

* says that the item must NOT be unloaded by Y due to SubType Filtering 



ffdefine TI F_WRONG_SST OxlOOOOOOOL // wrong Section SubType for xfer 

ffdefine TIFX_WRONG_SST ( f , i ) ( { TI FX_FLAGS ( f , i ) & TI F_WRONG SST) != 0) 
ffdefine TI FX_RIGHT_SST ( f , i ) ( (TI FX_FLAGS ( f , i ) & TI F_WRONG_SST ) == 0) 

ffdefine TIF_BYSTANDER Ox20000000L 

// t- the IGNORE bitmask excludes records that most people don't want to see 

ffdefine TI F_IGNORE (TIF_ZOMBIE | TI F_IS_GARBAGE | TI F_BYSTANDER ) 

ffdefine TI F_ITEM_IS_RECURRING Ox40000000L 

ffdefine TIFX_ITEM_IS_RECURRING ( f , i ) \ 

{ (TIFX_FLAGS(f,i) & TIF_ITEM IS RECURRING ) != 0) 
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ffdefine TIFX_ITEM_ISNT_RECURRING ( f , i ) \ 

( (TIFX_FLAGS( f , i ) & TIF_ITEM_IS_RECURRING) 0) 

/* 

* when ILTIFFanltem is called we mark BOTH master & instances as 

* Fanned For Target or Fanned For Source. 

* - V 

ffdefine TI F_IS_FANNED_FOR_SOURCE 0x80000000L 

ff define TIF_IS_FANNED_FOR_WHOM \ 

{TIF_IS_FANNED_FOR_SOURCE I TI F_IS_FANNED_FOR_TARGET ) 

ffdefine TI FXJDRIGIN ( f , i ) ( TI FX_FLAGS ( f , i ) & TI F_ORIGIN_MASK) 
ffdefine TI FX_CIG_TYPE ( f , i ) (TI FX_FLAGS { f , i } & TI F_CIG_TYPE_MASK) 

/* 

* Flag bits in the FLAGS2 doubleword: 

* TIF2_IS_PCLONE (for FastSync only) says item was generated when 

* TIFSyncDigestFastLoad called TweakFastSyncCIG which in turn 

* called AddPCloneToCIG. (As opposed to being loaded into TIF 

* by virtue of a translator calling ILTI FPut Record . ) 

* * i 

ffdefine TI F2_IS_A_PCL0NE OxOOOOOOOlL 

/* 

* next 2 flags are used when All Fields Hash is tweaked to force re-fanning 

* + / 

ffdefine TI F2_AFH_BUMPED_UP Ox00000002L 
ffdefine TI F2_AFH_BUMPED_DOWN 0x00000004L 

/* 

* next 2 flags are used, for sync, when unloader calls ILTI FRe j ectOutcome 

+ v 

ffdefine TIF2_SOURCE_REJECT 0x00000008L 
ffdefine TI F2_TARGET_REJECT OxOOOOOOlOL 

// next flag is set when item is a Completed TODO 

ffdefine TI F2_DONE_TODO Ox00000020L 

ffdefine TIFX_IS_DONE_TODO{ f , i ) ( ( TI FX_FLAGS2 { f , i ) & T I F2_DON E_TODO } != 0) 

// next fx ag i s set W hen an appt or TODO item is outside the Date Range 

ffdefine TI F2_OUT_OF_RANGE " Ox00000040L 

ffdefine TI FX_IS_OUT_OF_RANGE ( f , i ) ( ( TI FX_FLAGS2 ( f , i ) & TI F2_OUT_OF_RANGE ) != 0) 

// next 2 flag bits are used to remember origins of ADD-ACROSS products 

ffdefine TI F2_WAS_CIGTYPE_213 0x00000080L 
ffdefine TI F2_WAS_CIGTYPE_102 OxOOOOOlOOL 

// next 4 flag bits are used to keep track of list traversal progress 

ffdefine TI F2_MARK_DUMP1 Ox00000200L 
ffdefine TI F2_MARK_DUMP2 Ox00000400L 
ffdefine TI F2_MARK_SKG1 Ox00000800L 
ffdefine TI F2_MARK_SKG2 OxOOOOlOOOL 

// special DELETE_ME bits set by ILTIFFanltem (sync only) 

ffdefine TI F2_DELETE_SOURCE Ox00002000L 
ffdefine TI F2_DELETE_TARGET Ox00004000L 

// next flag is set when a cig type 101 or 102 that is entirely out 

// 0 f ran ge is chopped into 2 pieces (a 100 and a 001} by set_cig_type 

ffdefine TI F2_WAS_OUTRANGE_10X 0x00008O00L 

// next flag is used to avoid redundant master/instance matching 

ffdefine TI F2_FOUND_INSTANCES OxOOOlOOOOL 

// next 3 bits are unused 

ffdefine TI F2_UNUSED_A OxOOOEOOOOL 

// next 5 bits are used to store the original CIG type when the need to 

// Merge Exclusion Lists forces a switch to a different (MEX) cig type. 

ffdefine TI F2_ORIGINAL_CIG_TYPE_MASK OxOlFOOOOOL // must match TI F_CIG_TYPE_MASK 

// next ~i bits are unused 

ffdefine TIF2 UNUSED B OxFEOOOOOOL 
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// offset in spt [ ] array passed to TI FTablePickRecords ForSync ( ) function 

// SPT stands for Source, Previous, Target 

ffdefine TIF_SPT_S 0 
ffdefine TIF_SPT_P 1 
ffdefine TIF_SPT_T 2 

ffdefine TI F_CRPolicy_Remove_SS_Dupl icates \ 

{ (TIF_CRPoiicy & ILXTR_CR_P0LICY_REMOVE_SS_DUPLICATES } 0) 

ffdefine TI F_CRPolicy_Detect_SS_Conf 1 icts \ 

( {TIF_CRPolicy & ILXTR_CR_POLICY_DETECT_SS_CONFLICTS) != 0) 

ffdef ine TI F_FieldCount (pp) { ( *pp) ->pFieldList->ActuaiFieidCount ) 
ffde fine TIF_FieldCount2 (pfl ) ( (pf 1 ) ->ActuaiFieldCount ) 

ffdefine TI F_FieldDesc (pp, fldnum) ( ( *pp } ->pFieldList->pFieldDescs [ f ldnum] } 
ffdefine TI F_FieldDesc2 (pfl, fldnum) (( pfl ) ->pFieldDescs [ fldnum] } 

ffdefine TI F_FieldDef aultValue ( pp, fldnum) (TI F_FieldDesc (pp, fldnum) . szDefault ) 
ffdefine TIF_FieldDef aultValue2 (pf 1 , fldnum) (TI F_FieldDesc2 (pf 1 , f ldnum) . szDefault ) 

ffdefine TI F_FieldToGetDef aultValueFrom (pp, fldnum) \ 

(TIF_FieldDesc (pp, fldnum) . FieldToGetDef aultValueFrom) 

ffdefine TI F_FieldFormat ( pp, fldnum) ( TI F_FieldDesc (pp, fldnum) . szFormat ) 
ffdefine TIF_FieldFormat2 (pf 1 , fldnum) ( TI F_FieldDesc2 ( pf 1 , fldnum) . szFormat ) 

ffdefine TI F_FieldType ( pp, fldnum) { TI F_FieldDesc ( pp, fldnum) . FieldType ) 
ffdefine TIF_FieldType2 (pf 1, fldnum) (TI F_FieldDesc2 (pfl, fldnum) . FieldType ) 

ffdefine TI F_ Fie IdMax Length (pp, fldnum) (TI F_FieldDesc (pp, fldnum) . MaxLength ) 
ffdefine TIF_FieldMaxLength2 (pf 1 , fldnum) (TI F_FieldDesc2 (pf 1, fldnum) . MaxLength ) 

ffdefine TI F_FieldMaxMa pped Length {pp, fldnum) \ 

(TIF_FieldDesc (pp, fldnum) . MaxMappedLength ) 

ffdefine TI F_FieldName ( pp, fldnum) ( TI F_FieldDesc ( pp, fldnum) . szFldName ) 
ffdefine TIF_FieldName2 (pf 1 , fldnum) (TI F_FieldDesc2 (pf 1 , fldnum) . szFldName ) 

ffdefine TI F_FieldNum (pp, fldnum) (TI F_FieldDesc ( pp, fldnum) . FieldNum) 
ffdefine TI F_FieldNum2 ( pf 1 , fldnum} ( TI F_FieldDesc2 ( pf 1 , fldnum ). FieldNum) 

ffdefine TI F_Related FieldName ( pp, fldnum) \ 

(TIF_FieldDesc (pp, fldnum) . RelatedFieldName ) 

ffdefine TI F_Related FieldName2 (pf 1 , fldnum} \ 

(TIF_FieldDesc2 {pfl, fldnum) .RelatedFieldName) 

ffdefine T I F_Rel a ted FieldNum ( pp, fldnum) \ 

(TIF_FieldDesc{pp, fldnum) . RelatedFieldNum) 

ffdefine TI F_FieldIsAdded ( pp, fldnum) ( TI F_FieldDesc ( pp, fldnum) . FieldlsAdded ) 
ffdefine TI F_Fi eldIsAdded2 (pfl, fldnum) ( TI F_FieldDesc2 { pf 1 , fldnum ). FieldlsAdded ) 

ffdefine TIF_is Priori tyField ( pp, fldnum) \ 

{ (TIF_FieldAttributes {pp, fldnum) & ILTB_ATT_PRIORITY ) != 0} 

ffdefine TIF_FieldAtt ributes (pp, fldnum) \ 

(TIF_FieldDesc (pp, fldnum) . FieldAtt ributes ) 

ffdefine TIF_FieldAtt ributes2 (pf 1 , fldnum) \ 

(TIF_FieldDesc2 {pf 1, fldnum) . FieldAtt ributes ) 

ffdefine TI F_ExtraAtt ributes (pp, fldnum) \ 

(TIF_FieldDesc (pp, fldnum) . Ext raAtt ributes ) 

ffdefine TI F_Ext raAtt ributes2 (pfl , fldnum) \ 

(TIF_FieldDesc2 (pf 1, fldnum) . Ext raAttributes ) 

ffdefine TI F_isKeyField {pp, fldnum) \ 

( (TIF_FieldAttributes (pp, fldnum) & I LTB_ATT_KE Y_FI ELD) != 0) 

ffdefine TI F_isDescriptionField ( pp, fldnum) \ 

{ {TIF_FieldAttributes (pp, fldnum) & ILTB ATT VIEW) != 0) 
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ffdefine TI F_isntKeyField (pp, fldnum) ( ! TI F_isKeyField ( pp, fldnum) } 

ffdefine TI F_isAutoFil 1 InField ( pp, fldnum) \ 

( (TIF_ExtraAttributes (pp, fldnum) & TI FEA_AUTO_FI LLIN ) 0) 

ffdefine TIF_FieldrsMapped (pp, fldnum) \ 

( (TIF_Extra Attributes (pp, fldnum) & TI FEA_ISNT_MAPPED) == 0) 

ffdefine TI F_FieldIsntMapped (pp, fldnum) \ 

( (TIF_ExtraAttributes (pp, fldnum) & TI FEA_ISNT_MAPPED) != 0) 

ffdefine TI F_FieldFi rstLineMapped (pp, fldnum) \ 

( (TIF_ExtraAttributes (pp, fldnum) & TI FEA_FIRST_LINE_MAPPED) != 0) 

ffdefine TIF_isRepBasicField (pp, fldnum) (fldnum == ( *pp) ->K. RepBasicFieldNum) 

ffdefine TI F_isRepExcl Field (pp, fldnum) (fldnum == ( *pp ) ->K. RepExcl FieldNum) 

ffdefine TI F_isntMatchField (pp, fldnum) \ 

( (TIF_FieldAttributes (pp, fldnum) & ILTB_ATT_NO_RECONCILE ) != 0) 

ffdefine TI F_isMatchField (pp, fldnum) ( ! TIF_isntMatchField ( pp, fldnum)) 

ffdefine TI F_i sMul t i LineField ( pp, fldnum) \ 

( (TIF_FieldAttributes (pp, fldnum) & I LTB_ATT_MULTLINE ) != 0) 

ffdefine TI F_isSourceI DField { pp, fldnum) (fldnum ( *pp) ->K. SourcelDFieldNum) 

ffdefine TI F_isTarget I DField (pp, fldnum) (fldnum ( *pp) ->K. TargetlDFieldNum) 

ffdefine TI F_isSourceDelta Field ( pp, fldnum) \ 

(fldnum == (*pp)->K.SourceDeltaFieldNum) 

ffdefine TI F_isTa rget Del ta Field ( pp, fldnum) \ 

(fldnum == ( *pp) ->K.TargetDeltaFieldNum) 

// Field Offsets are all set relative to BYTE ZERO of the record structure 

ffdefine TI F_FirstOf f set (pp ) ( ( *pp ) ->pFieldList->Fi rstOf f set ) 
ffdefine TI F_Fi rstOf fset2 (pf 1 ) ( ( pf 1 ) ->Fi rstOf f set ) 

ffdefine TI F_FieldOf f set ( pr , fldnum) ( ( pr ) ->pFieldValues [ fldnum] . FieldOf f set ) 
ffdefine TI F_ Fie Id Length ( pr , fldnum) ( ( pr ) ->pFieldValues [ fldnum] . lFldSize) 

inline IL_PSTR TI F_Fi eld Data 

( TIF_RECORD_VALUE_PTR pr, 
INT16 fldnum ) 

{ 

INT32 offset = TI F_FieldOf fset (pr, fldnum); 
IL_PSTR pData = (IL_PSTR) pr; 
return (pData + offset); 



// when doing Master/Instance correlations, don't fan forever... 

ffdefine TI FSYNC_MAX_FAN_COUNT 500 

typedef struct 
{ 

long IDate; 

INT32 lSlaveltem; 

char bExcludedFromMaster; 

char cWhichFanout; // use ffdefines below 

} 

TI FSYNC_INSTANCE_TY PE ; 

// values for cWhichFanout 

ffdefine TI FSYNC_CURR_FANOUT 1 
ffdefine TI FSYNC_PREV_FANOUT 2 

II special HASH values that have special meanings 

ffdefine TI FHASH_NONE 0 // means nothing has been hashed 

ffdefine TI FHASH_SPECI AL 1 // "this is a Fig Master; ID-bearing FIG attached" 
ffdefine TI FHASH_FIRST_NORMAL 2 // lowest un-dist inguished hash value 

// special pseudo-f ieldnumbers used when calling TIFHash 
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ffdefine TIFHASH STARTSTOP 



(-99) 



// Start&Stop Recurrence Dates 



definitions for TIF logging from ILDFX handle 



ffdefine 
ffdefine 
ffdefine 
ffdefine 
ffdefine 
ffdefine 
ffdefine 
ffdefine 
ffdefine 



TI FXlogsz { s ) 
TIFXlogsz&z(s, t) 
TIFXlogsz3 {s, t,u) 
TIFXlogsz3ul (s, t, u, v) 
TIFXlogszul {s, t ) 
TIFXlogszszul (s, t, u) 
TIFXlogszulul (s, t,u) 
TIFXlogsz2ul2 (s, t, u,v) 
TIFXlogszul 3 (s, t,u, v) 



ILDFXlogsz 

ILDFXlogszsz 

ILDFXlogsz3 

ILDFXlogsz3ul 

ILDFXlogszul 

ILDFXlogszszul 

ILDFXlogszulul 

ILDFXlogsz2ul2 

ILDFXlogszul3 



(phFile, s) 
(phFile, s, t ) 
(phFile, s, t,u) 
(phFile, s, t, u, v) 
(phFile, s,t) 
(phFile, s,t,u) 
(phFile, s,t,u) 
(phFile, s, t,u, v) 
(phFile, s, t, u, v) 



/ 



/ 



definitions for logging in low-level TIF environment 



ffdefine 
ffdefine 
ffdefine 
#def ine 
ffdefine 
ffdefine 
ffdef ine 
#def ine 
ffdef ine 



TIFlogsz(s) ILLOG 

TIFlogszsz (s, t ) ILLOG" 

TIFlogsz3(s, t,u) ILLOG" 

TIFlogsz3ul (s, t, u, v) ILLOG" 

TIFlogszul (s, t) ILLOG" 

TIFlogszszul (s, t, u ) ILLOG* 

TIFlogszulul (s, t, u) ILLOG~ 

TIFlogsz2ul2 {s, t,u, v) ILLOG" 

TIFlogszul3 (s, t, u, v) ILLOG~ 



logsz 

logszsz 

logsz3 

logsz3ul 

logszul 

logszszul 

logszulul 

logsz2ul2 

logszul3 



(TIFLOG, 
(TIFLOG, 
(TIFLOG, 
(TIFLOG, 
(TIFLOG, 
(TIFLOG, 
(TIFLOG, 
(TIFLOG, 
(TIFLOG, 



V 

ILLOG_ALWAYS, s) 
ILLOG_ALWAYS,s, t ) 
ILLOG_ALWAYS, s, t,u) 
I L L OG_ AL W A Y S , s , t , u , v ) 
I LLOG_ALWAYS , s , t ) 
ILLOG_ALWAYS , s , t , u ) 
I LLOG_ALWAY S , s , t , u ) 
I LLOG_ALWAYS , s , t , u , v ) 
I LLOG_ALWAYS , s , t , u , v ) 



* definitions for verbosity-sensitive logging in low-level TIF environment 



ffdefine TIFlogO(v,s) 
ffdefine TI Floglstr ( v, s, a ) 
ffdefine TIFlog2str ( v, s, a, b) 
ffdefine TI Floglint ( v, s, a ) 
ffdefine TIFlog2ints ( v, s, a, b) 



ILLOG_logsz 
ILLOG_logszsz 
ILLOG_logsz3 
ILLOG_logszul 
ILLOG logszulul 



ffdefine TIFlog3ints ( v, s, a, b, c ) ILLOG_logszul3 



(TIFLOG, v, s) 
(TIFLOG, v, s, a) 
(TIFLOG, v, s, a, b) 
(TIFLOG, v, s, (UINT32) a) 
( TIFLOG, v, s, (UINT32) a, 

(UINT32) b ) 
( TIFLOG, v, s, (UINT32) a, 

(UINT32) b, (UINT32) c ) 



/ 



\ 
\ 



#define TI Flog 11 (v,s,a,b) 
#define TI Flogl2 ( v, s , a , b, c ) 



ILLOG_logszszul 
ILLOG_logsz2ul2 



ffdefine TI Flog21 ( v, s, a , b, c ) ILL0G_logsz3ul 
ffendif // ffifndef TIF INCLUDED 



(TIFLOG, v, s, a, (UINT32) b) 
( TIFLOG, v, s, a, \ 

(UINT32) b, (UINT32) c ) 
(TIFLOG, v, s, a, b, (UINT32) c) 
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ffifndef _T I F FN_I NCLU DE D 
ffdefine JTI FFN_INCLUDED 

./* 

* Name: TIFFN.H 

* Purpose: Function prototypes for private ' TIF 1 functions. 

* *- 

* These functions should NOT be called by anyone outside of the ILTIF subsystem 
+ 

* Note that these are C++ functions, not C-callable. 
+ 

* Authors: Ken Dobson, David Boothby, 

* Copyright (c) IntelliLink Corporation, 1994-1995 

v 

/* 

* Name: TIFHash 

* Purpose: function used to compute CHECKSUM of a blob of data. 

* NOTE: same as ILDFULDFEX. C\ ILDFKeyValue and analogous to 

* ILDF\CHKSUM.C\ILDFCheckSum. 

* Author: Mike Blanchette, Copyright (c) IntelliLink, 1993 

* 2nd Author: David Boothby, Copyright (c) IntelliLink, 1995 

* to allow checksum calculation of a set of input blobs, rather than just 

* one blob, new first arg added to calling sequence. For first or only 

* blob, pass ZERO for 1st arg. For subsequent blobs, pass hash of blobs 

* checks ummed so IL_DIST . 

* data may be binary or null-terminated text. For binary supply exact length. 

* For text, it doesn't matter whether the length you supply includes or 

* excludes the null terminator — the result will be the same. 
*■ 

* For text both leading & trailing whitespace is stripped 

* before computing hash. 

* 3/12/95: never return value ZERO. 

* v 

INT32 TIFHash ( PSTTI F_TYPE pstTIF, int fieldnum, INT32 checksum, 

IL_USHPSTR pData, INT32 IData, IL_PSTR szPurpose ); 

/ + 

* TIFSimpleHash — call TIFHash for text for single-blob calculation 

*■ — ■*■ i 

INT32 TIFSimpleHash ( PSTTI F_TYPE pstTIF, IL_PSTR sz); 

/* 

* TIFNormalizeRepeatDates -- compute normalized start & stop dates that 

* fit the repeat pattern. For example a yearly Christmas party starting 
+ Jan 1, 1996 will have start date normalized to 12/25/96. 

* — — _ + / 

int TIFNormalizeRepeatDates ( ILTR_PREPEAT pRepeatBlock, 

long IL_DIST *pStartDate, 
long IL_DIST *pStopDate ); 

/* 

* Name: TI FComputeSearchKeyValues 

* Purpose: Compute Hash Values and Start&End DTTM Values and 

* store them in the exdata array 

* * / 

int TI FComputeSearchKeyValues { PSTTI F_TYPE pstTIF, 

TIF_RECORD_VALUE_PTR pRecord, 
INT32 *exdata ); 

int TIFSanitizeRepBasic ( PSTTI F_TYPE pstTIF, 

ILTR_PREPEAT pRepeat, 
ILTR_PREPEAT pRepeat2 ); 

int TIFSetSimpleApptSpan ( PSTTI F_TYPE pstTIF, 

TIF_RECORD_VALUE_PTR pRecord, 
INT32 IL_DIST *plStart, 
INT32 IL_DIST *plEnd ); 

/* 

* CAAR functions: Conflict Analysis And Resolution 

* v 
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int TIFSynchronization_CAAR ( ILTR_PTRANSL tr); 
int TIFSmartMerge_CAAR ( ILTR_PTRANSL tr); 

/* 

* Name: TI FAdj ustRecordl f Changed 

* Called by: GetResolut ion function, in TIFMERGE.CPP 

* Purpose: To make storage and search key adjustments for a Reconciled 

* Record, which the user may have edited. 

* v 

int TIFAdjustRecordIfChanged(PSTTIF_TYPE pstTIF, INT32 Sourceltem) ; 

/* 

* Name: TI FAskUserToResolveConf 1 ict 

* Purpose: Ask User to resolve conflict 

* between 1 source item and N target items. 
+ 

— — — — — — — — *• 

int TIFAskUserToResolveConf lict 
{ ILTR_PTRANSL tr, 
PSTTI F_TYPE pstTIF, 
INT32 Sourceltem, 
INT32 NumberOfConflicts, 

INT32 IL_DIST *Conf lictingTargetltems, // IN (ARRAY) 

TIF_RECONCILIATION_0PTION IL_DIST +pResolut ion, // OUT 
INT32 IL_DIST *pAf f ectedTa rget I tern ); // OUT 

/ + 

* TIFGroup_GetNext — get next item in group, where group is a linked list 

* of ILDFX entries, linked by the EXDATA value found 

* at offset •linkSlof. This function does some sanity 

checking and returns an error code (negative number) 

* if the next item is insane. 



INT32 TIFGroup_GetNext (ILDFX_PHNDL phFile, 

INT32 IRecordNumber, 
int linkSlot ); 



#def ine TI FGetNext I nCIG ( f , n) TI FGroup_GetNext ( f, n, TI F_NEXT_IN_CIG_SLOT ) 
ffdefine TI FGetNext I nSKG ( f, n ) TI FGroup_GetNext ( f , n , TI F_NEXT_IN_SKG_SLOT ) 

/* 

* Name: TI FremoveFromSKG 

* ride around the circular list to find precursor of 

* item to be removed, then link from previous to subsequent: 

* before: previous — > cigltem — > subsequent 

* after: previous --> subsequent 

* pass NULL for 3rd arg unless you need to get back the index 

* of the predecessor of the deleted item. 



int TIFremoveFromSKG ( I LDFX_PHNDL phFile, INT32 Item, 

INT32 IL_DIST *pPredecessor ) ; 

// sanity check item 

int TIFGroup_ValidateItem (ILDFX_PHNDL phFile, 

INT32 IRecordNumber); 

/* 

* Use one of the following TIFWHICH values when calling TIFVerifyFieldsMatch 

* — ~ — — — . _ v 

typedef enum 
( 

TI FW_ALL_FIELDS, // compare all mapped Not-No-Reconcile Fields 

TIFW_KEY_FIELDS, // compare all mapped Key Fields 

^ TI FW_NONKEY_FIELDS // compare all mapped Not-No-Reconcile Non-Key Fields 

TIFWHICH; 



/ + 

* Name: TIFVerifyFieldsMatch 

* Compare full field values to verify exact match. This is an expensive 

* operation, done only when relevant hash values are equal. 
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* RETURNS: SUCCESS (match) or TIF_NO_MATCH or abnormal error code 
+ 

* NOTE: Pass FirstKey == -1 to compare the record that is currently in 

* memory as "*pRecl" with the record identified by SecondKey. 

* WARNING: uses-the TI F_Cur rent Field and TI FjDriginal Field buffers 
*■ „ _ 

int TIFVerif yFieldsMatch ( PSTTI F_TYPE pstTIF, 

TIF_RECORD_VALUE_PTR pRecl, 
INT32 FirstKey, 
INT32 SecondKey, 
TIFWHICH nWhichFields }; 

/* 

* Name: TIFRecordAddFieldValue 

* Add field value, either to Current Record Value structure, or to ILTIF 

* Cache, depending on circumstances. 

* You can either pass a Field Name, in 2nd arg, or pass a Field Number, 

* in 3rd arg. When passing a Field Number, 

+ put a zero-length string (not NULL pointer) in the 2nd arg. 



/ 



* Pass bMapCharsIfNonBinary=TRUE if you want text-type fields to be 

* subject to character mapping from endpoint-speci f ic encoding to 

* IntelliLink intermediate encoding of line terminators and other chars. 

* NOTE: for non-binary fields, the ' lData' arg is may be ignored ... we use 

* IL_STRLEN to compute the length of non-binary 'pData 1 . But if 

* 'lData' has the TI F_LENGTH_GUARANTEED bit set then we respect lData. 
* + / 

ffdefine TI F_LENGTH_GUARANTEED Ox4 0000000L 

int TIFRecordAddFieldValue 
( PSTTI F_TYPE pstTIF, 

TI F_FIELDLIST_PTR pFieldList, // either Target or Source Field List 

IL_PSTR szFldName, // supply either a field name... 

INT16 fieldnum, // ...or a field number 

IL_PSTR pData, // Field Data to be added 

LONG lData, // Length of the data 

BOOLEAN bMapCharsIfNonBinary, // for character mapping of text fields 

ILUT_PBUFFER pRecord ); // Buffer for record 

// Initialize the underlying TIF mechanism 
int TIFInit 

( PSTTI F_TYPE pstTIF, 
ILTR_PTRANSL tr, 
int nNumOfFlds >; 

int TIFLoadKStruct (ILDFX_PHNDL phFile, TI F_KSTRUCT *pK) ; 

/* 

* TIFStartNextPhase 

* Signals beginning of a new phase, and indicates end of previous phase 

* use TIF_PHASE_XXX definitions from ILTIF. H 

* _ v 

int TIFStartNextPhase ( I LTR_PTRANSL tr, INT16 phase); 

int TIFSaveFanoutMaxima ( ILTR_PTRANSL tr); 
// Close the underlying TIF mechanism 

int TIFTerminate ( PSTTI F_TYPE pstTIF, I LTR_PTRANSL tr); 

// Free buffers that hang off the TIF structure 

void TIFFreeBuf fers ( ILTR_PTRANSL tr, PSTTIF_TYPE pstTIF); 

/ + 

* Name: TI FIni tRecord 

* Purpose: Initialize the TIF structure representing an ILDFX record buffer 
* v 

int TIFInitRecord ( PSTTI F_TYPE pstTIF, 

TI F_FIELDLIST_PTR pFL, 



Copyright ©1996 Puma Technology, Inc. All Rights Reserved. 



tiffn.h 



Page 4 of 9 



ILUT PBUFFER 



pRecord ) ; 



// Returns how many fields are currently defined in TIF 
int TIFHowManyField 

( PSTTI F_TYPE pstTIF, 

INT32 *pFieldCount ); // Number of fields defined 

/ / Returns field name given an index 
int TIFGetFieldName 

( PSTTI F_TYPE pstTIF, 

INT16 fieidnumber, 

IL PSTR szFldName ) ; 



// zero-based index of fieldname 
// buffer for fieldname 



// Describe one field in the field list 

int TIFDefineOneField 

( PSTTI F_TYPE pstTIF, 

TIF_FIELDLIST_PTR pFieldList, // 

IL_PSTR szFldName, // 

LONG lFldSize, // 

int nFldType, // 

IL_PSTR szFormat, // 

IL_PSTR szRelFldName, // 

ILTB_ATTRIB t Flags, // 

INT32 +pExtraAttributes, // 

BOOLEAN bPositive, // 

IL_PSTR szDefault, // 

ILTR NDX iltrFieldnum ); // 



Field List (primary or SOURCE cache) 

Field name 

Field size 

Field type 

Field format 

Associated field 

Field Attributes 

array of extra field attributes 

Is Assoc field added 

Default data for field 

Field index in ILTR Field List 



// Locate the definition of a field that TIF knows about 

int TIFLookUpFieldDef inition 
( PSTTIF_TYPE pstTIF, 

IL_PSTR szFldName, // i N: Field name 

TIF_FIELD_DESC_PTR IL_DIST *ppDef init ion ) ; // OUT: ptr to Definition 



/ 



* Name: 



TIFPutFieldBylndex -- put field w/o doing any character mapping 



int TIFPutFieldBylndex 

( PSTTIF_TYPE pstTIF, 
INT16 fieldnum, 
IL_PANY pFldData, 

INT32 len ); // len is only relevant for BINARY fields 

// Make sure that all fields that are supposed to have a value 
// are filled in with either a user supplied default, or if there 
// is no user supplied default then a TIF default value based on 
// the type 
int TIFFillDefaults 

( PSTTI F_TYPE pstTIF, 

ILTR_PTRANSL tr, // tr struct 

ILUT_PBUFFER pRecord ); // Pointer to record buffer 



/ 



/ 



* Use one of the following Put Record Option (PRO) values when 

* calling TI FPut Record . 
+ _ 

typedef enum 
{ 

TI FPRO_STORE_NEW_UNANALYZED_RECORD, 
TIFPRO_ANALYZE_AND_STORE_NEW_RECORD, 
TIF P RO_AN AL Y Z E_AN D_U P DAT E_R ECOR D , 
TIFPRO_SPECIAL_HISTORY_FILE_UPDATE, 
TIFPRO_STORE_SPECIAL ZOMBIE 

} 

TI F_PUT_RECORD_OPTION; 

// Analyze and Store record on disk; set CIG & SKG ties (see tifput.cpp) 
// (except UNANALYZED option skips the analysis) 

int TIFPutRecord ( ILTR_PTRANSL tr, TI F_PUT_RECORD_OPTION nPutOption); 



/ 



* TI FRet rieveRecord -- read record into a reusable buffer 
*• 

int TIFRetrieveRecord 

( PSTTI F_TYPE pstTIF, 



/ 
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LONG IRecNum, 
ILUT_PBUFFER pRecord ); 

/* 

* Name: TI FCopyllnmappecl Fields 

* Purpose: copy unmapped fields from Original record to Current record. 

* This fs done when sanitizing source records. 

•k 

int TI FCopyUnmapped Fields ( PSTTIF_TYPE pstTIF); 

/* 

* Name: T I FC1 one Record 

* Purpose: make CurrentRecord be an exact copy of OriginalRecord 
+ _____________ 

+ / 

int TIFCloneRecord ( PSTTI F_TYPE pstTIF); 

int TIFCopyRecord ( PSTTI F_TYPE pstTIF, ILUT_PBUFFER pFrom, ILUT_PBUFFER pTo ) ; 

// get original and current versions of a record 
int TIFGetRecord 

( PSTTI FJTYPE pstTIF, 

LONG IRecNum ); // Record number to retrieve 

/* 

* Name: TIFRet rieveFieldBylndex -- get value of numbered field 

* NOTE: returned LENGTH' includes the NULL terminator for non-binary fields. 

int TIFRetrieveFieldBylndex 
( PSTTI F_TYPE pstTIF, 
INT16 FieldNumber, 

INT32 *plFieldLength, // OUT: Length of field retrieved 

ILUT_PBU FFER pField, // Buffer for field retrieved 

TIF_RECORD_VALUE_PTR pRecord J; // record buffer to get field from 

// Determine whether field has been altered in the current record 
int TIFFieldChanged 

( PSTTI F__TY PE pstTIF, IL_PSTR IpszFieldName); 

/ + 

* Name: TIFGetField — get value of named field 
+ 

* Use nWhich argument to choose ORIGINAL, CURRENT, AUTO, or SOURCE-CACHE 

* value. 



NOTE: returned LENGTH includes the NULL terminator for non-binary fields. 

+ / 

int TIFGetField ( PSTTI F_TYPE pstTIF, 

IL_PSTR IpszFieldName, 
int nWhich, 

LONG *plFieldLength, // OUT: length of field value 

ILUT_PBUFFER pField ); // ptr to buffer header 

// Get pointer to the value of the view field. NULL ptr if view field is null 
int TIFGetViewField ( PSTTI F_TYPE pstTIF, IL_PSTR IL__DIST *ppData); 

// Compute the number of records that pertain to the current UNLOADING phase 

// NOTE: this function does NOT return the count; just computes it and 

// puts it in TIF_PertinentRecordCount ! ! 

int TI FComputePert inentRecordCount ( PSTTIF_TYPE pstTIF); 

// verify that specified record is a valid record that pertains to 
// the current UNLOADING PHASE, 
int TIFValidateRecord 

{ PSTTI F_TYPE pstTIF, INT32 IRecordNumber ); 

// position to next record that pertains to the current UNLOADING PHASE . 
// (returns TI F_ERR_EOF when we run out of pertinent records) 
int TIFPositionToNextRecord ( PSTTI F__TY PE pstTIF); 

/ * 

* Name: TIFOutcome 

* Purpose: Determine whether current record is to be Replaced, Updated, 

* Deleted, Added, or Just Left Alone. 
+ 

* NOTE: I would like to switch from past tense "outcomes" to present tense 
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* actions: Replace, Update, Delete, Add, LeaveAlone . . . 

* v 

int TIFGetOutcome ( PSTTI F_TYPE pstTIF, INT32 RecordNumber , 

INT32 IL_DIST *pOutcome); 

// Reconcile callback, for keeping track of user choices on what 

// to do with current conflicts posted in the Notify dialog, (in tif_ilcr . cpp) 

tfifdef cplusplus 

extern "C" // Make ILCR Callback function (just that 1 function) C-callable 
ffendif 



int IL_DECL TI FReconciliat ionCallback 

( ILTR_PTRANSL tr, // tr struct 

IL_PSTR szLabel, // Field Name 

IL_PSTR szData, // Field Data 

INT32 Targetltem, 

ILT_PTIF IL_DIST * pstTIF ); // Pointer to global info 



* The following is a list of utility functions used for the TIF mechanism. 

* These functions can be found in TIFUTIL.C 



// Given a Date Time pair in ILIF Date and Time format combine them 
// into number of minutes since 1900 

INT32 TIFConvertDateTime ( IL_PSTR szDate, IL_PSTR szTime ); 

// Substitute one substring for another in a string. 

int TIFSubstitute 

( PSTTI FJTYPE pstTIF, 

ILUT_PBUFFER pMaster, // ptr to Buffer to alter 

IL_PSTR szReplace, // Substr to replace 

IL_PSTR szWith ); // Substr to substitute 

// For Debugging, create formatted dump of 

// the CURRENTLY OPEN TIF file 

int TIFDump ( PSTTI F_TYPE pstTIF); 

// general fieldvalue comparison -- including special case for _repBasic 

BOOLEAN TIFFieldValuesDif fer { PSTTI F_TYPE pstTIF, 

IL_PSTR pReclField, 

IL_PSTR pRec2Field, 

INT32 IReclField, 

INT32 lRec2Field, 

int f ieldnum ) ; 



7 



// general fieldvalue comparison — NOT including special case for _repBasic 

BOOLEAN TIFFieldValuesDif fer2 ( ILTR_PTRANSL tr, 

IL_PSTR pReclField, 

IL_PSTR pRec2Field, 

INT32 IReclField, 

INT32 lRec2Field, 

char FieldType, 

I LTB_ATTRIB FieldAtt ributes ); 

/ + 

* Name: TIFTableCopyAndAdjust 

* Purpose: Copy static table to stack location 

+ and adjust it to reflect current Synchronization CR Option 

*• , 

* J 

int TIFTableCopyAndAdjust ( PSTTI F_TYPE pstTIF); 

/* 

* Name: TI FTable Pic kRecords For Sync 

* Purpose: Look up in Table for current cigType and phase to determine 

* * what the Original and Current Records are 

* _ . . 

+ / 

int TIFTablePickRecordsForSync ( PSTTI F_TYPE pstTIF, INT32 Item, 

INT16 phase, 

INT32 *spt, // IN {3-element array) 

INT32 *pCurrent, // OUT 

INT32 *pOriginal ); // OUT 
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/* 

* Name: TI FTableGetOutcomeForSync 

* Purpose: Look up in Table for current cigType and phase to determine 

* what the Outcome is for current record 

+ ■* / 

int TI FTableGetOutcomeForSync ( PSTTI F_TYPE pstTIF, INT32 Item, 

INT16 phase, 

INT32 *pOutcome ); // OUT 



int TIFTableGetRawOutcomeForSync { PSTTI F_/TYPE pstTIF, 

INT32 Item, 
INT16 phase, 

INT32 *pOutcome ); // OUT 

/* 

* Name: TIFBuildSPT 

* Purpose: Build itty bitty "cig" and "spt" arrays from CIG members. 

* The resulting arrays are useful for picking out CIG members 

* by ORIGIN. 

* v 

int TIFBuildSPT ( ILDFX_PHNDL phFile, 

INT32 Item, 
INT32 *cig, 
INT32 *spt ) ; 

int TI FRet rieveOrCreate PItem ( PSTTI F_TYPE pstTIF, INT32 Targetltem); 

// Prototype moved from TIFSYNC.CPP to keep CodeWarrior happy. 

int TIFDump2 ( PSTTI F_TYPE pstTIF); 

int dump_and_unmark_cig ( PSTTI F_TYPE pstTIF, INT32 groupNumber, 

INT32 anchor ); 

int dump_and_unmark_skg { PSTTI F_TYPE pstTIF, INT32 groupNumber, 

INT32 anchor J; 

/ + 

* Name: TI FSetRecordNumbers 

* Purpose: For a given CIG, figure out which item is "current" and which 

* item is "original". 

+■ 

* Called from: TIFGetRecord and TI FSyncGetOutcome 

■*■ 

* NOTE that Current & Original may be identical!! 

+ -ir I 

int TIFSetRecordNumbers ( PSTTI F_TYPE pstTIF, 

INT32 Item, 

INT32 IL_DIST *pCurrent, 
INT32 IL_DIST *pOriginal ); 

/* 

* Name: TI FSyncFanOutRecurrence Patte rn 

* Called by: FindAndUselnstances and i lti f . cpp\ILTI FFanltem 

* NOTE: caller is always responsible for freeing v ppRepeat if it's set 

* Author: David Boothby, Copyright (c) IntelliLink Corporation, 1995 

* WARNING: this function uses TI F_Current Field and TI F_ExtraField 

* v 

int TI FSyncFanOutRecurrence Pattern ( PSTTI F_TY PE pstTIF, 

INT32 ItemToFan, 
ILTR_PFANOUT_MAXIMA pMaxima, 
TI FSYNC_INSTANCE_TYPE **plnst Array, 
ILTR_PREPEAT *ppRepeat, 
BOOLEAN bMergeWithOld, 
int *pFullCount, 
int *pUnexcludedCount ) ; 

/ + 

* Name: TI FSyncDigest FastLoad (in t i f sync2 . cpp ) 

+■ 

* Called by: tif.cpp / TI FSta rtNext Phase at the end of the load- f rom-source 
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* and load-f rom-target phases, when doing Fast Sync. 

+ v 

int TIFSyncDigestFastLoad ( ILTR_PTRANSL tr); 

/* 

* Name: TI FSyncGetOutcome {in t if sync2 . cpp) 

* Called from TITGetOutcome and ConsiderThisItem 

* / 

int TI FSyncGetOutcome ( PSTTI F_TYPE pstTIF, 

INT32 Item, 
INT16 phase, 

INT32 *pOutcome ); // OUT 

/* 

+ Name: TI FSyncReadHi story File (in t i f sync2 . cpp } 

* Called from TI FStart Next Phase 



int TI FSyncReadHi s tor yFile { ILTR_PTRANSL tr}; 

/* 

* Name: TIFSyncCheckOldParameters (in tifsync2 . cpp) 

* Called by WrapUpSetUp, which is called by TIFStartNext Phase 

* v 

int TIFSyncCheckOldParameters { PSTTI F_TYPE pstTIF, ILDFX_PHNDL phHistory) ; 

// "OK To Proceed" function — in tifoktp.cpp 

int TIF_OKToProceed ( ILTR_PTRANSL tr, 

TIF_OUTCOME_COUNTS *pSrcCounts, 

TIF_OUTCOME_COUNTS *pTarCounts ); 

/* 

* field value logging functions, in tifutil.cpp 

* f 

void TIFLogPutField ( ILTR_PTRANSL tr, IL_PSTR szFldName, 

UINT8 *pFldData, LONG lFldSize, int rc ); 

void TIFLogGetField { ILTR_PTRANSL tr, IL_PSTR szlntro, 

IL_PSTR szFldName, int nWhich, 
UINT8 +pFldData, LONG lFldSize, int rc ); 

void TIFSetHistoryDir { IL_PSTR szWorkDir, 

IL_PSTR szILDATA, 
IL_PSTR szHistoryDir ); 

/* 

* functions shared between iltif.cpp and iltifa.cpp 

* v 

int TIFInitStruct ( ILTR_PTRANSL tr) ; 

int TIFPutSourceRecord ( ILTR_PTRANSL tr); 

int TIFGetFieldAttributes 
( ILTR_PTRANSL tr, 

IL_PSTR szFieldName, // IN: Field Name 

INT32 IL_DIST *pMaxLength, // OUT: Max Field size {or 0 for unlimited) 

char IL_DIST *pFieldType, // OUT : FldType { I LX_TY PE_XXX ) 

ILTB_ATTRIB IL_DIST *pFieldAtt r ibutes , // OUT: Field Attribute bits 

IL_PSTR szTypeDesc ); // OUT: copy of szTypeDesc 

int TIFGetTargetFieldAttributes 
{ ILTR_PTRANSL tr, 
IL_PSTR FieldName, 

INT32 IL_DIST *pMaxLength, // OUT: Max 
char IL_DIST *pFieldType, 
ILTB_ATTRIB IL_DIST *pFieldAtt r ibutes ); 

int TIFGetlnstanceHandle (); // see ILTIFI.CPP 

void TI FFreelLTI FBuf f ers ( ILTR_PTRANSL tr); 

INT32 TIFKeyDate ( PSTTI F_TYPE pstTIF, INT32 Item}; // in tifxutil.cpp 

int TIFMarkAllFigMembers ( ILDFX_PHNDL phFile, INT32 Item, 

INT32 FlagsToClear, INT32 FlagsToSet, 
INT32 Flags2ToSet ); 



Field size {or 0 for unlimited) 
// OUT: FldType ( I LX_TYPE_XXX ) 
// OUT: Field Attribute bits 
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int TIFMergeExclusionLists ( PSTTI F_TY PE pstTIF, INT32 Firstltem, 

INT32 SItem, INT32 TItem, INT32 PItem }; 



int TIFCommandeerTargetltem ( 



int TI FCommandeerSourceltem ( 



PSTTI F_TYPE pstTIF, 
INT32 PreviousTargetltem, 
INT32 Sourceltem, 
TIF_RECORD_VALUE_PTR pRec, 
INT32 *pNewTarget ); 

PSTTI FJTYPE pstTIF, 
INT32 PreviousSourceltem, 
INT32 Targetltem, 
TI F_RECORD_VALUE_PTR pRec, 
INT32 *pNewSource ); 



IL_PSTR TIFCigName (INT32 cigType); 
tfendif 
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ffifndef TIFSYNC2_H 
tfdefine TIFSYNC2JH 

/* 

* Name: TIFSYNC2.H 

* Purpose: definitions used by TIF.CPP to access the TIFSYNC2.CPP module 

* Author: David -Boothby, Copyright (c) InteiliLink Corporation, 1995 



extern int I LTI FSyncShouldWeZapIt ( ILTR_PTRANSL tr}; 

extern IL_PSTR ILSYNC_INI_FILE; 

extern IL_PSTR ILSYNC_SETTINGS_SECTION; 

extern IL_PSTR I LS YNC_H I STOR Y_NAME ; 

extern IL_PSTR ILSYNC_SOURCE_PATH; 

extern IL_PSTR ILSYNC_TARGET_PATH; 

extern IL_PSTR I LS YNC_H I STOR Y_NAME_H I NT ; 

extern IL_PSTR ILSYNC_EXT_ISH; 

extern IL_PSTR ILSYNC_EXT_NEW; 

extern IL_PSTR ILSYNC_EXT_OLD; 

ffendif 
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ffifndef _TI FRC_INCLUDED 
ffdefine _TI FRC_INCLUDED 

/* 

* Name: TIFRC.H 

* Purpose: TIF Resources 

* This file should NOT be included by any modules 

* outside of the ILTIF subsystem. 
* 

* Author: David Boothby, Copyright {c) IntelliLink Corporation, 1995 
v 

// Variables needed for the string table 

ffdefine TIF_STR_TEXT 301 

#define TI F_STR_UNSPECI FIED 302 

ffdefine TI F_STR_RECONCILING 303 

ffdefine TI F_STR_REPSTART_PSEUDO_FLDNAME 304 

ffdefine TI F_STR_REPSTOP_PSEUDO_FLDNAME 305 

#define TI F_STR_REPEX_PSEUDO_FLDNAME 306 

ffdefine TI F_STR_EXCLUSIONS 307 

ffdefine TI F_STR_RECURRING 308 

ffdefine TI F_STR_MULTI DAY 309 

ffdefine TI F_STR_TRUE 310 

ffdefine TI F_STR_FALSE 311 

// string IDs 310-349 reserved for TIFOKTP (see tifoktp.h) 

ffdefine TIF_STR_CIG001 350 

ffdefine TI F_STR_CIG010 351 

ffdefine TI F_STR_CIG011 352 

ffdefine TI F_STR_CIG012 353 

ffdefine TI F_STR_CIG1 00 354 

// the next ten #defines have cousins defined below (in lockstep) 

ffdefine TIF_STR_CIG101 355 

ffdefine TI F_STR_CIG1 02 356 

ffdefine TIF_STR_CIG110 357 

ffdefine TI F_STR_CIG210 358 

#define TIF_STR_CIG111 359 

ffdefine TIF_STR_CIG112 360 

ffdefine TIF_STR_CIG211 361 

ffdefine TI F_STR_CIG212 362 

ffdefine TI F_STR_CIG21 3 363 

ffdefine TIF_STR_CIG132 364 

ffdefine TI F_STR_EOL 369 

ffdefine TI F_STR_DIVI DER 370 

ffdefine T I F_ST R_S UMMAR Y 371 

ffdefine TI F_STR_CLASH_COUNT 372 

ffdefine TI F_STR_ADD_COUNT 37 3 

ffdefine TI F_STR_CHG_COUNT 374 

ffdefine TI F_STR_DEL_COUNT 375 

ffdefine TI F_STR_NOCHG_COUNT 37 6 

ffdefine TI F_STR_NON_UNIQUE_I D 380 

// degrees of separation between cousins 

ffdefine TI F_MEX_COUSIN_ADDEND 30 

// the next ten ffdefines must all be exactly +30 each compared to 

// tne ten cousins above (355-364) — see TIFDUMP.CPP 

ffdefine TI F_STR_CIG101MEX 385 
ffdefine TI F_STR_CIG102MEX 386 
ffdefine TIF_STR_CIG110MEX 387 
ffdefine TI F_STR_CIG210MEX 388 
ffdefine TI F_STR_CIG1 1 1MEX 389 
ffdefine TI F_STR_CIG1 12MEX 390 
ffdefine TI F_STR_CIG211MEX 391 
ffdefine TI F_STR_CIG212MEX 392 
ffdefine TI F_STR_CIG213MEX 393 
ffdefine TI F_STR_CIG1 32MEX 394 

ffendif 
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/* 

* Name: ILTIF.RC 

* Purpose: RC file for the TIF mechanism. 

* Sections: 

* String Table 
★ 

* Author: Ken Dobson, Copyright (c) IntelliLink Corporation, 1994 
v 



Hfdef USE_NEW_ILCR 
^include "ilcr2.rc" 



tfendif 



^include "tifrc.h" 



#ifndef USE_NEW_ILCR 
^include "ilcr.rc" 



ffendif 



^include "ilt rerr . h" 

^include "iltrerr.rc" 

^include "iltrmsg.rc" 

^include "ilver.rc" 



STRINGTABLE 

BEGIN 

TI F_STR_TEXT, 
TIF_STR_UNSPECIFIED, 
TI F_STR_RECONCILING, 
TIF STR REPSTART PSEUDO 



it 



it 



TIF 

TIF 

TIF" 

TIF" 

TIF" 

TIF" 

TIF" 

tif" 



<NO VALUE>" 
<Unspeci f ied>" 

Reconciling Data Items" // progress bar caption 
FLDNAME, "First Date" // pseudo-fieldname in ILCR 



STR 

STR* 

STR* 

STR" 

STR' 

STR" 

"str" 
"str" 



_REPSTOP_PSEUDO_FLDNAME, "Last Date" // pseudo-fieldname in ILCR 
*REPEX_PSEUDO FLDNAME, "Excluded Dates" // pseudo-fieldname in ILCR 



EXCLUSIONS, 
"RECURRING, 
MULT I DAY, 
TRUE, 

"false, 

"non unique id, 



END 



"\001 and \001 others" // pseudo-f ieldvalue in ILCR 

" repeating" 

"multi-day" 

"Yes" // "Yes" preferred to "True" 

"No" // "No" preferred to "False" 

"\r\n => ID \042% . 200s\042 is not unique 



tt 



//STRINGTABLE 
//BEGIN 

// TIF_STR_SYNC_SUMMARY, " \ 01 5\ 012\ 01 5\ 012Summary of Data Analysis : \ 015\ 012\ 015\ 012" 

// TIF_STR_SYNC_CONFLICT_COUNT, "Conflicting Changes: \ 001\015\012" 

// TIF_STR_SYNC_CHG_COUNT, "Non-conflicting Changes: \ 001\01 5\ 012" 

// TIF_STR_SYNC_ADD_COUNT, "Additions: \001\015\ 012" 

// TIF_STR_SYNC_DEL_COUNT, "Deletions: \001\015\012" 

// TIF_STR_SYNC_SAME_COUNT, "Records unchanged: \001\015\012" 

//END 



Note position reversal of First/Second Systems, 
names and values of the following strings: 



// 

// 

STRINGTABLE 

BEGIN 

TIF_STR_CIG001, 
TIF_STR_CIG010, 
TIF_STR_CIG011, 
TIF_STR_CIG012, 
TIF_STR_CIG100, 
TIF_STR_CIG101, 
TIF_STR_CIG102, 
TIF_STR_CIG110, 
TIF_STR_CIG210, 
TIF_STR_CIG111, 
TIF_STR_CIG112, 
TIF_STR_CIG211, 
TIF_STR_CIG212, 
TIF_STR_CIG213, 
TIF_STR_CIG132, 

END 



between the 



"Added on First SysterrA 015\ 01 2" 
"Deleted from Both Systems\015\012" 
"Deleted from Second System\015\012" 

"Deleted from Second System, Changed on First\015\012" 

"Added on Second System\015\012" 

"Same Record Exists on Both Systems\015\012" 

"Added differently on Each SysterrA 01 5\ 012" 

"Deleted from First SysterrA 01 5\ 012" 

"Deleted from First System, Changed on Second\015\012" 

"Unchanged on Both Systems\015\012" 

"Changed on First SysterrA 01 5\ 012" 

"Changed on Second System\015\012" 

"Changed identically on Both Systems\015\ 012" 

"Changed differently on Each System\015\012" 

"Conflict Resolved by Compromise\015\012" 



Copyright ©1996 Puma Technology, Inc. All Rights Reserved. 



Iltif.rc 



Page 2 of 2 



STRINGTABLE 

BEGIN 

TIF_STR_CIG101MEX, 
TIF_STR_CIG102MEX, 
TIF_STR_CIG110MEX, 
T I F_STR_CIG2 1 OMEX , 
TIF_STR_CIG111MEX, 
TI F_STR_CIG1 12MEX, 
TIF_STR_CIG211MEX, 
TIF_STR_CIG212MEX, 
TIF_STR_CIG213MEX, 
TIF_STR_CIG132MEX, 

END 



"Exclusion Lists Di f f er\ 01 5\ 012" 
"TIF_STR_CIG102MEX\015\012" 
"TIF_STR_CIG110MEX\015\012" 
"TIF_STR_CIG210MEX\015\012" 
"Exclusion List(s) ChangedN 015\012" 

"Changed on First System and Exclusion Lists Di f f er\ 015\ 012" 
on Second System and Exclusion Lists Di f f er\015\ 012" 
on Both Systems and Exclusion Lists Dif fer\015\012" 
on Each System and Exclusion Lists Di f f er\015\ 012" 



"Changed 
"Changed 
"Changed 



"Conflict Resolved, Exclusion Lists Dif f er\015\012" 



STRINGTABLE 
BEGIN 

TIF_STR_EOL 

TIF STR DIVIDER, 



"\015\012" 
it _ _ _ _ _ 



"\015\012Summary of Data Analysis : \015\012\015\012" 



TI F_STR_SUMMARY, 

TIF_STR_CLASH_COUNT, "Records Added or Changed - Conflicting: \001\015\012" 



T I F_S T R_A D D_COU N T , 
TI F_STR_CHG_COUNT, 
TIF_STR_DEL_COUNT, 
TIF STR NOCHG COUNT, 



it 



it 



it 



END 



Records Added - Not Conflicting: 
Records Changed - Not Conflicting: 
Records Deleted: 
Records Unchanged: 



\001\015\012" 
\001\015\012" 
\001\015\012" 
\001\015\012" 



ffifdef USE_NEW_ILCR 

^include "t i foktp. rc" 



#endif 
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/* 

* Name: ILTIF.CPP {and ILTIFA.CPP and ILTIFI.CPP) 

* Purpose: These 3 modules contain almost all of the public entrypoints 

* into the ILTIF mechanism. 



Functions (local functions are indented): 



* ILTIFCreate — same as ILTIFInit 

* ILTIFInit — "call me first" — top-level initialiser 

* TIFInitStruct -- called by ILTIFInit 

+ ILTIFHowManyField — please don't call this function!! 

* ILTIFGetFieldName -- please don't call this function!! 

* ILTIFDef Field -- used to tell TIF about a field 

* ILTIFDef FieldEx — extended version of ILTI FDef Field 

* Define Field — internal Def Field function 

* ILTI FDef Fi el dN -- tell TIF about a field by ILTR field* 

TIFGetFieldAttributes -- guts of ILTI FGet FieldAtt ri butes 
ILTIFGetFieldAtt ributes — analogue to ILTRMLFldTypeEx 
TIFGetTargetFieldAttributes — restricted variant of previous fn 
ILTI FFill Fields — loop thru field list calling ILTI FDef Field 



ILTIFInitRecord — called from iltr\export . c for ILX_V4 mode 

ILTI FPutField — put field value into current record in TIF 

ILTI FPut FieldEx — special version of ILTIFPutField 

ILTI FPut FieldEx2 — OBSOLETE: another version of ILTIFPutField 

ILTIFPutRecord 

ILTIFWriteRecord — same as ILTIFPutRecord 
ILTIFCloneRecord 

Author: Ken Dobson, Copyright (c) IntelliLink Corporation, 1994 
David Boothby, Copyright (c) IntelliLink Corp., 1995 

Games that we play, to integrate Field Mapping into TIF, and to accommodate 
unmapped and "extraneous" fields (i.e. fields that ILTR knows nothing about) 



* Relevant data structures are: 

* 1, The TIF Field List, which lists all the Field Names. This is 
+ based largely on the TARGET APP's fieldlist. It is up to the 

* Target App Translator to tell TIF about its fields, including all 
+ MAPPED fields, and optionally UNMAPPED fields as well -- at said 

* translator's discretion. 

+ When doing "Sma rtMerge" , that's all there is to say — just Target 

* App Fields. But when doing Synchronization, the TIF Fieldlist may 

* contain unmapped Source App fields in addition to Target App fields. 

* Unmapped Source App Fields are distinguished from other fields by 

* having their names prefixed by the character '\01' (CTRL-A) . 

* 2. The TIF Cache, which is only used when data being loaded into TIF needs 

* to be subjected to Field Mapping. 



+ Functions which get invoved in Field Mapping Games are: 

* a. ILTIFDefField 

* b. ILTIFPutField 

* c. ILTIFPutRecord 

* f. ILTIFGetField 
# 

* and the ILTR functions ILFldPut and ILFldGet. 
+■ 

* Details for each of these functions are as follows: 
* 

* a. ILTI FDef Field : 

* Normally this just results in adding another Field Desc entry to the 

* TIF Field list. But when we're getting Field definitions from 

* the Source Translator (which is only done for Synchronization, and 

* happens when ILTR_phase ILTR_PHASE05 ) we check, on each ILTI FDef Field 

* call, to see if the field is mapped. If it is, we IGNORE it!! If it 

* isn't mapped, we add it to the Field List with a '\01* prefix. 
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* b. ILTIFPutField: 



+ 



Normally this just results in putting field data into the current 
Record Value structure. But when we are loading Source App data, which 
is done while ILTR_phase == ILTR_PHASE20, we check, on each ILTIFPutField 
call, to see if the field is mapped. If it is, we put the field name 
and value iffto the ILTIF Cache (from which ILTIFPutRecord may eventually 
fetch it}. If the field is NOT mapped, we lookup the ' \ 01 ' -pre fixed 
field name in the TIF Field List, and if found, we put the field data into 
the current Record Value structure. 

c. ILTIFPutRecord: 



* Normally this just results in writing a filled-in Record Value structure 
into the TIF file. But when we are loading Source App data, (which is 
done while ILTR_phase ILTR_PHASE20) we have to do Field Mapping first. 
Source App data that has been supplied for UNMAPPED Source App fields is 
already in the Record Value structure. But Source App data that has been 
supplied for MAPPED fields is in the ILTIF Cache at this point. So the 
ILTIFPutRecord function loops through the entire TIF Field List, calling 
the ILTR function ILFldGet for each MAPPED field that it knows about. 



+ 

* d. ILTR ILFldGet: 



+ 



+■ 



* 



This is the "Shining Path" to IntelliLink Field Mapping. 
This function has a traditional use, for ILIF-based translation, where 
the TARGET Translator calls ILFldGet to get MAPPED field values from 
ILIF. In the "ILX_V4" world, that traditional use for ILFldGet is no 
longer exercised. For ILX_V4, ILFldGet is called two ways: 

i. When ILTIFPutRecord needs to do Field Mapping, it calls ILFldGet. 
(This is when we're loading Source App data into TIF - PHASE20.) 

ii. When ILTI FGet Field needs to do Field Mapping, it calls ILFldGet. 
(This is when we're unloading from TIF to SOURCE APP - PHASE 4 0 . ) 

Note that for both of these cases where ILTIF calls ILFldGet, ILFldGet 
turns right around and calls ILTIFGet Field . This may seem absurd, 
especially when ILTIFGetField has just called ILFldGet, but it actually 
works out quite nicely. 

Example: xlator calls ILTIFGetField, seeking value for 

fieldname="SourceAppZipcode" . ILTIFGetField calls 
ILFldGet, which sees that Ta rgetAppZipcode is mapped to 
SourceAppZipcode. So it then calls ILTIFGetField to get 
the value for f ieldname="TargetAppZipcode" , and eventually 
passes the value back... 



* Of course ILTIFGetField allows only one level of recursion. 
*■ 

* e. ILTR ILFldPut: 
■*• 

* Nothing interesting here. For ILX_V4 calls to ILFldPut simply turn 

* into calls to ILTIFPutField. 



f. ILTIFGetField: 

There are 4 distinct circumstances for calls to ILTI FGet Field : 

i. When we are Unloading TIF to the Target App, either in ILX_V3 
mode or in ILX_V4 mode with I LTR_phase==ILTR_PHASE30, the ~ 
Target Translator calls ILTIFGetField for each Target Field, 
and we simply get the requested field from the TIF database 
and pass it back. No games to play. No field mapping. 

ii. When we are LOADING Source App Data directly into TIF, and 
doing Field Mapping ensuite. This never happens in ILX_V3 
mode, but in ILX_V4 mode it happens during ILTR_PHASE20 . 
In this circumstance, the call stack looks like this: 

xlator calls ILTIFPutRecord... 

which in turn calls ILFldGet (N times, in a loop), 

seeking values for Target App Fields... 

which deciphers the Field Map, and calls ILTIFGetField 
to get values from the corresponding Source App Field(s). 
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+ 

*■ 



which gets those values from the ILTIF Cache!!! 

iii. When we are UNLOADING TIF data to the Source App (which only 
happens when doing Synchronization -- in I LTR_PHASE4 0 ) . 
The SOURCE xlator calls ILTI FGet Field for each Source App 
field that it cares about. ILTIFGet Field tries to satisfy 
each request as follows: 



* 



First it looks to see if there is an UNMAPPED SOURCE APP 

* FIELD {with * \ 01 1 -prefixed fieldname). If so, it returns 

* the value of said field. 
+■ 

* * Failing that, it then calls ILFldGet to have Field Mapping 

* done . . . . 
+ 

* iv. Continuing scenario (iii), the ILFldGet call resolves to one 

* or more ILTI FGet Field calls, which are now looking for 

* TARGET APP Fields. No problem. this is like a re-run of 

* scenario (i). We grab the requested value from TIF and 

* pass it back. 



/ 



ffinclude "iltr.h" 



ffdefine EXIT_WITH_ERROR ( e ) {rc=e; goto Exit;} 

#define LOG_ERR_AND_EXIT ( el, e2) EXIT_WITH_ERROR ( ILERROR ( el , e2 ) ) 

static int DefineField 
( I LTR_PTRANSL tr, 
IL_PSTR szFldName, 
LONG lFldSize, 

char IL_DIST *pFldType, // ptr to 1 char 

IL_PSTR szFormat, 

I LTB_ATTRIB FieldAtt ributes, 

INT32 *pExtraAttributes, // IN: array of 1 or more... 

IL_PSTR szDefault, 
ILTR_NDX iltrFieldnum ); 

static int GetFieldGuts ( ILTR_PTRANSL tr, 

IL_PSTR szFieldName, 
int nWhich, 

BOOLEAN bMapCharsIfNonBinary, 
LONG *pFieldLength, 
IL_PANY *pFieldValue ); 

static int MapCharsFromIL_IfNonBinary ( I LTR_PTRANSL tr, 

IL_PSTR FieldName, 
ILUT_PBUFFER pField, 
INT32 *pFieldLength ); 

static int MarkFlag2ForAllCIGMembers ( ILDFX_PHNDL phFile, INT32 Item, 

INT32 FlagsToSet ); 

/* 

* The following entrypoint is obsolete, but will be retained for awhile to 

* avoid nuisance revlocks between TIF DLL and translators build with ILTR 

* libraries including FLDPUT.OBJ from 1/3/96 through 1/19/96. 



extern "C" TI F_DLL_ENTRY POINT ILTI F Put Fie ldEx2 
( ILTR_PTRANSL tr, 
IL_PSTR szFldName, 
IL_PANY pFldData, 
LONG lFldSize, 

BOOLEAN bLengthGuaranteed, // see NOTE above 

BOOLEAN bSpecial FanningAdj ustment , 
BOOLEAN bMapCharsIfNonBinary ); 

/^ — 

* Name: ILTIFCreate 

* Context: When using ILTIF for SmartMerge 

* Purpose: Initialize TIF, create TIF file, etc. 

•ir 

+ / 

TIF_DLL_ENTRYPOINT ILTIFCreate ( I LTR_PTRANSL tr, 

IL_HINST hObsoleteUnusedArgument, 
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LONG 1 Fie Ids ) 

{ 

int rc = ILTIFInit (tr, NULL, lFields); 
return rc; 

} // ILTIFCreate 



/ + 

* Name: ILTIFInit 

* Purpose: Initialize TIF, open or create TIF file, etc... 
* 

* Called by: ILTIFCreate and possibly by users of ILTIF 
*■ 

* NOTE: SUCCESS means we've allocated TIF structures and opened files. 

* anything else means NOTHING is allocated and NO FILE are OPEN. 

* So if ILTIFInit fails, no cleanup is required. 

* v 

TIF_DLL_ENTRYPOINT ILTIFInit ( ILTR_PTRANSL tr, 

IL_PSTR IpszTIFFilename, // unused!! 
LONG 1 Fields ) 

{ 

int rc = TIFInitStruct ( tr ) ; 
if (rc != SUCCESS) 
return rc; 

/* 

* make sure we start out with a legal field count. The exact number 

* is unimportant; we just allocate space for N fields, and we can 

* grow the space i f we need room for more. 

+ + / 

if (lFields == 0) 

1 Fields = TIF_FIELD_COUNT_INCREMENT; 

// Initialize the mechanism 

rc = TIFInit ( &ILTI F_pstTI F, tr, (int) lFields); 

if (rc != SUCCESS) 

{ 

I L_FREE (ILTIF_hst ILTIF, ILTR_pILTIF) ; 
ILTR_pILTIF = NULL; 

} 

return rc; 
} // ILTIFInit 



/ + 

* Name: TIFInitStruct 

* Purpose: Initialize ILTIF structure 

* Called by: ILTIFInit and I LTI FSyncIni t 



int TIFInitStruct ( ILTR_PTRANSL tr) 
{ 

int rc; 

rc = TIFGetlnstanceHandle (); // see ILTIFI.CPP 
if (rc != SUCCESS) 
return rc; 

// set signature for Heap Logging (if enabled) 

ILUT_MemSig ("ILTIF"); 

// Allocate an initial global info record 

IL_HANDLE hstlLTIF; // Handle to global data 

ILTR_pILTIF = (ILT_PILTIF) IL_ALLOC ( si zeof ( ILT_ILTI F) , hstlLTIF); 
if ( ILTR__pILTIF == NULL) 

return ILERROR_L ((INT32) si zeof ( ILT_ILTI F) , TI F_ERR_MEM ) ; 

I L_MEMSET ( I LTR_pILTI F, 0, si zeof ( ILT_ILTIF) ) ; 
ILTI F_hstILTI F = hstlLTIF; 

/* 

* When running under older apps the I LDATA directory is hardcoded, 
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* but newer apps put the name in ILTR_szUserDir . 

* V 

IL_PSTR IpszILDATA; 

if (ILTR_VERSION_IS_AT_LEAST(29) ) 

IpszILDATA = ILTR_szUserDir;" 

else 

IpszILDATA = ""; 

TIFSetHistoryDir ( ILTR_szCurWD, IpszILDATA, ILTI F_szHistoryDi r ) ; 

/* 

* Initialize reusable field buffers. 

* v 

rc =» ILUT_InitBuf fer ( &ILTIF_Field, TI F_INITIAL_FIELD_BUF_SIZE, 

TIF_BUF_INC, ILTR_MAX_FIELDLENGTH+1 ); 

if (rc == SUCCESS) 

rc = ILUT_InitBuf fer { &ILTIF_Field2, TIF_INITIAL_FIELD_BUF_SIZE, 

TIF_BUF_INC, ILTR_MAX_FIELDLENGTH+1 ); 

if (rc == SUCCESS} 

ILUT_InitBuf fer ( &ILTIF_Field3, TI F_INITIAL_FIELD_BUF_SIZE, 

TIF BUF INC, ILTR MAX FIELDLENGTH+1 ); 



rc = 



if (rc == SUCCESS) 



rc = 



ILUT_InitBuf fer ( &ILTI F_TmpBuf , TI F_INITIAL_FIELD_BUF_SIZE, 

TIF_BUF_INC, ILTR_MAX_FIELDLENGTH+1 ) ; 



if ((rc == SUCCESS) && ( ILTR_pTmpBuf == NULL) ) 
{ 

// initialize reusable buffer ILTR_pTmpBuf 

ILTR_pTmpBuf = ( ILUT_PBUFFER ) 

IL_ALLOC (sizeof (ILUT_BUFFER) , ILTR_hTmpBuf ) ; 
if (ILTR_pTmpBuf == NULL) 

rc = ILTR_ERR_NOMEM; 
else 

rc = ILUT_InitBuf fer ( I LT R_pTmpBu f , 0, 512, ILTR MAX FIELDLENGTH + 1); 

} 

if (rc != SUCCESS) 
{ 

TIFFreelLTI FBuf f ers (tr ) ; 
return ILERROR ( rc, TIF_ERR_MEM) ; 

} 

// turn off test mode to use TIF in earnest... 

ILTR_pILTIF->bTestMode « FALSE; 

return SUCCESS; 

} // TIFInitStruct 



/* 

* Name: ILTIFHowManyField 

* Purpose: Returns how many fields are currently defined in TIF 

* Input: tr 

* tr struct 

* INumOfFlds 

* Pointer to number of fields defined 

* Return: SUCCESS - If all went well. 

* TI F_ERR_MEM - If there is no global structure 

* INumFields filled in 

* Author: Ken Dobson, Copyright (c) IntelliLink Corporation, 1994 

* Notes: 

+ / 

TIF_DLL_ENTRYPOINT ILTIFHowManyField ( ILTR_PTRANSL tr, 

LONG *pNumOfFlds ) 

( 

if (ILTR_phase == ILTR_PHASE40) 
{ 

// for Phase 40 field mapping applies; don't really 

// want the raw TIF field count... 

UINT uFieldCount = ILFldCount ( t r ) ; 
*pNumOfFlds = (LONG) uFieldCount; 
return SUCCESS; 



Copyright ©1996 Puma Technology, Inc. All Rights Reserved. 



iltif.cpp 



} 

else 

return TI FHowManyField ( &ILTI F_pstTI F, pNumOfFlds); 
} // ILTIFHowManyField 

/* 

* Name: ILTIFGet FieldName 

* Purpose: Returns field name given an index 

* Input: tr 

* tr struct 

* lFldNdx 

* Field index 

* szFldName 

* Buffer for name of field 

* Return: SUCCESS - If all went well. 

* TI F_ERR_MEM - If there is no global structure 

* szFieldName filled in 

* Author: Ken Dobson, Copyright (c) IntelliLink Corporation, 1994 

* Notes: 

* * / 

TIF_DLL_ENTRYPOINT ILTI FGet FieldName { ILTR_PTRANSL tr, 

LONG lFldNdx, 
IL_PSTR szFldName ) 

{ 

int i = (int) lFldNdx; 

// this Phase40 stuff is probably bogus... 

//if (ILTR_phase ILTR_PHASE4 0 ) 
//{ 

// // Get field name and check if mapped 

// int bMapped = ILFldNameBylndex (tr, i, szFldName, ILTR_MAX_FLDNAME ) ; 
// if (bMapped == -1) 
// { 

// IL_MAKE_STRING_NULL ( szFldName ) ; 

// return TI F_ERR_BAD_FLDNAME; 

// } 
// else 

// return SUCCESS; 

//> 

//else 
{ 

int rc = TI FGet FieldName ( &ILTI F_pstTI F, i, szFldName); 
return rc; 

) 

} // ILTI FGet FieldName 
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/* 

* Name: ILTI FDef Field 

* Purpose: Define a field in the TIF database. 



TIF_DLL_ENTRY POINT ILTI FDef Field ( I LTR_PTRANSL tr, 

IL_PSTR szFldName, 
LONG lFldSize, 

char IL_DIST *pFldType, // ptr to 1 char 
IL_PSTR szFormat, 
ILTB_ATTRIB FieldAtt ributes , 
IL_PSTR szDefault ) 

{ 

INT32 extra=0; 

int rc = DefineField ( tr, szFldName, lFldSize, pFldType, szFormat, 

FieldAttributes, &extra, szDefault, TIFJslOTSET ); 

return rc; 
} // ILTIFDef Field 



/* 

* Name: ILTIFDef FieldEx 

* Purpose: Define a field in the TIF database — extended API 



TIF DLL ENTRYPOINT I LTI FDe f FieldEx 
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( ILTR_PTRANSL tr, 
IL_PSTR szFldName, 
LONG lFldSize, 

char IL_DIST *pFldType, // ptr to 1 char 
IL_PSTR szFormat, 
ILTB_ATTRIB FieldAttributes, 

INT32 *pExtraAttributes, // IN: array of 1 or more... 

IL_PSTR szDefault ) 

{ 

int rc = DefineField ( tr, szFldName, lFldSize, pFldType, szFormat, 

FieldAttributes, pExtraAttributes, szDefault, 
TIF_NOTSET ); 

return rc; 
} // ILTIFDef FieldEx 



/ + 

* Name: DefineField 

* Purpose: Define a field in the TIF database internal function 

* + / 

static int DefineField 
{ ILTR_PTRANSL tr, 
IL_PSTR szFldName, 
LONG lFldSize, 

char IL_DIST *pFldType, // ptr to 1 char 
IL_PSTR szFormat, 
ILTB_ATTRIB FieldAttributes, 

INT32 *pExtraAttributes, // IN: array of 1 or more... 

IL_PSTR szDefault, 
ILTR_NDX iltrFieldnum ) 

{ 

int rc; 

char szRelFldName [ I LTR_MAX_FLDNAME ] ; // Name of the relative field 

char szUSFName [ ILTR_MAX_FLDNAME-H1 ] ; // Decorated UNMAPPED Source Field Name 

IL_PSTR IpszFldName; 

BOOLEAN bPositive; 

PSTTI F_TYPE pstTIF; 

TIF_FIELDLIST_PTR pFieldList; 

if (ILTR_pILTIF == NULL) 

return TI F_ERR_PILTI F_IS_NULL; 

pstTIF = &ILTIF_pstTIF; 

if (ILTR_phase != TIF_PreviousILTR Phase) 
{ 

ILTIFlogszul ("\r\n Starting ILTR phase %ld", (UINT32) ILTR_phase); 

TIF_PreviousILTRPhase = ILTR_phase; 

} 

// treat NULL the same as zero-length string* Don't GPF. 

if (pFldType NULL) pFldType = ""; 
if (szFldName == NULL) szFldName = ""; 
if (szDefault == NULL) szDefault = ; 

if ( ILLOG_VERBOSE_ENOUGH ( ILTI FLOG, 40) ) 
{ 

char szBuf [200] ; 

IL_SPRINTF ( szBuf, "ILTIFDef FieldEx. %c. %lx. %081x %s (def aul t=%s ) " , 

pFldType[0], pExt raAttributes [ 0} , FieldAttributes, 
szFldName, szDefault ) ; 

ILTIFlogsz { szBuf ) ; 

} 

int nFieldType; nFieldType = pFldType[0]; 

switch (nFieldType ) 

{ 

case I LX_T Y PE_TEXT : 
case ILX_TYPE_BOOL: 
case ILX_TYPE_DATE: 
case I LX_TY PE_NUMBER : 
case ILX_TYPE_PHONE: 
case I LX_TYPE_TIME : 
case ILX TYPE BINARY: 
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break; 

default : 

return TIF ERR BAD FIELD TYPE; 
) " " 

// make default assumptions about Related Fields... 

IL_MAKE_STRING_NULL ( s zRel FldName } ; 
bPositive = TRUE; 

if (ILTR_phase == ILTR PHASE05 ) 
{ 

/* 

* We are being told about SOURCE APP FIELDS. We handle MAPPED 

* and UNMAPPED source app fields very differently. The MAPPED 

* ones go into a separate Field List. The UNMAPPED ones go 

* into the main field list, prefixed with 'NOl*. 



if (pExtraAttributes [0] & TI FEA_ISNT_MAPPED) 

// .UNMAPPED SOURCE FIELDS are decorated & put in main list 

IL_SPRINTF(szUSFName, T I F_U S FN_ FORMAT , szFldName); 
IpszFldName = szUSFName; // use Decorated Field Name 
pFieldList = TIF_pFieldList ; 

} 

else 
{ 

// MAPPED SOURCE FIELDS go into special list 

IpszFldName =» szFldName; // use un-decorated Field Name 
pFieldList = TIF pSourceFieldList; 

} 

} 

else 
{ 

// ALL Target Fields go into the main list 

pFieldList = TI F_pFieldList ; 

IpszFldName = szFldName; // use un-decorated Field Name 

if { ! ILTR_pI LTI F->bTestMode ) 
{ 

// Get the relative field (Test Mode can't handle this!) 
bPositive = FALSE; 

rc = ILFldAssoc (tr, szFldName, szRelFldName, fibPositive); 

// ignore error here ... it's perfectly normal for this call to fail'' 

// if (nTIFReturn != SUCCESS) 

// return nTIFReturn; 

} 



if (pExtraAttributes [0] & TIFEA ISNT MAPPED) 
{ 

/* 

* Unmapped fields must not be used for reconciliation! ! 

* Turn off Start&End Date/Time attribs because unmapped fields 

* cannot be used for appointment overlap checking. 

FieldAttributes |= I LTB_ATT_NO_RECONCI LE ; 
FieldAttributes &= -( I LTB_ATT_KEY_FI ELD 

I ILTB_ATT_STARTDATETIME 

I ILTB ATT ENDDATETIME ); 



rc = TIFDefineOneField ( pstTIF, pFieldList, 

IpszFldName, 
lFldSize, 
nFieldType, 
sz Format , 
szRelFldName, 
FieldAttributes, 
pExtraAttributes, 
bPositive, 
szDef aul t , 
ilt rFieldnum ) ; 

return rc; 
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} // DefineField 



/* 

* ILTIFDef FieldN 

* Purpose: Define a field in the TIF database by specifying ILTR fieldnum. 

* This function knows all the quirky rules about mapped/unmapped status of 

* various SPECIAL fields, and it knows the difference between 

* ILTRJJNMAPPED BUT TAGGED and ILTR UNMAPPED, 



NOTE: this function replaces ilt rUltrtif • cULTRTIFDef FieldN. 

this function is more powerful than ILTRTI FDef FieldN . 
■*• _ 

TI F_DLL_ENTRY POINT ILTI FDef FieldN // Tell TIF about a field 
( ILTR_PTRANSL tr, 

ILTR_NDX fldnum, // field* in full field list 

INT32 ExtraAttributes ) 



{ 



int rc; 

I LTR_FLDPTR fldlst; 
ILTR_NDX fldmax; 

// Complain if running under a stone age app or engine 

if (ILTR_VERSION_IS_PRrOR_TO (14)) 

return ILERROR ( ILTR_version, ILTR_ERR_STONE_AGE_APP ) ; 

if ( ILTR_direction == ILTR EXPORT } 
{ 

fldlst = ILTR_map.pSource; 

fldmax = I LTR_map . n Source + ILTR pTablelnf o->nExt ra Fields ; 

} 

else 
{ 

fldlst «■ ILTR_map. pTarget; 

fldmax = ILTR_map. nTarget + ILTR pTableInfo->nExt raFields; 

} 

// squawk if caller supplies absurd field number 

if (fldnum < 0 || fldnum >= fldmax) 

return ILERROR ((int) fldnum, TI F_ERR_BAD_ FIELD JJUM) ; 

// don't allow user to tell us whether or not field is mapped 

ExtraAttributes &= - ( TI FEA_IS_MAPPED I TIFEA_ISNT J4APPED) ; 

/* _ 

* For hidden fields we apply special rules. "Vanilla" hidden 

* fields are UNMAPPED, but certain "special" hidden fields are 

* implicitly mapped, even though they are marked UNMAPPED in 
+ the ILTR field list. 

* +/ 

if ( fldlst [ fldnum] .Attribs & ILTB ATT HIDDEN FIELD) 
( " ~ 

if ( (IL_STRINGS_EQUAL{ fldlst [fldnum] .IntName, ILTR_REP_BASIC) ) 

I I (IL_STRINGS_EQUAL( fldlst [fldnum] .IntName, ILTR_REP_XDATE ) ) 

II (IL_STRINGS_EQUAL( fldlst [fldnum] .IntName, I LTR_SUB_TY PE )) 

II (IL_STRINGS_EQUAL{ fldlst [fldnum] .IntName, ILTR_APP_DATA )) ) 
ExtraAttributes |= TI FEA_IS_MAPPED; 
else 

ExtraAttributes |= TIFEA ISNT MAPPED; 

) 

else if ( fldlst [ fldnum] .MapField ILTR UNMAPPED BUT TAGGED) 

/* r__.r 

* Almost everyone in the world is duped into thinking that 

* UNMAPPED_BUT_TAGGED fields are actually MAPPED. But TIF 

* needs to know the truth that such fields are NOT mapped. 

* v 

ExtraAttributes |= TI FEA_ISNT_MAPPED; 

else if ( fldlst [ fldnum] .MapField != ILTRJJNMAPPED) 

// This field is Mapped, pure & simple 

ExtraAttributes |= TIFEA IS MAPPED; 



/ 
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else 
{ 

/* — 

* This field isn't mapped. But maybe it's a combined field 

* and one of its sub-items is mapped... 

*■ i 

BOOLEAN bMapped « FALSE; 
int j; 

for (j = fldnum+1; j < fldmax; 
{ 

// If no mapped sub-items found, the field remains unmapped 

if (fldlst [j ] -ItemNo == 1) 
break; 

// If we find a mapped sub-item, mark the field as mapped 

else if { (fldlst [j ] .MapField !« I LT R_UNMA P PE D ) 

&& ( fldlst [j ] .MapField != ILTR_UNMAPPED_BUT_TAGGED) ) 

{ 

bMapped = TRUE; 
break; 

) 



ExtraAttributes |» (bMapped ? TIFEA IS MAPPED : TIFEA ISNT MAPPED); 



rc = DefineField { tr, 

f ldlst [ f ldnum] . IntName, 
fldlst [fldnumj .Width, 
&f ldlst [ f ldnum] .Type, 
NULL, 

f ldlst [ f ldnum] .Attribs, 
SExtraAt tributes, 
f ldlst [ f ldnum] .TypeDesc, 
f ldnum ) ; 

return rc; 
} // ILTIFDef FieldN 



Name: TI FGet FieldAtt r ibutes 

Purpose: Get parts of a field definition that is stored in the TIF database 
Author: David Boothby, Copyright (c) IntelliLink Corporation, 1995 

NOTE: this function tries to be very clever; be sure it isn't too clever 
for your needs. It tries to get you attribute info about one of 
"YOUR" fields, no matter who YOU are. Depending on what ILTR PHASE 
we're in, and whether Field Mapping is a factor, we may get the 
info from TIF itself, or from ILTR. 



* We always ask TIF first, because it's always possible for translators to 

* define fields in TIF that don't exist in the ILTR field list. 



/ 



int TIFGetFieldAttributes 
( ILTR_PTRANSL tr, 

IL_PSTR szFieldName, // IN: Field Name 

INT32 IL DIST *pMaxLength, // OUT: Max Field size (or 0 for unlimited) 



char IL_DIST *pFieldType, 

ILTB_ATTRIB IL_DIST + pFieldAtt r ibutes , 

IL PSTR szTypeDesc ) 



// OUT 
// OUT 
// OUT 



FldType ( I LX_TY PE_XXX ) 

Field Attribute bits 
copy of szTypeDesc 



int rc; 

char szUSFName [ I LTR_MAX_FLDNAME+ 1 ] ; 
IL_PSTR name; 

BOOLEAN bSourceFieldWanted = ( (ILTR_phase == ILTR_PHASE20 ) 

II (ILTRjphase == ILTR_PHASE4 0 ) ) ; 

if (bSourceFieldWanted) 
{ 



/ 



* Given that TIF's field info is organized according to the TARGET 

* app's field list, looking for attributes of a SOURCE field is a 

* bit tricky. We first look for the decorated name of an UNMAPPED 

* source field. 
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* v 

IL_SPRINTF(szUSFName, T I F_US FN_FORMAT , szFieidName); 

name =» szUSFName; // decorated name for unmapped source field 

> 

else 

// no field mapping issue; just look up undecorated name in TIF 

name = szFieidName; 

TIF_FIELD_DESC_PTR pDefinition; 

rc = TIFLookUpFieldDefinition ( &ILTIF_pstTIF, name, &pDef inition ) ; 

if (rc == SUCCESS) 

{ 

*pMaxLength = pDef inition->MaxLength; 

♦pFieldType = pDef ini tion->FieldType; 

*pFieldAttributes = pDefinition->FieldAtt ributes; 

if (szTypeDesc !- NULL } 

IL_SAFE_STRINGCOPYN ( szTypeDesc, pDef init ion->szDef ault , 

ILTR_MAX_TYPEDESC ); 

} 

else if (rc == TI F_ERR_BAD_FLDNAME ) 
{ 

/* 

* TIF doesn't know about this field, but maybe ILTR does. This 

* is how we get info on MAPPED source fields and UNMAPPED 

* target fields. 

* — — . _ + f 

rc = ILFldTypeEx ( tr, szFieidName, pFieldType, pFieldAtt ributes, 

pMaxLength, szTypeDesc ) ; 

if (rc != SUCCESS) 

rc = TIF_ERR_ILFldTypeEx; 

} 

return rc; 
} // TIFGetFieldAttributes 



/* 

* Name: ILTI FGet FieldAttributes 

* Purpose: Get parts of a field definition that is stored in the TIF database 

* Author: David Boothby, Copyright (c) IntelliLink Corporation, 1995 

* NOTE: this function tries to be very clever; be sure it isn't too clever 

* for your needs. It tries to get you attribute info about one of 

* "YOUR" fields, no matter who YOU are. Depending on what ILTR PHASE 

* we're in, and whether Field Mapping is a factor, we may get the 

* info from TIF itself, or from ILTR. 

* We -always ask TIF first, because it's always possible for translators to 

* define fields in TIF that don't exist in the ILTR field list. 



TIF_DLL_ENTRYPOINT ILTI FGet FieldAttributes 
( ILTR_PTRANSL tr, 

IL_PSTR szFieidName, // IN: Field Name 

INT32 IL_DIST *pMaxLength, // OUT: Max Field size (or 0 for unlimited) 
char IL_DIST *pFieldType, // OUT: FldType ( ILX_TYPE_XXX) 

ILTB_ATTRIB IL_DIST *pFieldAtt ributes ) // OUT: Field Attribute bits 

{ 

if (ILTR_pILTIF == NULL) 

return TI F_ERR_PILTIF_IS_NULL; 

int rc; 

rc = TIFGetFieldAttributes ( tr, szFieidName, pMaxLength, pFieldType, 

pFieldAttributes, NULL ); 

return rc; 
} // ILTIFGetFieldAttributes 



/* 

* Name: . TIFGetTarget FieldAtt ributes 

* Purpose: Get parts of a field definition that is stored in the TIF database 

* Author: David Boothby, Copyright (c) IntelliLink Corporation, 1995 

* NOTE: this function doesn't try to be clever. Just does what it says. 
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int TIFGetTargetFieldAttributes 
( ILTR_PTRANSL tr, 
IL_PSTR FieldName, 

INT32 IL_DIST *pMaxLength, // OUT: Max Field size (or 0 for unlimited) 
char IL_DIST *pFieldType, // OUT : FldType ( ILX_TYPE_XXX) 

ILTB_ATTRlB IL_DIST + pFieldAtt ributes ) // OUT: Field Attribute bits 

{ 

TIF_FIELD_DESC_PTR pDefinition; 

int rc = TIFLookUpFieldDef inition { &ILTI F_pstTI F, FieldName, &pDef ini tion ) ; 

if (rc == SUCCESS) 

{ 

♦pMaxLength = pDef ini t ion->MaxLength ; 
*pFieldType = pDef ini t ion->FieldType; 
♦pFieldAttributes = pDef inition->FieldAttributes; 

} 

return rc; 
} // TIFGetTarget FieldAtt ributes 



/ + 

* Name: 

* Purpose 

* Input: 
+ 

+ 

* Return: 

* Author: 

* Note: 
+ 

+ 



ILTI FFill Fields 

Do a standard fill of the TIF mechanism fields, by calling 
ILTIFDef Field once for every field returned by ILGetField 
tr struct 
bMappedOnly 

Should only mapped fields be added 
bIDNeeded 

Is an ID needed. 
SUCCESS if all went well 

ILTR_ERR_BADMAP field information is inaccessible 

An error value bubbled up from a subfunction call 

Ken Dobson, Copyright (c) IntelliLink Corporation, 1993 

Even if all fields are added only mapped fields are involved 

in reconciliation. If an ID Field is required, then one is 

added, 32 character text no reconciliation. 



/ 



TIF DLL ENTRYPOINT I LTI FFi 11 Fields ( 



ILTR_PTRANSL tr, 
BOOLEAN bMappedOnly, 
BOOLEAN bIDNeeded ) 



int rc = SUCCESS; 

char s z Fid [ I LTR_MAX_FLDNAME ] ; 

ILTR_NDX fldnum; 

ILTR_NDX fldmax; 

I LTR_FLDPTR fldlst; 

INT32 ExtraAttributes; 



// Name of the field 



if ( ILTR_direction == ILTR_EXPORT) 
{ 



fldmax 
fldlst 

} 

else 
{ 

fldmax 
fldlst 

} 



iLTR_map. nSource; 
ILTR map.pSource; 



ILTR_map. nTarget ; 
ILTR_map. pTarget ; 



// Put out any HIDDEN fields first... 

for (fldnum= 0; fldnum < fldmax rc == SUCCESS; fldnum++) 



( 



} 



if ( fldlst [fldnum] .Attribs & ILTB_ATT_HIDDEN_FIELD) 
rc = ILTRTI FDef FieldN (tr, fldnum, 0) ; 



if (rc != SUCCESS) 
return rc; 



// Now put out non-hidden fields... 
for ( f ldnum= 0; fldnum < fldmax && 
{ 



rc -» SUCCESS; fldnum++) 



// skip over any hidden fields on this pass 

if ( fldlst [ fldnum] .Attribs & ILTB ATT HIDDEN FIELD) 
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continue; 

// Get Field Name and Determine whether field is mapped 
int nMapped; 

nMapped = ILFldNameBylndex (tr, fldnum, szFld, si zeof { szFld } } ; 
if (nMapped == FAILURE) 

// we "come here for sub-items in field list; skip them! 

continue; 

// If field is unmapped and we only want MAPPED fields then skip it 
if (! nMapped && bMappedOnly) 
continue; 

rc = ILTRTI FDef Fie ldN (tr, fldnum, 0) ; 

I 

if ( rc == SUCCESS ) 
{ 

ExtraAttributes = TI FEA_IS_MAPPED; 

rc = I LT I FDef Fie Id Ex ( tr, ILTR_SUB_TYPE, 0, 

"N", // ILX_TYPE_NUMBER 

NULL, 

ILTB_ATT_HIDDEN_FIELD | ILTB_ATT_KEY_FIELD, 
&ExtraAttributes, NULL }; 

} 

if (rc == SUCCESS) 

rc = ILTIFStartNextPhase ( tr, TI F_PHASE_DONE_SETTING_THINGS UP); 

return rc; 
} // ILTIFFillFields 

/* 

* Name: ILTI FIni tRecord 

* Create clean slate, ready for 'ILTIFPutField' calls to fill'er up. 

* v 

TIF_DLL_ENTRYPOINT ILTI FIni tRecord ( ILTR PTRANSL tr ) 
{ 

if (ILTR_pILTIF == NULL ) 

return TI F_ERR_PILTI F_IS_NULL; 
else 

{ 

PSTTI F_TY PE pstTIF = & ILTI F_pstTI F; 

int rc = TIFInitRecord (pstTIF, TIF_pFieldList , &TI F_CurrentRecord } ; 
if ( (rc == SUCCESS) 

&& (TIF_phase =*» TI F_PHASE_LOADING_SOURCE_RECORDS ) 
&& (ILTR_phase != ILTR_PHASE_ILX_V3_MODE ) ) 
// Prime the ILX_V4 Source (cache) Record 

rc = TIFInitRecord (pstTIF, TIF_pSourceFieldList, &TI F_SourceRecord ) ; 
return rc; 

} 

} // ILTIFInitRecord 



/* 

* ILTIFPutField: 

* Place data into a field in the current record. This function assumes 

* that character data uses endpoint-specif ic character encodings. Thus 

* all non-binary fields are passed through Character Mapping, which 

* includes mapping endpoint-speci f ic EOL character sequences to 

* ILTR_EOS_CHAR (OxFF). 

* For non-binary fields the value supplied as 'lFldSize' helps make 

* the debugLog look good, but otherwise it is NOT respected. TIF 

* re-computes the Field Length by calling 'strlen'. 

* v 

TIF_DLL_ENTRY POINT ILTIFPutField ( ILTR_PTRANSL tr, 

IL_PSTR FieldName, 
IL_PANY FieldValue, 
LONG FieldLength ) 
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{ 

int rc; 

char szTypeDesc [ ILTR_MAX_TYPEDESC] ; 

char fldtype; 

INT32 maxlen; 

ILTB_ATTRIB attribs = 0; 

BOOLEAN bLength~Guaranteed = FALSE; 

// Get field attributes 

rc = TIFGetFieldAttributes { tr, FieldName, fimaxlen, 

Afldtype, &attribs, szTypeDesc ) ; 

if (rc != SUCCESS) 

return ILERROR_S ( FieldName, TI F_ERR_ABNORMAL ) ; 

/* 

* If this is a TAGGED field, strip tag and put it in _subType field. 

* NOTE: it is illegal for BINARY fields to be TAGGED. 

* NOTE: do nothing if running under a pre-SST stone age app 

* v 

if ((attribs & ILTB_ATT_TAGGED) && ILTR_VERSION_IS_AT_LEAST ( 21 ) ) 
char s zTag [ I LTR_MAX_TAG_LEN ] ; 

unsigned int len = I L_STRLEN ((IL_PSTR) FieldValue); 
rc = ILSST_StripTag ( tr, (IL_PSTR IL_DIST *) SFieldValue, 

&len, szTypeDesc, szTag ); 

if (rc != SUCCESS) 
return rc; 

if ( IL_STRING_ISNT_NULL ( s zTag ) ) 
{ 

rc = ILTIFPut FieldEx2 ( tr, I LTR_SUB_TYPE, 

szTag, IL_STRLEN ( szTag ) , 
TRUE, FALSE, FALSE ); 

if (rc != SUCCESS) 

return ILERROR (rc, TIF ERR ABNORMAL); 

) 

FieldLength = (LONG) len; 
bLengthGuaranteed = TRUE; 

} 

/* 

* When bLengthGuaranteed=FALSE and fieldtype is NOT BINARY, the 

* FieldLength supplied here is eventually supplanted by a 

* computed field length (strlen). 

* v 

rc « I LT I FP'.it Fie Id Ex 2 { tr, FieldName, FieldValue, FieldLength, 

bLengthGua ranteed, 

FALSE, // NOT a special fanning adjustment 
TRUE ); // YES, do Char Mapping if non-binary 

return rc; 
} // ILTIFPutField 



/* 

* Name: ILTI FPut FieldEx 

* Extended version of ILTIFPutField, called from ILTR\ f ldput . c, allows 

* for ' SpecialFanningAdj ustment ' calls and control over Character Mapping. 

* Called from ILTR\ f ldput . c\ I LTRPut Field , with bMapCharsI fNonBinary=FALSE, 

* when char mapping has already been done by the ILTRPutField function. 

* For non-binary fields the value supplied as 'lFldLen' helps make 

* the debugLog look good, but otherwise it is NOT respected. TIF 

* re-computes the Field Length by calling 'strlen'. 

* . _ +/ 

TI F_DLL_ENTRYPOINT ILTIFPut FieldEx 
( ILTR_PTRANSL tr, 
IL_PSTR szFldName, 
IL_PANY pFldData, 
LONG lFldLen, 

BOOLEAN bSpecial FanningAdj ustment , 
BOOLEAN bMapCharsIfNonBinary ) 
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return ILTI FPut Fie IdEx 2 ( tr, szFldName, pFldData, lFldLen, 

FALSE, // bLengthGuaranteed 

bSpecial FanningAdj ustment , 
bMapCharsIfNonBinary }; 

} // ILTI FPutFieldEx 



/* 

+ Name: ILTI FPut Fie ldEx2 

* NOTE: for BINARY fields, TIF always uses ' lFldSize* w/o question. 

* but for non-BINARY fields, TIF normally does an ' strlen* 

* call to compute the length of the field value. However if 

* bLengthGuaranteed==TRUE then TIF uses lFldSize as passed in. 

* Length supplied by caller must be exact; NOT including any 

* NULL terminator. (For non-BINARY fields TIF stores LEN+1 

* bytes of data, where the last byte is a NULL supplied by 

* TIF itself. ) 

* This DLL Entrypoint is now obsolete. ILTIFFN.H no longer lists it. 

* But it will be retained for awhile to avoid nuisance revlocks between 

* TIF DLL and translators build with ILTR libraries including FLDPUT.OBJ 

* from 1/3/96 through 1/19/96. Eventually this can be made into a static 

* ( local ) function . 



extern "C" TI F_DLL_ENTRYPOINT ILTI FPut FieldEx2 
( ILTR_PTRANSL tr, 
IL_PSTR szFldName, 
IL_PANY pFldData, 
LONG lFldSize, 

BOOLEAN bLengthGuaranteed, // see NOTE above 

BOOLEAN bSpecialFanningAdj ustment, 
BOOLEAN bMapCharsIfNonBinary J 

{ 

int rc = SUCCESS; 



// Make sure we have a pointer 
if (ILTR__pILTIF == NULL) 

return TI F_ERR_PILTI F_IS_NULL; 

PSTTI F_TYPE pstTIF; pstTIF = & ILTI F_pstTI F; 

if (bLengthGuaranteed J 

lFldSize |= TI F_LENGTH_GUARANTEED; // 0x40000000 

/* 

* Eventually I hope that all TIF users will make direct calls to 

* ' ILTIFStartNextPhase ' . But for older translators we can do the 

* phase transition implicitly. 

* v 

if ( (ILTR_phase == ILTR_PHASE_ILX_V3_MODE ) 

&& (TIF_phase =*= TI F_PHASE_SETTING THINGS UP) ) 

{ 

rc = TIFStartNextPhase(tr, TIF_PHASE_LOADING_TARGET_RECORDS ) ; 
if (rc != SUCCESS) 

EXIT_WITH_ERROR ( rc ) ; 

} 

// If this is the first field for this record 
if ( (bSpecialFanningAdjustment == FALSE) 
&& (TIF_bNeedPriming TRUE) ) 

{ 

// Prime the Primary Record 

rc = TIFInitRecord (pstTIF, TI F_pFieldList , &TI F__CurrentRecord ) ; 
if ( ( rc == SUCCESS) 

&& (TIF__phase — TI F_PHASE_LOADING_SOURCE_RECORDS ) 

&& (ILTR_phase t= ILTR_PHASE_ILX_V3_MODE ) J 
// Prime the ILX_V4 Source (cache) Record 

rc = TIFInitRecord (pstTIF, TI F_pSourceFieldList , &TI F_SourceRecord ) ; 

if (rc != SUCCESS) 

EXIT WITH ERROR ( rc) ; 
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TIF_bNeedPriming = FALSE; 

} 

if (ILTR_phase != ILTR_PHASE20 } 
{ 

ILUT PBUFFER pRecord; 

if ( bSpecialFanningAdj ustment 

&& (TIF_phase « TI F_PHASE_SANITIZING_SOURC£_RECORDS ) ) 
pRecord = &TI F_OriginalRecord; 
else 

pRecord = &TI F_Cur rentRecord; 

rc = TIFRecordAddFieldValue 
{ pstTIF, 

TIF_pFieldList, 

szFldName, TIF_NOTSET, // specify field by name 
(IL_PSTR) pFldData, 

lFldSize, // length (sometimes ignored for TEXT fields) 

bMapCharsI fNonBinary, 
pRecord ) ; 

} 

else 
f 

/* 

* Caller is trying to load a SOURCE APP field into TIF. First let's 

* see if this is an UNMAPPED source field 

* v 

char szUSFName [ ILTR_MAX_FLDNAME+1 ] ; 
IL_SPRINTF(szUSFName, TI F_USFN_ FORMAT, szFldName); 
TI F_FIELD_DESC_PTR pDefinition; 

rc = TIFLookUpFieldDef inition (pstTIF, szUSFName, SpDef inition ) ; 
if (rc == SUCCESS) 

/* 

* Lookup for decorated fieldname succeeded, so we know this is an 

* UNMAPPED SOURCE APP field that TIF has been told about. 

* Put field value into the Current Record Value struct in TIF. 

* v 

rc = TIFRecordAddFieldValue 
( pstTIF, 

TIF_pFieldList, 

"", pDef inition->FieldNum, // specify field by number 
(IL_PSTR) pFldData, 

lFldSize, // length {sometimes ignored for TEXT fields) 

bMapChars I fNonBinary, 
&TIF_CurrentRecord ); 

else if (rc == TIF_ERR_BAD_FLDNAME) 

/* 

* This is a MAPPED SOURCE APP field, or an unmapped field that TIF 

* hasn't been told about. The latter case will lead to ERROR! ! 

* We used to tolerate that case, but we don't any longer. (10/28/95) 

* Now try to put it in the SOURCE (cache) RECORD. This attempt 

* will fail if fieldname isn't known to TIF. 

* v 

rc = TIFRecordAddFieldValue 
( pstTIF, 

TIF_pSourceFieldList , 

szFldName, TI F_NOTSET, // specify field by name 

(IL_PSTR) pFldData, 

lFldSize, // length (sometimes ignored for TEXT fields) 

bMapChars I fNonBinary, 
&TIF_SourceRecord } ; 

else 

rc =» I LERROR ( rc, TI F_ERR_ABNORMAL ) ; 

) 



Exit : 



if ( ILLOG_VERBOSE_ENOUGH ( I LT I FLOG, 75) ) 

TIFLogPutField (tr, szFldName, (UINT8 *) pFldData, lFldSize, rc); 
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return rc; 
} // ILTI FPut FieldEx2 



/* 

* Name: ILTI FPut Record 

* Purpose: Sometimes Map Fields, and store record in TIF database 

* Input: tr struct 

* Author: David Boothby, Copyright (c) IntelliLink Corporation, 1995 
_ _ _ _ _ _ _ _ _ 

TIF_DLL_ENTRY POINT ILTI FPut Re cord (ILTR PTRANSL tr) 
{ 

int rc; 



if (ILTR_pILTIF == NULL) 

return TI F_ERR_PILTIF_IS_NULL; 

PSTTI F_TYPE pstTIF; pstTIF = & ILTI F_pstTI F; 
TIF_PUT_RECORD_OPTION opt; 

/* 

* When sanitizing a DELETE, it's OK to have an "un-primed" record here. 

* We might want to call TI FInitRecord here, but that might blow away 

* some useful field data. Instead we're relying on TIFGetRecord to 

* do the TIFInitRecord call for us. (grep for 'xrefOOl') 



if ( (TIF_phase == TIF_PHASE_SANITIZING_SOURCE_RECORDS ) 
&& (TIF_CurrentRecordOutcome & ILTI F_OUTCOME_DELETE ) ) 
TI F_bNeedPriming = FALSE; // **xref001** 

/* 

* If the record isn't "primed", we know that no fields have been 

* put into it, so it's just a piece of trash. Don't store it. 

* * 

else if (TIFJoNeedPriming == TRUE) 
return TI F_RECERROR; 

switch (TIF_phase) 
{ 

case TI F_PHASE_LOADING_TARGET_RECORDS : 

opt = TI FPRO_ANALYZE_AND_STORE_NEW_RECORD; 
break; 

case TI F_PHASE_LOADING_SOURCE_RECORDS : 

if (ILTR_phase ILTR_PHASE ILX V3 MODE) 
{ 

/ + 

* The target translator, operating under ILX_V3, is 

* loading source app data, which it reads from ILIF 

* and sanitizes before loading into TIF. 



opt = TIF PRO_ANAL Y Z E_AN D_STORE_N E W_R ECOR D ; 
break; 

} 

else 
{ 

/* 

* The source translator, operating under ILX_V4, is loading 

* data that is subject to Field Mapping. Values for Unmapped 

* Source Fields are already in TI F_Cur rent Record, but 

* values for Mapped .Source Fields are in TI F_SourceRecord . 

* We now do Field Mapping to construct corresponding 

* Target Field Values, which are put into TI F_Cur r en t Record, 
+ then finally we store TIF CurrentRecord . 



rc = TIFPutSourceRecord (tr ) ; 
return rc; 

J 



case T I F_ PHAS E_S AN I T I Z I NG_SOU RCE_RECOR DS : 
/* 
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* The target translator has sanitized all the mapped fields, but 

* it's up to us to preserve all the un-mapped fields!! 

■*r — 

if/ 

rc = TIFCopyUnmappedFields (pstTIF) ; 
if (rc != SUCCESS ) 
return rc; 

// Target Translator is re-loading SOURCE APP data. 

if (TIF_RecordHasBeenPutSinceLastGet ) 
{ 

// looks like source record is being FANNED into TIF; a 

// single source record is begin PUT more than once!! 

// so now we have to add a new TIF record. 

opt = TIFPRO_ANALYZE AND STORE NEW RECORD; 
} ~ " 

else 

{ 

// when sanitizing, handle the first PUT 

// by updating the original source record 

TIF_lCurrentRecNum = TIF_10riginalRecNum; 

opt = TIFPRO_ANALYZE AND UPDATE RECORD; 
} " ~ 

break; 

default : 

return TIF_ERR BAD PHASE FOR PUT RECORD; 
} - - _ 

rc = TIFPutRecord (tr, opt); 

// set the 'Put Since Last Get* flag, which we pay attention to 

// during the 'Sanitizing Source Records' phase of operation 

TI F_RecordHasBeenPutSinceLastGet = TRUE; 

return rc; 
} // ILTIFPutRecord 

/ + 

* Name: ILTI FWriteRecord 

* Purpose: Same as ILTIFPutRecord 
+ 

+ / 

TIF_DLL_ENTRYPOINT ILTI FWriteRecord ( ILTR_PTRANSL tr) 

int rc = ILTIFPutRecord (tr) ; 
return rc; 

} // ILTIFWriteRecord 



/* 

* Name: I LTI FCloneRecord 

* Purpose: Make CurrentRecord be an exact copy of OriginalRecord 
■** _ 

TIF_DLL_ENTRYPOINT ILTIFCloneRecord ( ILTR_PTRANSL tr) 

if (ILTR_pILTIF NULL) 

return TI F_ERR_PILTI F_IS_NULL; 
else 

{ 

PSTTI F_TYPE pstTIF = &ILTIF_pstTI F; 
int rc = TI FCloneRecord (pstTIF); 
TIF_bNeedPriming = FALSE; 
return rc; 

} 

} //- ILTIFCloneRecord 
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/* 

* Name: ILTIFA.CPP (and ILTIF. CPP) 

* Purpose: These 2 modules contain almost all of the public entrypoints 

* into the ILTIF mechanism. 

* Functions {local functions are indented): 



ILTIFStartNextPhase — tell TIF where you're going 

AnalyzeAndResolveConf licts — called by ILTI FEndLoad 
ILTIFEndLoad — invokes conflict resolution 

LogRecord — write "pretty" stuff to XLATE.LOG 
ILTIFSetPositionAboveTopRecord 

* ILTIFTopRecord 

* ILTIFNextRecord 

* ILTI FGotoRecord 

* ILTI FRecordNum 

* ILTI FReadRecord 

* ILTIFReadNextRecord 

* ILTIFReadRecordNum 

ILTIFGetField 

* GetMappedField 

* GetSourceAppField 

* GetFieldGuts 

* ILTIFGetAndCopyField - entrypoint called from ILTR\ fidget . c 

* ILTIFSetDataConv - does nothing 

* ILTI FSet Reconcile - set reconciliation option 

* ILTIFGetOutcome 

* ILTIFRecordAdded 

ILTIFRecordChanged 

* I LT I FRe co rd De 1 e t ed 

* . ILTIFRecordReplaced 

* CreateOneFigMember 

* ILTIFAcceptOutcome 

* ILTIFRejectOutcome 

* MarkFlag2ForAllFIGMembers 

* MarkFlag2ForAllCIGMembers 

* MappedFieldChanged 

* ILTIFFieldChanged 

* ILTI FDump 

* TIFFreelLTI FBuf f ers 

* ILTIFClose shut down ILTIF 

CloseFileTemporarily 

ILTI FCloseFileTemporarily 
ILTI FCloseFilelnitially 
ILTI FReopenFile 
ILTI FBeginStatusBar 
ILTI FBeginStatus 
ILTIFUpdateStatusBar 
ILTIFUpdateStatus 

* ILTIFEndStatusBar 

* ILTI FUnloadToI LI F 

* ILTIFHowManyRecords 

TI FPut Source Record 
ILTI FDontSyncByl D 

* ILTIFFeatureSet 

* ILTI FI temls Recur ring 

* PutAdj ustedDates 

+ MarkAllRecurringCigMembers 

* LogFig 



+ 



ILTIFFanltem 

Fanltem 

FanltemUpdate 

FanltemCigChop 

SetCigType 
ILTI FRemoveRecord 

and STUB versions of the following functions: 

ILCRBegin 
ILCREnd 

Author: Ken Dobson, Copyright (c) IntelliLink Corporation, 1994 
David Boothby, Copyright (c) IntelliLink Corp., 1995 



/ 
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^include "iltr.h" 

^define EXIT_WITH_ERROR ( e ) {rc=e; goto Exit;} 

ffdefine LOG_ERR_AND_EXIT { el , e2) EXIT_WITH_ERROR ( ILERROR ( el , e2 J } 

static int GetFieldGuts { ILTR_PTRANSL tr, 

IL_PSTR szFieldName, 
int nWhich, 

BOOLEAN bMapCharsIfNonBinary, 
LONG *pFieldLength, 
IL_PANY +pFieldValue ); 

static int MapCharsFromIL_IfNonBinary ( ILTR_PTRANSL tr, 

IL_PSTR FieldName, 
ILUT_PBUFFER pField, 
INT32 *pFieldLength ) ; 

static int MarkFlag2ForAllCIGMembers ( ILDFX_PHNDL phFile, INT32 Item, 

INT32 FlagsToSet ); 

static int Fanltem ( ILTR_PTRANSL tr, int maxFanCount ) ; 

static int FanltemUpdate ( PSTTI F_TYPE pstTIF, INT32 *pMaster); 

static int FanltemCigChop ( PSTTI F_TYPE pstTIF, INT32 Updater, 

INT32 Updatee, INT32 Middleman ); 

static void SetCigType ( ILDFX_PHNDL phFile, 

INT32 Item, 
INT32 CigType ) ; 



/ + 

* Name: ILTI FSta rtNext Phase 

* Purpose: Signals completion of previous phase, and start of next 

* Author: David Boothby, Copyright (c} IntelliLink Corporation, 1995 

* v 

TIF_DLL_ENTRYPOINT ILTI FSta rtNext Phase ( ILTR_PTRANSL tr, INT16 phase ) 
( 

if (ILTR_pILTIF NULL) 

return TI F_ERR_PILTI F_IS_NULL; 

if (phase == TI F_PHASE_FANNING_BEFORE_UNLOAD) 
{ 

ILTIFlogsz 

("\r\n 'Fanning Before Unload 1 starts here\r\n"); 

return SUCCESS; 

} 

else if (phase == TI F_PHASE_FINISHED_FANNING_BEFORE UNLOAD) 
{ 

ILTIFlogsz 

( M \r\n 'Fanning Before Unload' completed\ r\n" ) ; 

return SUCCESS; 

} 

else 
{ 

int rc = TIFStartNextPhase ( tr, phase); 
return rc; 

) 

} // ILTIFStartNextPhase 



/ + 

* Name: AnalyzeAndResolveConf 1 icts 

* Called from: ILTI FEndLoad 

* Author: David Boothby, Copyright (c) IntelliLink Corporation, 1995 

* V 

static int AnalyzeAndResolveConf licts ( ILTR_PTRANSL tr) 
{ 

int rc, rc2; 

PSTTI F_TYPE pstTIF = &ILTIF pstTIF; 
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ILTIFlogsz ( "AnalyzeAndResolveConf licts" ) ; 

if (TIF_ReconciliationOption ILX_OPT_NOTI FY ) 
{ 

// Init conflict resolution (ILCR) subsystem 

rc = ILCRBegin( tr, TIF_DLL_InstanceHandle, FALSE }; 

if (rc != SUCCESS) 

return ILERROR ( rc, TIF_ERR_INIT_FAILURE ) ; 

J 



/*- 

* Beyond this point all exit paths must call ILCREnd if Option is NOTIFY. 
* v 



if { ILLOG_VERBOSE_ENOUGH ( ILTI FLOG, 50)) 
{ 

ILTIFlogsz ("\r\n TIF Contents before CAAR : \ r\n" ) ; 

rc = ILTIFDump{ tr ) ; 
if (rc != SUCCESS) 
goto CAAR_EXIT; 

} 



// 

if (ILTR_nSynchronize) 

rc = TIFSynchronization_CAAR (tr); 
else 

rc = TIFSmartMerge CAAR (tr); 



do Conflict Analysis And Resolution 



// NOTE: one possible error here is ILTR_ERR_CANCEL, if user presses 

// the CANCEL button during Interactive Conflict Resolution 

if (rc == ILTR_ERR_CANCEL) 
goto CAAR EXIT; 



i f ( ILLOG_VERBOSE_ENOUGH ( ILTI FLOG, 50 ) ) 
{ 

ILTIFlogsz ("\r\n TIF Contents after CAAR : \ r\ n" ) ; 

rc2 = ILTIFDump{ tr ) ; 

// pass back ILTIFDump error if it won't clobber previous error 

if (rc == SUCCESS) 
rc = rc2; 

) 

CAAR_EXIT: 
// 



if (TIF_ReconciliationOption == ILX_OPT_NOTI FY ) 
{ 

rc2 = ILCREnd (tr, TI F_DLL_InstanceHandle ) ; 
if (rc2 != SUCCESS ) 

// log error but don't pass it back. 

ILERROR (rc2, 0); 

) 

ILTIFlogszul ( "Ana 1 yzeAndResolveConf licts ==> rc=%ld", (UINT32) rc ) ; 
return rc; 



} // AnalyzeAndResolveConf licts 



/ + 

* Name: I LTI FEndLoad 

* Purpose: Signal completed load of TIF and kicks off Conflict Resolution 

* Return: SUCCESS - If all went well. 

* or one of many possible error codes 
+ 

* Author: Ken Dobson, Copyright (c) IntelliLink Corporation, 1994 

* + / 

TIF_DLL_ENTRYPOINT ILTI FEndLoad { ILTR_PTRANSL tr) 
{ 

int rc; 

if (ILTR_pILTIF =~ NULL) 

return TIF ERR PILTIF IS NULL; 
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ILTI Flogsz ( " ILTI FEndLoad" ) ; 

if (ILTR_direction == ILTR_EXPORT) 
{ 

rc = TIFStartNextPhase(tr, TI F_PHASE_UNLOADING_FOR_EXPORT ) ; 
if (rc SUCCESS) return rc; 

> 

else 
{ 

rc = ILTIFStartNextPhase ( tr, TI F_PHASE_CONFLICT_RESOLUTION) ; 
if (rc != SUCCESS } return rc; 

rc = AnalyzeAndResolveConf iicts ( tr ) ; 
if (rc != SUCCESS) return rc; 

/* 

* Start the first UNLOADING phase. This is where the OKToProceeed 

* function may be called. rc=ILTR_ERR_CANCEL if user says no. 

* V 

rc = TI FStartNext Phase (tr, TI F_PHASE_UNLOADING_TO_TARGET ) ; 
if ( rc != SUCCESS) return rc; 



// Get the current number of records in ILTIF 
LONG lNumOf Recs; 

rc = ILTI FHowManyRecords (tr, SlNumOfRecs) ; 
if (rc != SUCCESS) 
return rc; 

if (ILTR_direction == ILTR_EXPORT) 
ILSetRecCount (tr, INumOfRecs); 

/* 

* For Synchronization, put the "Updates To First System:" entry in 

* XLATE.LOG. We could suppress this entry if count==0, but that might 

* confuse people who are accustomed to seeing it. 

* - + 1 

if ( ILTR_nSynchronize } 

if (ILAppendLog (ILTR_hLog, I LTR_hRes , ILTR_MSG_UPDATE_1ST, NULL, NULL)) 
return ILTR_ERR_LOGFILE; 

return SUCCESS; 

} // I LTI FEndLoad 



/ 



+■ 
+ 



Name: LogRecord 

Purpose: imitate logging and record counting done in IMPORT. C of ILTR 
Called by ILTI FNextRecord, for IGNORES, when the 
"bCurrentlyLoggingAndCountingRecords" flag is set 
(that is during the first pass of UNLOADING, but not when 
unloading for EXPORT), and called by ILTI FAcceptOutcome and 
ILTI FRej ectOutcome for other outcomes. 

NOTE: ILTR_lImportRecs is the count that appears in IntelliLink Lite 
in the summary dialog box at the end of a job. 

ILTR_recNum is the count that is recorded in the xlate.log or 
il.log file. When we're running in ILX_V3 mode, this count is 
maintained by ILTR IMPORT. C, but in ILX V4 mode we do it here. 



static int LogRecord ( ILTR_PTRANSL tr) 
{ 

int rc; 

int i; 

int nResID; 

char szFldName ( ILTR_MAX_FLDNAME] ; 
PSTTIF_TYPE pstTIF = & ILTI F_ps tTI F; 



// Return code 

// Loop counter 

// Resource ID 

// Field name 



/ 



INT32 outcome = TIF CurrentRecordOutcome; 



// COMMENTED OUT because we end up with too little information in the log 

// do not log entries for Fanned Instances of Recurring Items 

// if (TIFX IS FANNED INSTANCE (TIF hFile, TIF lCur rent RecNum) ) 
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// return SUCCESS; 

if (outcome TI F_SKI P_FAIL_RANGE ) 
{ 

if (ILTR_phase != ILTR_PHASE_ILX_V3_MODE ) ILTR_recNum++; 

nResID = I LTR_MSG_RANGE ; // ttlmportRecs doesn't count IGNORED items 

} 

else if (outcome & ILTI F_OUTCOME_OBSOLETED) 
{ 

/* 

* We get here when one SOURCE item obsoletes another. TARGET items 

* that are obsoleted never bubble up to this point, because the 

* TIFPositionToNextRecord function filters them out. 



if (ILTR_phase != ILTR_PHASE_ILX_V3_M0DE ) ILTR_recNum++ ; 

nResID =* ILTR_MSG_IGNORE; // fflmportRecs doesn't count OBSOLETED items 

} 

else if (outcome & ILTI FjDUTCOME IGNORE) 
{ 

if (ILTR_phase != ILTR_PHASE_ILX_V3_M0DE ) ILTR_recNum++; 

nResID = ILTR_MSG_IGNORE; // tflmportRecs doesn't count IGNORED items 

} 

else if (outcome 

& ( ILTI F_OUTCOME_LEAVE_ALONE | ILTI F OUTCOME LEAVE DELETED) ) 

{ 

/* 

* LEAVE_ALONE and LEAVE_DELETED records are TARGET APP records. 

* We don't log them and we don't count them. Target items that are 

* NOT left alone are a shadowy presence behind the Source items 

* which UPDATE or REPLACE them. 



return SUCCESS; 
else if (outcome & ILTI F_OUTCOME_ADD) 
ILTR_lImportRecs++; 

if (ILTR_phase != ILTR_PHASE_ILX_V3_M0DE ) ILTR_recNum++ ; 
nResID = ILTR_MSG_ADD; 

else if (outcome & ILTI F_OUTCOME_DELETE ) 

ILTR_lImportRecs++; // not really right to count deletes (?) 

if (ILTR_phase != ILTR_PHASE_ILX_V3_M0DE ) ILTR_recNum++ ; 
nResID = I LTR_MSG_DELETE; 

else if (ouLcome & ILTI F_OUTCOME_UPDATE ) 

ILTR_lImportRecs++; 

if ('ILTR_phase != ILTR_PHASE_ILX_V3_MODE ) ILTR_recNum++; 
nResID = I LTR_MSG_UPDATE; 

else if (outcome & ILTIF_OUTCOME_REPLACE ) 

ILTR_1 rmportRecs++; 

if (ILTR_phase != ILTR_PHASE_I LX_V3_M0DE ) ILTR_recNum++; 
nResID = ILTR_MSG_REPLACE; 

else if (outcome & ILTI F_OUTCOME_FANNED) 

// don't increment any counts (???) 
nResID = ILTR_MSG_FAN; 

else 

// something unexpected, such as outcome==0. May need to change 

// this if we change the rules for when 'LogRecord' is called. 

return TI F_ERR_WEIRD_OUTC0ME; 

IL_PSTR IpszViewField; 

rc = TIFGetViewField ( & ILTI F_ps tTI F, & IpszViewField } ; 
if (rc != SUCCESS) 
return rc; 

if (IpszViewField == NULL) 

LoadStringf TI F_DLL_Inst anceHandle, TI F_STR_UNSPECI FIED, 

ILTR szRecName, MAX MSG ); 
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else 
{ 

IL_SAFE_STRINGCOPY ( ILTR_szRecName, IpszViewField ) ; 
/*--- 

* Truncate the name at end of first line (only relevant to 

* multi-item fields). 
+ j" * f 

IL_PSTR IpMatch = IL_STRSTR ( ILTR_szRecName, ILTR_szLineTerm) ; 
if (IpMatch !~ NULL) 
*lpMatch = 0; 

// Truncate the name at EOS char is it exists. 

IpMatch « IL_STRCHR ( ILTR_szRecName, ILTR_EOS_CHAR ) ; 
if {IpMatch != NULL) 
*lpMatch = 0; 

} 

// Write out log record. 

rc = ILAppendLog (ILTR_hLog, ILTR_hRes , nResID, ILTR_szRecName, NULL); 
if (rc != SUCCESS) 

return I LTR_ERR_LOG FILE; 

// Place field errors in log file. 

for (i = 0; i < ILTR_nFldEr rorNum; 
( 

// Convert internal to external field name. 

if (ILFldlnToEx ( tr, 

ILTR_f IdError [i] .szField, 

szFldName, 

I LT R_MAX_ FL DN AM E ) ) 
IL_STRCPY (szFldName, ILTR_f IdError [ i ]. sz Field ) ; 

// Place next field error in log file. 

if (ILAppendLog ( ILTR_hLog, 

ILTR_hRes, 

I LTR_f IdError [ i J .nError, 
szFldName, 
NULL) ) 
return I LTR_ERR_LOG FILE ; 

) 

return SUCCESS; 
} // LogRecord 

/* 

* Name: ILTIFSet Posit ionAboveTopRecord 

* Purpose: Set Position such that a subsequent ILTI FNextRecord or 

ILTIFReadNextRecord call will get the FIRST record that 

* pertains to the current UNLOADING PHASE. 

* Author: David Boothby, Copyright (c) IntelliLink Corporation, 1995 

* Notes: This function simply sets a global used by ILTI FNextRecord 

* to get the next record in order. 

* NOTE : returns SUCCESS even if there are ZERO records to unload. 

* Note that TIF automatically calls ILTIFSet Posit ionAboveTopRecord at the 

* beginning of each UNLOADING PHASE . 



TI F_DLL_ENTRY POINT ILTIFSetPositionAboveTopRecord (ILTR PTRANSL tr) 
{ 

if (ILTR_pILTIF NULL) 

return TIF_ERR_PILTIF_IS_NULL; 

ILTIFlogsz ( "\r\n ILTIFSetPositionAboveTopRecord "}; 

ILTIF_pstTIF->CurrentRecordNumber = TI F_POSITION_ABOVE_TOP; 
return SUCCESS; ~ 

} // ILTIFSetPositionAboveTopRecord 

/* 

* Name: ILTI FTopRecord 

* Purpose: Goto First record from the TIF. 

* Author: Ken Dobson, Copyright (c) IntelliLink Corporation, 1994 
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* Version 2 Author: David Boothby, 1995 

* NOTE: returns TIF_ERR_EOF if there are ZERO records for the current 

* UNLOADING PHASE . 
*■ 

* Recommendation: do NOT use this function. 

* * use ILTIFSetPositionAboveTopRecord instead. 



extern "C" TI F_DLL_ENTRYPOINT ILTI FTopRecord ( ILTR_PTRANSL tr) ; 
extern "C" TI F_DLL_ENTRYPOINT ILTI FTopRecord (ILTR PTRANSL tr) 
{ 

int rc = ILTIFSetPositionAboveTopRecord ( tr) ; 
if {rc == SUCCESS) 

rc = ILTIFNextRecord(tr) ; // skip forward and log skipped records... 
return rc; 
) // ILTI FTopRecord 



/* 

* Name: ILTIFNextRecord 

* Purpose: Position to next record for current UNLOADING PHASE. 

* and LOG any records that are skipped over (ignored) 

* Recommendation: unless you want to step through TIF, looking only at 

* in-memory Outcome indicators, you should avoid calling 

* this function directly. Use ILTIFReadNextRecord instead. 



TIF_DLL_ENTRYPOINT ILTIFNextRecord (ILTR PTRANSL tr) 
{ 

if (ILTR_pILTIF NULL) 

return TI F_ERR_PILTI F_IS_NULL; 

PSTTI F_TYPE pstTIF; pstTIF = &ILTIF_pstTIF; 

for (;;) // loop until we find something worth processing... 

{ 

// don't let Field Errors carry over from one record to the next 

ILTR_nFldErrorNum = 0; 

int rc = TIFPositionToNextRecord (pstTIF); 

if (rc == TIF_SKIPJTHIS_RECORD f| rc == TIF SKIP FAIL RANGE) 
{ " 

// The unloader is supposed to SKIP this record. 

if (TIF_bCurrentlyLoggingAndCountingRecords == FALSE) 

// not logging, so just keep searching... 

continue; 

// get this record, just for the sake of logging it 

rc = TIFGetRecord ( pstTIF, 

ILTIF_pstTIF->CurrentRecordNumber ) ; 

if (rc == SUCCESS) 

rc = TIFGetOutcome ( pstTIF, 

TI F_CurrentRecordNumber, 
&TI F_CurrentRecordOutcome ) ; 

if ( rc == SUCCESS) 

rc = LogRecord ( t r ) ; 

if (rc != SUCCESS) return rc; // abnormal error 

} 

else 

// we've hit an unskippable record, or an abnormal error... 

return rc; 

) 

} // ILTIFNextRecord 



/ + 

+ Name: I LTI FGo to Record 

* Purpose: Goto a specified record in the TIF, verifying that the 

* specified record exists and pertains to the current UNLOADING 

* PHASE. 

* Author: Ken Dobson, Copyright (c) IntelliLink Corporation, 1994 
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* NOTE: Code that uses ILTIF should not make assumptions about the 

* numbering of TIF records. Record numbers passed to this 

* function should NOT be generated by users of ILTIF; rather 

* the numbers should be gotten by calling ILTI FRecordNum. A 

* typical usage pattern is to do one pass over the TIF, using the 

* [Read^NextRecord to iterate; using ILTI FRecordNum to get 

* record numbers, storing them, maybe filtering or sorting them, 

* then doing a second pass which iterates through the stored 

* record numbers, using ILTI FGotoRecord for positioning. 

* ILTIF users who don't need to do filtering or sorting probably 

* don*t need to use this function at all. 



TIF_DLL_ENTRYPOINT I LTI FGotoRecord ( ILTR_PTRANSL tr, LONG IRecNum) 
{ 

if (ILTR_pILTIF =- NULL) 

return TIF_ERR_PILTIF_IS_NULL; 
else 

{ 

int rc = TIFValidateRecord ( &ILTIF_pstTIF, IRecNum); 
if (rc == SUCCESS) 

ILTIF_pstTIF->CurrentRecordNumber = IRecNum; 

ILTIFlogszulul ( M ** ILTI FGotoRecord Hid ==> rc %ld", 

(UINT32) IRecNum, 
(UINT32) rc ); 

return rc; 

} 

} // ILTI FGotoRecord 



/ + 

* Name: ILTI FRecordNum 

* Purpose: Return the current record number 

* Author: Ken Dobson, Copyright (c) IntelliLink Corporation, 1994 

* v 

TIF_DLL_ENTRYPOINT ILTI FRecordNum ( ILTR_PTRANSL tr, LONG *lRecNum) 
{ 

if { ILTR_pILTI F == NULL) 

return TI F_ERR_PILTIF_IS_NULL; 

*!RecNum ILTI F_pstTI F->Cur rentReco rdNumber ; 

return SUCCESS; 

} // I LTI FRecordNum 



/* 

* Name: ILTI FReadRecord 

* Purpose: Read "current" record from the TIF and log it 

* Author: Ken Dobson, Copyright (c) IntelliLink Corporation, 1994 

* NOTE: Recommendation: do not use this function. 

* use ILTIFReadNextRecord instead. 

* V 

TI F_DLL_ENTRY POINT ILTI FReadRecord (ILTR PTRANSL tr) 

{ 

if (ILTR_pILTIF == NULL) 

return TI F_ERR_PILTI F_IS_NULL; 

int rc; 

PSTTI F_TYPE pstTIF; pstTIF = & ILTI F_pstTI F; 

/* 

* For older code, which may use this function for the first call in 

* an UNLOADING PHASE, we need to position forward before reading. 

* This makes the first ReadRecord call behave like ReadNextRecord . 

* * / 

if {TIF_CurrentRecordNumber == TIF_POSITION ABOVE TOP) 
{ 

rc = ILTIFNextRecord ( tr } ; // skip forward and log any skipped records 
if (rc != SUCCESS) 
return rc; 
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I 

rc = TIFGetRecord (pstTIF, TI F_Cur rentRecordNumber } ; 
If (rc != SUCCESS) 
return rc; 

rc = TIFGetOutcome ( pstTIF, 

TIF_Cur rentRecordNumber, 
&TI F_CurrentRecordOutcome ); 

if (rc SUCCESS) 
return rc; 

if ( ILLOG_VERBOSE_ENOUGH ( I LTI FLOG, 60)) 
{ 

char szBuf[60], szBuf 2 [ 100] ; 

IL_SPRINTF( szBuf, " Record Hid [Ud, Ud] was read", 

TIF_Cur rentRecordNumber, 
TIF_lCurrentRecNum, 
TIF_10riginalRecNum ); 

if ( (TIF_phase == TIF_PHASE_UNLOADING_TO_TARGET ) 
I I (TIF_phase == TIF_PHASE_UNLOADING_TO_SOURCE ) 
I | (TIF_phase TI F_PHASE_UNLOADING TO HISTORY) ) 
{ ~ ~ 

INT32 Outcome = TI F_Cu r rent RecordOut come; 
IL_PSTR IpszOutcome; 
IL_PSTR IpszAck; 

if (Outcome & I LTI F_OUTCOME_LEAVE_DELETED) 

IpszOutcome = "LeaveDeleted"; 
else if (Outcome & I LTI F_OUTCOME_LEAVE_ALONE } 

IpszOutcome = "LeaveAlone" ; 
else if (Outcome & I LTI F_OUTCOME_ADD ) 

IpszOutcome = "Add"; 
else if (Outcome & I LTI F_OUTCOME_DELETE ) 

IpszOutcome ~ "Delete"; 
else if (Outcome & ILTI F_OUTCOME_RE PLACE ) 

IpszOutcome = "Replace"; 
else if (Outcome & ILTI F_OUTCOME_UPDATE ) 

IpszOutcome «= "Update"; 
else if (Outcome & I LTI F_OUTCOME_IGNORE ) 

IpszOutcome = "Ignore"; 
else if (Outcome & I LTI F_OUTCOME_OBSOLETED ) 

IpszOutcome = "Obsoleted"; 
else 

IpszOutcome = "???bad???"; 

if (Outcome & ILTI F_OUTCOME_DELTA_ACK) 

IpszAck = "/ Delta ACK"; 
else 

IpszAck = ""; 

IL_SPRINTF (szBuf2, "%s, outcome=%s%s" f szBuf, IpszOutcome, IpszAck); 
ILTIFlogsz (szBuf2) ; 

} 

else 

ILTIFlogsz (szBuf) ; 

} 

// clear the 'Put Since Last Get 1 flag, which we pay attention to 

// during the 'Sanitizing Source Records' phase of operation 

TIF_RecordHasBeenPutSinceLastGet = FALSE; 

return rc; 
} // ILTIFReadRecord 



/* 

* Name: ILTI FReadNext Record 

* Purpose: Goto next record from the TIF and read it and log it 

* Author: Ken Dobson, Copyright (c) IntelliLink Corporation, 1994 

* A typical read iteration loop might look like this: 
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* ILTI FSet PositionAboveTopRecord ( t r ) 
for (;;> 

{ 

* rc = ILTFReadNextRecord ( tr ) ; 

* if (rc != SUCCESS) break; // could be TIF_ERR_EOF 

* ...use tTie record... 
} 

+ Note that TIF automatically calls ILTI FSet Posit ionAboveTopRecord at the 

* beginning of each UNLOADING PHASE. 

* v 

TIF_DLL_ENTRYPOINT ILTI FReadNext Re cord ( ILTR_PTRANSL tr) 
{ 

int rc = ILTIFNextRecord(tr) ; // skip forward and log skipped records 
if {rc == SUCCESS) 

rc = ILTIFReadRecord(tr) ; 
return rc; 

} // ILTIFReadNextRecord 



/* 

* Name: ILTI FReadRecordNum 

* Purpose: Goto specified record from the TIF and read it. 

* Author: Ken Dobson, Copyright (c) IntelliLink Corporation, 1994 

* V 

TIF_DLL_ENTRYPOINT ILTI FReadRecordNum ( ILTR_PTRANSL tr, LONG IRecNum) 
{ 

int rc » ILTIFGotoRecord (tr, IRecNum); 
if (rc == SUCCESS) 

rc = ILTIFReadRecord ( tr ) ; // read and maybe log 

return rc; 

} // ILTIFReadRecordNum 



+ 



Name : 



ILTIFGetField 



Purpose: Get field value for given field, into a buffer owned by TIF, and 

return Length == STRLEN ( text ) +1 for text fields, or "Exact Length" 
for binary fields. Field values are NOT truncated. 

NOTE: see enormous essay at top of this module for description of the 
4 distinct scenarios where this function is called. 



* Inputs: tr 



Return : 



* Author: 
+ 



Global tr struct 
szFldName 

Field name to get data from 
nWhich 

Which data is required: 

TIF_ORIGINAL - For original data 
TIF_CURRENT - For current data 
TIF_AUTO - To automatically determine 

SUCCESS - If all went well. 

TIF_ERR_MEM ~.If there was a memory problem. 

lField, hField, and pField are updated 

■David Boothby, Copyright (c) IntelliLink Corporation, 1995 



/ 



TIF DLL ENTRY POINT ILTIFGetField ( 



I LTR_PTRANSL tr, 
IL_PSTR szFieldName, 
int nWhich, 
LONG *pFieldLength, 
IL PANY *pFieldValue ) 



int rc; 

if (ILTR_pILTIF == NULL) 

return TIF ERR PILTIF IS NULL; 



rc = GetFieldGuts ( tr, szFieldName, nWhich, 

TRUE, // Yes, do character mapping for text fields 
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pFieldLength, pFieldValue ); 

if (rc ! = SUCCESS) 
goto Exit; 

/* 

* Now we may want to add an SST tag to the data, if all signals are GO. 

* r */ 

// if runn i n g under a pre-SST stone age app, do nothing 

if { ILTR_VERSI0N_IS_PRI0R_T0(21 ) ) 
goto Exit; 

// If we « re NOT importing into a MAIN section, do nothing 

if (ILTR_TargetSST != ILX_SUBSECT_MAIN ) 
goto Exit; 

// jf TAGGING is disabled, do nothing 

if (ILTR_Flags & ILTR_DISABLE_SST_TAGGING) 
goto Exit; 

char szTypeDesc [ I LTR_MAX_TYPEDESC ] ; 
char fldtype; 
INT32 maxlen; 
ILTB_ATTRIB attribs; 

// Get fi e id attributes 

rc = TIFGetFieldAttributes ( tr, szFieldName, fimaxlen, 

&fldtype, Sattribs, szTypeDesc ); 

if (rc != SUCCESS) 
{ 

rc = ILERROR_S ( szFieldName, TI F_ERR_ABNORMAL ) ; 
goto Exit; 

} 

// th i s i sn t t a TAGGED field, do nothing 

if ((attribs & ILTB_ATT_TAGGED) == 0) 
goto Exit; 

PSTTI F_TYPE pstTIF; pstTIF = & ILTI F_pstTI F; 

if (TIF_FieldOf fset ( TI F_pCurrentRecord , TIF_SubTypeFieldNum) == TIFNOTSET) 

rc = TIF_ERR_NO_SUBTYPE_VALUE; 
goto Exit; 

} 

IL_PSTR pTag; 

pTag = TIF_FieldData ( TI F_pCurrentRecord, TIF_SubTypeFieldNum) ; 

// if subtype is zero ( ILX_SUBSECT_MAIN ) do nothing 

if ( IL_STRINGS_EQUAL (pTag, "0")) 
goto Exit; 

rc = ILSST_AddTag ( tr, ILTR_MAX_FIELDLENGTH+1 , pFieldLength, 

(IL_PSTR IL_DIST *> pFieldValue, 
pTag, szTypeDesc ); 

Exit : 

if ( I LLOG_VERBOSE_ENOUGH (ILTI FLOG, 75) ) 

TIFLogGetFieldt tr, "ILTI FGet Field", szFieldName, nWhich, 

(UINT8 *) +pFieldValue, +pFieldLength, rc); 

return rc; 
} // ILTIFGetField 



/* 

* Name: GetMappedField 

* Purpose: Use ILTR ' ILFldGetEx ' function to do Field Mapping to get a 

field value. Use the ILTI F_Field2 buffer, expanding it as 

* necessary. Return length according to TIF convention: for 

* binary fields return exact length; for non-binary fields 

* return length including trailing NULL. 

* Note that ILTIF_Field2 is a reusable buffer, initialized by 
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* TIFInitStruct and freed by ILTIFClose. 

* Called by GetSourceAppField in Phase40 (unloading into source app) . 

* For this call nWhich == TI FJMESTED_CALL and the caller 

* wants us to construct a Source Field Value. 

* Called by TIFPutSourceRecord in Phase20 (loading from source app} 

* For this call nWhich == TI F_SOURCE_CACHE and the caller 

* wants us to construct a Target Field Value. 

* Author: David Boothby, Copyright (c> IntelliLink Corporation, 1995 

* v 

static int GetMappedField ( ILTR_PTRANSL tr, 

IL_PSTR szFieldName, 
int nWhich, 

BOOLEAN bMapCharsIfNonBinary, 
LONG *pFieldLength, 
IL_PANY *pFieldValue ) 

{ 

int rc; 

unsigned int uLen; 
char FieldType; 
ILTB_ATTRIB FieldAt t ributes ; 
INT32 MaxLength; 



if (nWhich == TI F_SOURCE_CACHE ) 

// get field type for SOURCE field 

rc = ILFldTypelnvertedLookup ( tr, szFieldName, &FieldType, 

& FieldAt tributes, 
&MaxLength, NULL ); 

else 



// get field type for TARGET field 

rc « ILFldTypeEx ( tr, szFieldName, &FieldType, & FieldAtt ributes , 

&MaxLength, NULL ); 

if (rc != SUCCESS) 

// if we can't get field attributes it must be a bad fieldname 

return TIF_ERR_BAD_FLDNAME; 

// field data, grow field buffer as needed, up to maximum 

for ( ; ; ) 
{ 

uLen = (unsigned int) ( ILTI F_Field2 . lBufSize - 2); 

rc = ILFldGetEx ( tr, szFieldName, nWhich, bMapCharsIfNonBinary, 

(IL_PSTR) ILTIF_Field2.pBuffer, SuLen ); 
if (rc != ILTR_ERR_TRUNC) 

break; // success or non-truncation error 

// if buffersize is maxed out, and we still get truncation, give up 

if ( ILTIF_Field2. lBufSize == ILTI F_Field2 . IMaxSize ) 
break; 

/ + 

* Increase buffer size, but don't exceed maximum. 

* The ILUT Buffer mechanism enforces the maximum buffer size for us. 
+ / 

rc = I LUT_Get Buf f er ( &ILTIF_Field2, ILTI F_Field2 . lBuf Size + TI F_BU F_INC ) ; 
if ((rc != SUCCESS) && ( rc != I LUT_ERR_SETTLE_FOR_LESS ) ) 
return ILERROR ( rc, TIF ERR MEM); 



switch (rc) 
{ 

case SUCCESS: 

case I LTR_ERR_NODATA: 

case I LTR_ERR_NOT MAPPED: 

case ILTR_ERR_NOFLD: break; // non-errors 

def aul t : 



ILTIFlogszszul 

( "ILFldGetEx call, from TIF, for field ' %s • , got error %ld". 
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szFieldName, (UINT32) rc ) ; 

// IGNORE truncation error, but bomb out on serious errors 

if (rc != ILTR_ERR_TRUNC) 
return rc; 

if (FieldType == ILX_TYPE_BINARY ) 

♦pFieldLength = (LONG) uLen; 
else 

// not binary, so increase length to allow for null terminator 

^pFieldLength = (LONG) uLen + 1; 

♦pFieldValue = ILTIF_Field2 .pBuf fer; 
return SUCCESS; 

} // GetMappedField 



/* 

* GetSourceAppField: 

* This function is called by GetFieldGuts when we are unloading 

* TIF data into the SOURCE APP, so we are 

* being asked to supply values for SOURCE APP fields. Since 

* the TIF database consists primarily of TARGET APP fields, 

* we may need to do Field Mapping. But first let's see whether 

* the requested field is one of these weirdo unmapped source fields. 

* We create a decorated unmapped source field name, and try to get it 

* from the ORIGINAL SOURCE record. If that fails with error 

* TIF_ERR_BAD_FLDNAME, then we know that the requested field is NOT 

* an unmapped field that TIF knows about. It is either a mapped 

* field, or an unmapped field that TIF doesn't know about. In either 

* case we then try field mapping. . . 

■*■ 

* NOTE: this function should always do character mapping. 

"V _ _ 

static int GetSourceAppField ( ILTR_PTRANSL tr, 

IL_PSTR szFieldName, 

LONG *pFieldLength, 
^ I L_PANY *pFieldValue ) 

int rc; 

/* 

* First guess it's an unmapped source field, try to get its value 
* v 

char szUSFName [ ILTR_MAX_FLDNAME+1 ] ; 

IL_SPRINTF(szUSFName, T I F_U S FN_ FORMAT , szFieldName); 

rc = TIFGetField ( & ILTI F_pstTI F, 

szUSFName, 
TIFjDRIGINAL, 
pFieldLength, 
& ILTI F_Field ); 

if (rc != TIF_ERR_BAD_FLDNAME) 
{ 

// either we have succeeded, or we've hit a bad error... 

if ( rc -= SUCCESS) 

rc = MapCharsFromIL_IfNonBinary ( tr, szFieldName, & ILTI F_Field, 

pFieldLength ); 

*pFieldValue « ILTIF Field . pBuf fer; 

} 

else 
{ 

/ + 

* It turned out not to be an unmapped source field, so now we 

* try Field Mapping... 

+ — 

rc « GetMappedField ( tr, szFieldName, TIF_NESTED_CALL, 

TRUE, // YES, do character mapping 

pFieldLength, pFieldValue ); 
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// pass back a civilized error code for bad field name 

if ( rc == TIF_ERR_BAD_FLDNAME) 
return rc; 

// complain bitterly about any other error 

else if (rc~!=* SUCCESS) 

return ILERROR ( rc, TIF ERR ABNORMAL); 
} " " 

/* _„__ 

* Now it would be nice to honor the 'Value Required' attribute here, 

* but right now we could only do that for UNMAPPED source fields. 

* Eventually we'll build the mechanism to do it for mapped fields too. 
+ + ^ 

//if ( (rc == SUCCESS) 

// && ( *pFieldLength <= 1) 

// && ( FieldAtt ributes & ILTB ATT VAL REQUIRED) ) 
//{ - - - 

// rc = GetDefaultValue ( ) ; 
//) 

return rc; 
} // GetSourceAppField 



/* 

* GetFieldGuts 



called by ILTIFGet Field and by ILTI FGet AndCopyField 

+ / 

static int GetFieldGuts ( I LTR_PTRANSL tr, * 

IL_PSTR szFieldName, 
int nWhich, 

BOOLEAN bMapCharsIfNonBinary, 
LONG *pFieldLength, 
IL PANY +pFieldValue ) 

{ 

int rc; 

PSTTIF_TYPE pstTIF = & I LTI F_pstTI F; 

/* 

* Set default field value — a zero-length string — which is 

* what callers expect to see whenever any error is encountered. 
+ _„ _ 

static IL_PSTR z = ""; 
*pFieldValue = z; 
*pFieldLength = 0; 

if ( (ILTR_Flags & I LTR_FLAG_ FANNING } 

&& ( IL_STRINGS_EQUAL( szFieldName, ILTR_REP_BASIC ) 

I I IL_STRINGS_EQUAL( szFieldName, ILTR REP XDATE) ) ) 

/* r z 

* We're in the middle of a FANNING operation, so we want the 

* user to see NULL values for REPEAT pattern and exclusions list. 
*■ _„ 

#/ 

return SUCCESS; 

else if (ILTR_phase == ILTR PHASE20) 

{ ■ ~ 

/* 

* We're in the middle of LOADING SOURCE APP data into TIF. The caller 

* specifies a SOURCE APP field name. If the field is mapped, we find 

* the value in the SOURCE CACHE. Otherwise we look for the decorated 

* USFName (Unmapped Source Field Name) in the Target Field List. 

* There are several ways to get here. Calls in i It r\ export . c and 

* iltr\sst.c to ILTRGetField end up here. Also when export calls 

* ILTIFPutRecord, that calls TIFPutSourceRecord, which calls 

* GetMappedField for each mapped source field. 
*■ 

* We never do character mapping here. 

f 

rc = TIFGetField ( pstTIF, 

szFieldName, 



Copyright ©1996 Puma Technology, Inc. All Rights Reserved. 



A 



iltifa.cpp 



Page 15 of 47 



TIF_SOURCE_CACHE, 

pFieldLength, 

& ILTI F_Field3 ); 

// |f no sucn field in source cache, maybe it's an unmapped field 

if (rc == TIF_ERR_BAD_FLDNAME) 
{ 

char szUSFName [ ILTR_MAX_FLDNAME+1 J ; 

IL_SPRINTF(szUSFName, T I F_US FN_ FORMAT, szFieldName); 

rc = TIFGetField ( pstTIF, 

szUSFName, 
TIF_CURRENT, 
pFieldLength, 
&ILTI F_Field3 ); 

} 

*pFieldValue = ILTI F_Field3 . pBu f f er ; 
return rc; 

} 

else if ( (ILTR_phase == ILTR_PHASE4 0 ) 
&& (nWhich != TIF_NESTED_CALL) 
&& (nWhich != T I F_ FAN N I N G_A D J ) ) 

{ 

/* 

* We are unloading TIF data into the SOURCE APP, so we are 

* being asked to supply values for SOURCE APP fields. We may either 

* read an UNMAPPED source value from TIF, or call ILTR ILFldGetEx 

* to invoke Field Mapping, which may result in 1 or more NESTED 

* calls back to I LTI FGetAndCopyField ! ! ! 

* Store "nWhich" for use in nested call... 

* We always do character mapping here. 

* V 

TIF_nWhich = nWhich; 

rc = GetSourceAppField(tr, szFieldName, pFieldLength, pFieldVa lue ) ; 
return rc; 

} 

else 
{ 

/* 

* We're in scenario (i) or (iv), as described in the essay at the 

* top of this module. We're very simply looking for a Target App 

* Field, with no possibility of Field Mapping or other weirdness. 



if (nWhich == TI F_NESTED_CALL) 

// recall original "nWhich" option 

nWhich = TIF_nWhich; 

rc = TIFGetField ( pstTIF, 

szFieldName, 
nWhich, 
pFieldLength, 
& ILTI F_Field ); 

/* 

* Now do character mapping if requested and field is non-binary 
■*• 

if ((rc SUCCESS) && bMapCha rsl f NonBina ry ) 

rc = MapCharsFromIL_IfNonBinary ( tr, szFieldName, &ILTI F_Field, 

pFieldLength ) ; 

/* 

* Always return buffer pointer. We have to allow for callers who 

* disregard a nonzero return code & de-reference the pointer 

*■ 

♦pFieldValue = ILTI F_Field . pBu f f er ; 
return rc; 

) 

} // GetFieldGuts 
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* MapCharsFromIL_I fNon Binary 

* v 

static int MapCha rs FromI L_I f NonBina ry ( I LTR_PTRANSL tr, 

IL_PSTR FieldName, 
ILUT_PBU FFER pFieid, 
INT32 *pFieldLength ) 

{ 

int rc; 

char FieidType; 
ILTB_ATTRIB FieldAtt ributes; 
INT32 MaxLength; 
IL_PSTR IpszLineTerm; 

rc = ILTI FGet FieldAtt ributes ( tr, FieldName, &MaxLength, 

&FieldType, & FieldAtt ributes ); 

if (rc != SUCCESS) 

return ILERROR_S (FieldName, TI F_ERR_ABNORMAL) ; 

if (FieidType == I LX_TYPE_BINARY } 
return SUCCESS; 

// Replace IntelliLink EOS chars with app-specific line terminators 

if ( FieldAttributes & ILTB_ATT_MULTLINE } 
IpszLineTerm = ILTR_szLineTerm; 

// Replace line terminators with spaces in non-multi-line fields. 

else 

IpszLineTerm = ILTR_SPACE_STR; 

/ + 

* Do character mapping, and put result string is ILTR_pTmpBuf . 

* ILTR_pTmpBuf is managed as a reusable buffer 

* to minimize heap activity 

* — _ — * i 

rc = ILMapChars ( (IL_PSTR) pField->pBuf f er , 

IL_STRLEN( (IL_PSTR) ( pField->pBu f f er ) ) , 

ILTR_EOS_STR, // old line terminator ( " \ x FF" ) 

IpszLineTerm, // new line terminator (e.g. "\r\n") 

ILTR_sImportCha rMap. buf f er, 

ILTR_MAX_FIELDLENGTH, 

ILTR_pTmpBuf } ; 

if (rc ! = SUCCESS) 

return ILERROR (rc, TI F_ERR_ABNORMAL } ; 

*pFieldLength = IL_STRLEN ((IL_PSTR) { ILTR_pTmpBuf ->pBu f f er } ) + 1; 

/* 

* Make sure I LTI F_Field buffer is big enough. 

+ — — — — + 1 

rc = ILUT_GetBuf f er (pFieid, *pFieldLength ) ; 
if (rc != SUCCESS) 

return ILERROR_L ( *pFieldLength, TI F_ERR_MEM ) ; 

/* 

* Copy converted string from ILTR_pTmpBuf back into ILTI F_Field . 
* *- J 

I L_MEMCPY { pField->pBuf fer, 

ILTR_pTmpBuf->pBuf fer, 
(size_t) *pFieldLength ) ; 

return SUCCESS; 

} // MapCharsFromIL IfNonBinary 



/ + 

* ILTIFGetAndCopyField : 

* called by the GetField function in ILTR\ fidget . c 

* Get field value for given field and copy it into the caller's buffer. 

* Return Length == STRLEN (text ) (NOT STRLEN ( ) +1 ) for text fields, 

* or "Exact Length" for binary fields. Field values ARE truncated as 

* necessary, and ILTR_ERR_TRUNC error is returned when that happens. 

* {Called from within the I LTR\ fidget. c\ Get Field function.) 
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NOTE: For text, the IN value of *pLength is max size INCLUDING null 
terminator, but the OUT value of v pLength is STRLEN ( text ) 
— not including null. 

So to GetAndCopy the value "1995", you must supply *pLength >= 5, 
and when the call completes you'll have *pLength == 4. 



TI F_DLL_ENTRY POINT ILTI FGet AndCopyField 



7 



( I LTR_PTRANSL tr, 
IL_PSTR FieldName, 
int nWhich, 
INT32 *pLength, 
IL PANY *pBuffer ) 



// Field Name 

// Current or original 

// IN=MAX / OUT=ACTUAL length of value 

// Buffer for the field data 



int rc; 

I L_PANY pvData = NULL; 
INT32 FullLength = 0; 



if (ILTR_pILTIF == NULL) 

return TI F_ERR_PILTI F_IS_NULL; 

/* 

* Get field value. For TEXT, FullLength includes NULL. 
— 

rc = GetFieldGuts ( tr, FieldName, nWhich, 

FALSE, // don't do character mapping 
&FullLength, fipvData); 



if ( ILLOG_VERBOSE_ENOUGH (ILTI FLOG, 98)) 

TIFLogGetFieldt tr, " ILTI FGetAndCopyField" , FieldName, nWhich, 

{ UINT8 *) pvData, FullLength, rc ); 

if (rc != SUCCESS) 
return rc; 

/* 

* For zero-length values take the easy way out... 

* 1f/ 

if (FullLength == 0) 
{ 

*pLength = 0; 

IL_MAKE_STRING_NULL( (IL_PSTR) pBuffer) ; 
return SUCCESS; 

} 

/* 

* Figure out if we need to truncate, and copy what we can 

* *■ i 

size_t RawCopyLength; 

if (FullLength > *pLength) 
{ 

RawCopyLength = (size_t) *pLength; 
rc = I LTR_ERR_TRUNC; 

} 

else 
{ 

RawCopyLength = (size_t) FullLength; 
rc o SUCCESS; 

} 

IL_MEMCPY (pBuffer, pvData, RawCopyLength); 

/ + 

* Now we need to know whether the field is binary or not, because 

* that tells us whether to null-terminate and what length to return. 
*■ * f 

INT32 maxlen; 
char FieldType; 
ILTB_ATTRIB FieldAtt ribut es; 
int rc2; 



/ + 

* For un-nested calls we rely on the standard wisdom to look in the 

* right place for the field type. But when we're handling a nested 
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* call, the field type we're looking for is in the opposite place 

* from where we normally expect to find it... 
+ _ 

+ / 

if (nWhich TIF_NESTED CALL} 
{ 

rc2 = ILFldTypelnvertedLookup ( tr, FieldName, 

&FieldType, 
& FieldAttributes, 
Smaxlen, NULL } ; 

if (rc2 ! = SUCCESS) 

rc2 = TIF_ERR_ILFldTypeInvertedLookup; 

else if {nWhich == TI F_FANNING_ADJ ) 

rc2 = TIFGetTargetFieldAttributes ( tr, FieldName, imaxlen, SFieldType, 

SFieldAttributes ); 

else 

rc2 = ILTIFGetFieldAttributes ( tr, FieldName, &maxlen, &FieldType, 

&FieldAttributes ); 

if {rc2 != SUCCESS) 
{ 

/* 

* Inability to get field attributes is an error which we want to 

* complain about, but just in case caller ignores return code we 

* make the most conservative assumption (to set up length and 

* value assuming the field contains null-terminated text). 



+ 

FieldType = I LX_TY PE_TEXT ; 

rc = rc2; // this error masks any previous error 

} 

if (FieldType =»« I LX_TYPE_BINARY ) 

// for binary fields, simply return exact length 

*pLength = RawCopyLength; 
else 

{ 

/ + 

* Do null-termination and return length for text 



/ 



*pLength = RawCopyLength - 1; 

((IL_PSTR) pBuffer) [ RawCopyLength-1 ] = 0; 

} 

return rc; 
} // ILTIFGetAndCopyField 

/* 

* Name: I LTI FSet Da t a Con v 

* Purpose: Set the data translation option (NO-OP; unused!!) 



7 



. +■ 



TIF_DLL_ENTRY POINT ILTI FSet DataConv ( I LTR_PTRANSL tr, int nOption) 

return SUCCESS; 
} // ILTIFSetDataConv 



/ 



/* 

* Name: ILTIFSetReconcile 

* Purpose: Set the reconciliation option for TIF mechanism 

* NOTE: this is an archaic function, but it's still used. 

* The old guts of this function have been moved into 

* the ' AnalyzeAndResolveConf licts ' function. 
* _ _ _ 

TI F_DLL_ENTRY POINT ILTIFSetReconcile ( I LTR_PTRANSL tr, int nOption} 
irvt rc = SUCCESS; 

if ( ILTR_pILTI F == NULL} 

return TI F_ERR_PILTI F_IS_NULL; 

ILLOG_logszul ( ILTI FLOG, I LLOG_TINY_STEP, 

"ILTIFSetReconcile %ld", (UINT32) nOption ); 
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/* 

* Eventually I hope that all TIF users will make direct calls to 

* ' ILTIFStartNext Phase ' . But for older translators we can do the 

* phase transition implicitly. 



if ( (ILTR_phase ILTR_PHASE_ILX_V3_M0DE ) 
&& (ILTR_direction == ILTR_IMPORT) ) 

( 

rc = TIFStartNextPhase(tr, TI F_PHASE_LOADING_SOURCE_RECORDS } ; 
if (rc != SUCCESS } return rc; 

} 

return rc; 
} // ILTIFSetReconcile 



* Record Outcome Functions: 

* These functions are used, during an UNLOADING PHASE, to get the 

* OUTCOME flags for a given record. The 'GetOutcome' 

* function returns a long word full of flag bits; the other 

* functions in this group call 'GetOutcome*, then check 

* for various bit flags in the flag word. 

* Functions are: 

* ILTIFGetOutcome 

* ILTIFRecordAdded 

* ILTIFRecordChanged 

* ILTIFRecordDeleted 

* ILTIFRecordReplaced 

* ILTIFFieldChanged 

* All of the Record-level functions work from in-memory TIF 

* knowledge, so they need not be preceded by a ReadRecord call. 

* Unlike the Record-level functions, the ILTIFFieldChanged function 

* must be preceded by a ReadRecord call. 

* v 

TIF_DLL_ENTRYPOINT ILTIFGetOutcome 

( ILTR_PTRANSL tr, INT32 IL_DIST *pOutcome ) 

{ 

if ( I LTR_pILTI F == NULL) 

return TI F_ERR_PILTI F_IS_NULL; 
else 
{ 

int rc = TIFGetOutcome ( & ILTI F_pstTI F, 

ILTIF_pstTI F->CurrentRecordNumber, 
pOutcome ) ; 

if (rc != SUCCESS) 
return rc; 

else if ("pOutcome & ILTI F_EXPECTED_OUTCOMES ) 

return SUCCESS; 
else 

return TIF ERR WEIRD OUTCOME; 



) // ILTIFGetOutcome 



TIF_DLL_ENTRYPOINT ILTIFRecordAdded ( ILTR PTRANSL tr ) 
{ 

INT32 Outcome; 

int rc = ILTIFGetOutcome (tr, &Outcome}; 
if (rc != SUCCESS) 
return rc; 

return ((Outcome & ILTI F_OUTC0ME_ADD) != 0); 
} // ILTIFRecordAdded 
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TIF_DLL_ENTRYPOINT ILTIFRecordChanged ( ILTR PTRANSL tr ) 
{ 

INT32 Outcome; 

int rc = ILTIFGetOutcome (tr, &Outcome); 
if (rc != SUCCESS) 
return rc; 

return ((Outcome & ILTIF_OUTCOME_UPDATE ) != 0}; 
} // ILTIFRecordChanged 



TIF_DLL_ENTRY POINT ILTI FRecordDeleted ( ILTR_PTRANSL tr ) 
INT32 Outcome; 

int rc = ILTIFGetOutcome ( tr, SOutcome); 
if (rc != SUCCESS) 
return rc; 

return ((Outcome & ILTI F_OUTCOME_DELETE ) != 0); 
} // ILTIFRecordDeieted 



TIF_DLL_ENTRY POINT I LTI FRecordReplaced ( ILTR PTRANSL tr ) 
{ 

INT32 Outcome; 

int rc = ILTI FGet Out come ( t r , ^Outcome); 
if (rc != SUCCESS) 
return rc; 

return ((Outcome & I LT I F_OUTCOME__RE PLACE } != 0); 
} // ILTIFRecordReplaced 



* CreateOneFigMember 

* Used while Fanning During Unload. 

* It is assumed that the TIF_CurrentRecord buffer contains the 

+ Recurrence Master Item with all adjustable date fields suitably adjusted. 
* v 

static int CreateOneFigMember ( PSTTI F_TYPE pstTIF, 

I LUT_PBU FFER pRecBuf, 
^ INT32 IL_DIST *pRecNum) 

int rc; 

int FieldCount; 

int fldnum; 

int OtherlDFldNum; 

INT32 recnum; 

INT32 FannedForWhom; 

INT32 InstanceFlags; 

TIF_RECORD_VALUE_PTR pRec; 

I LDFX_PHNDL phFile =* TIF_hFile; 
INT32 Master = TI F_lCur rentRecNum; 

// Determine what flag bits to set for the Fanned Instance Items. 

if (TIF_phase — TI F_PHASE UNLOADING TO TARGET) 
{ " " 

FannedForWhom = TIF_IS_FANNED_FOR_TARGET; 

OtherlDFldNum = TIF_SourceIDFieldNum; 

) 

else if (TIF_phase == TI F_ PHASE UNLOADING TO SOURCE) 
{ ~ " 

FannedForWhom = TI F_IS_FANNED_FOR_SOURCE; 

OtherlDFldNum = TI F_Target IDFieldNum; 

} 

else 

return ILERROR (TI F_phase, TI F_ERR_BAD_STATE ) ; 
// set origin of instances to be same as origin of master 
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InstanceFlags = FannedForWhom | TI FX_ORIGIN ( phFi le, Master); 

/* 

* Build Instance in buffer pointed to by pRecBuf 

*• _ * y 

rc = TIFInitRecord (pstTIF, TI F_pFieldList , pRecBuf); 
if (rc !=« SUCCESS) 

LOG_ERR_AND_EXIT (rc, TI F_ERR_AB NORMAL) ; 

/* 

* Copy all non-repeat info from master into instance 

* */ 

FieldCount = TI F_FieldCount ( pstTI F) ; 

for (fldnum = 0; fldnum < FieldCount; fldnum++) 

{ 

/* 

* Don't put REPEAT info into fanned instances, and don't copy 

* "other ID" into fanned instances. 

* V 

if ( (fldnum == TIF_RepBasicFieldNum) 
II (fldnum == TI F_RepExcl FieldNum ) 
I I (fldnum == OtherlDFldNum) ) 
continue; 



if (TIF_FieldOf fset (TI F_pCurrentRecord, fldnum) != TI F_N0TSET ) 
{ 

INT32 len = TI F_FieldLength ( TI F_pCur rentRecord, fldnum); 
IL_HPSTR p = TIF_FieldData (TI F_pCurrentRecord, fldnum); 
if (len > 0) 
{ 

rc = TIFRecordAddFieldValue ( pstTIF, TI F_pFi eld List f 

"", fldnum, 
p, len, 

FALSE, // do no character mapping 
pRecBuf ) ; 

if (rc != SUCCESS) 

LOG_ERR_AMD_EXIT (rc, TI F_ERR_ABNORMAL ) ; 

} 

} 

} 

// Increment the number of records in the file 
recnum = TIF_TotalRecordCount++; 

INT32 exdata [ TI F_EXDATA_PER_RECORD] ; 
IL_MEMSET( (IL_PANY) exdata, 0, sizeof ( exdata )) ; 

exdata [TIF_FLAGS_SLOT] = InstanceFlags; 

exdata [TIF_MEXT_IN_CIG_SLOT] = recnum; // singleton CIG 

exdata (TIF_NEXT_IN_SKG_SLOT) = recnum; // singleton SKG 

exdata [TIF_NEXT_IN_FIG_SLOT] = recnum; // singleton FIG 

pRec = ( TI F_RECORD_VALUE_PTR ) pRecBu f->pBu f f er ; 

// compute hash values and start/end DTTM values 

rc = TI FComputeSearchKeyValues ( pstTI F, pRec, exdata); 
if (rc != SUCCESS) 

LOG_ERR_AND_EXIT (rc, TI F_ERR_ABNORMAL ) ; 

// store the new record in the TIF (ILDFX) file 

rc = ILDFX_AddRecord (phFile, recnum, pRec, TI FREC_SIZE ( pRec ) , exdata); 
if (rc != SUCCESS) 

LOG_ERR_AND_EXIT ( rc, TI F_ERR_ABNORMAL } ; 

TI FX_NEXT_IN_FIG { phFi le, recnum) = TI FX_NEXT_IN_FIG ( phFi le , Master); 
TI FX_NEXT_IN_FIG ( phFi le, Master) = recnum; 



* Mark the Master as Fanned for Source or Fanned for Target. 

* (this is done to the master redundantly, once per instance) 

* v 

TIFX_FLAGS (phFile, Master) |= FannedForWhom; 

// push goalpost out for next unload scan but not for this scan 

TIF Goal Post ForNext Pass = recnum; 
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// let caller know record number of newly-created instance record 

*pRecNum = recnum; 

Exit : 

TIFlogszulul ( ~"CreateOneFigMember (item Hid) rc=%ld", 

(UINT32) recnum, (UINT32) rc ); 

return rc; 
} // CreateOneFigMember 



+ 
+ 



/* 

* Functions for Accepting or Rejecting a Record Outcome 

+ When a translator is unloading records from TIF, TIF assumes that 

* the prescribed record outcomes will be effected by the translator. 

* As long as this assumption holds true, nothing special need be 

* done. But it is a good practice, especially when doing 
Synchronization, for the translator to call ILTI FAcceptOutcome 
for each record. Currently this is REQUIRED for INSERT operations 
done during synchronization if the translator wants to supply a 
unique ID for the newly-created item, and for UPDATE operations 
that cause a new unique ID to be assigned by the application. 

NOTE that TIF does NOT allow for the possibility that a LEAVE_ALONE 
outcome might result in assignment of a new unique ID. If any 
application has that behavior then unique IDs are UNUSABLE for 
IntelliLink synchronization, and the translator must not tell TIF 
that Unique IDs exist!! 

TIF allows for the possibility that a sync-driven UPDATE may force 
assignment of a new ID. However IntelliLink Synchronization can NOT 
make use of unique IDs that may be altered by any activity other than 
IntelliLink Synchronization itself. 

On the other hand if a translator finds that it cannot put a record 
outcome into effect (e.g. it cannot add a record), it has two 
choices : 

1. it can treat the failure as a FATAL error which aborts the 
entire operation, or 

2. it can simply tell TIF that the outcome for this particular 
record is rejected, then continue processing. 

For option #2 it must call ILTI FRe j ect Out come . At this point in 

time no values are defined for the 2nd argument to this function. 
* v 

/ + 

* ILTI FAcceptOutcome 

* -- for 2nd arg, pass NULL (not if you don't have a New Unique ID 

* to tell TIF about. 

+ + / 

TIF_DLL_ENTRYPOINT ILTI FAcceptOutcome ( ILTR_PTRANSL tr, IL_PSTR newUniquelD) 
{ 

int rc = SUCCESS; 
ILUT_PBUFFER pRecBuf; 
TIF_RECORD_VALUE_PTR pRec; 
IL_PSTR FieldName; 
PSTTI F_TYPE pstTIF; 
I LDFX_PHNDL phFile; 
INT32 idHash; 
int idHashSlot; 
INT32 recnum; 

if ( I LTR_pILTI F == NULL) 

return TI F_ERR_PILTI F_IS_NULL; 

rc = LogRecord (tr); 
if (rc != SUCCESS) 

EXIT WITH ERROR (rc) ; 



*■ 
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if ( ( ILTR_nSynchronize == ILXTR_SYNC_NO) 
I f (newUniquelD == NULL) 
I | IL_STRING_IS_NULL ( newllniquel D) ) 
EXIT_WITH_ERROR (SUCCESS); 

pstTIF = &ILTIf_pstTIF; 
phFile = TIF_hFile; 

idHash = TIFSimpleHash ( & ILTI F_pstTI F f newUniquelD} ; 
idHashSlot = TIF_NOTSET; 

if (ILTR_phase == I LTR_PHASE30 ) 
{ 

// Target App translator is unloading; store Target ID 

FieldName ~ TI F_TARGETI D_FIELDNAME; 

// if Target IDs are to be used in Synchronization, compute hash 

if (TIF_bSyncUsingTargetIDs ) 

idHashSlot = T I F_T ARG ET I D_H AS H_S LOT ; 

TIFX_TARGETID_HASH (TIF_hFile f TI F_lCur rentRecNum) « idHash; 

} 

else if (ILTR_phase == ILTR_PHASE40) 
{ 

// Source App translator is unloading; store Source ID 

FieldName =* TI F_SOURCEI D_FIELDNAME ; 

// If Source IDs are to be used in Synchronization, compute hash 

if (TIF_bSyncUsingSourceIDs ) 

idHashSlot = TI F_SOURCEI D_HASH_SLOT ; 

TIFX_SOURCEID_HASH (TIF_hFile, TIF_lCurrentRecNum) = idHash; 

} 

else 

EXIT_WITH_ERROR ( TI F_ERR_BAD_PHASE_FOR_ACCEPT_OUTCOME ) ; 

/ + 

* 2/22/96: NOTE: see version 120 or earlier of this module for a 

* WARNING about new unique IDs assigned by UPDATE. See also the notes 

* for TI FTableAutomatic in tiftable. cpp. At this point I believe that 

* handling of new unique IDs, assigned by either ADD or UPDATE, is 

* fully functional and bug-free. Only likely exception would be for 

* ID-bearing FIG members. 

* V 

if (ILTR_Flags & I LT R_ FL AG_ FAN N I N G ) 

{ 

/*- 

* Create an instance of the recurring master and link it into 

* the FIG owned by the recurring master. The instance is 

* created in the TIF_Fi rstRecord buffer and is stored on disk. 

* recnum is then set to identify the newly created instance record 

+ + 1 

pRecBuf = &TIF_FirstRecord; 

rc = CreateOneFigMember (pstTIF, pRecBuf, Srecnum); 

/* — 

* Put special value IDHASH value into Master item to indicate that 

* an ID-bearing FIG is attached to it. This is done redundantly 

* to the Master, once per Instance. 

* V 

if ((rc == SUCCESS) && (idHashSlot != TI F_NOTSET ) ) 

TIFX(phFile, TI F_l Cur rentRecNum, idHashSlot) = TI FHASH_SPECIAL; 

} 

else 
{ 

// — current record is the one we'll update and store idHash (if any) in 
recnum = TI F_lCur rent RecNum; 
■ pRecBuf = &TIF_CurrentRecord; 

} 

// write new unique id into Current TIF record 

rc = TIFRecordAddFieldValue ( pstTIF, 

TIF_pFieldList, 

FieldName, TIF NOTSET, 
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if (re !» SUCCESS) 

EXIT WITH ERROR (rc) ; 



newUniquelD, 0, 

FALSE, // don't do character mapping 
pRecBuf ); 



// update current record on disk 

pRec = (TIF_RECORD_VALU£_PTR) pRecBu f ->pBu f fer; 

rc = ILDFX_UpdateRecord ( TIF_hFile, recnum, 

pRec, TIFREC_SIZE(pRec) , 

NULL ); // don't update EX DATA 

if ({rc == SUCCESS) && (idHashSlot != TI F_NOTSET ) ) 
TIFX(phFiie, recnum, idHashSlot) = idHash; 

Exit : 

ILTIFlogszszul ( "AcceptOutcome ( id=%s ) ==> rc=%ld", 

newUniquelD, (UINT32) rc ); // ok to log NULL 

return rc; 
} // ILTIFAcceptOutcome 



/ 



* 

+■ 



ILTI FRe j ectOutcome 

WARNING: this function is NOT completely implemented for . 

Synchronization, but it should work OK for SmartMerge. 
■*- _ _ _ _ ______ 

TIF_DLL_ENTRY POINT ILTI FRe j ectOutcome ( ILTR PTRANSL tr, int ec) 
{ 

if (ILTR_pILTIF NULL) 

return TI F_ERR_PILTIF_IS_NULL; 
else 



/ 



{ 



ILTIFlogszul ( "Re j ectOutcome, ec=%ld", (UINT32) ec); 
PSTTI F_TY PE pstTIF = & ILTI F_pstTI F; 

if ( (TIF_CurrentRecordOutcome == ILTI F_OUTCOME_LEAVE_ALONE ) 
&& (ec >= 0) 

&_ (ec <= I LTR_SKI P_ALL ) ) 

// leave error-free "leave_alone" outcomes alone. 

else 

TIF_CurrentRecordOutcome = ILTI F_OUTCOME_IGNORE; 

int rc = LogRecord (tr); 
INT32 Flag2; 

// for synchronization, mark all frustrated CIG members 

if (ILTR_phase == ILTR_PHASE30 ) 

// Target App translator is unloading... 

Flag2 = TI F2_TARGET_RE JECT; 

else if (ILTR_phase == ILTR_PHASE4 0 ) 

// Target App translator is unloading... 

Flag2 =» TI F2_S0URCE_REJECT; 

else 

return rc; 

rc = MarkFlag2ForAllCIGMembers ( TIF_hFile, 

TIF_lCurrentRecNum, 
Flag2 ); 

return rc; 



} 



} // ILTIFRej ectOutcome 



* Name: Ma rkFlag2 ForAl 1 FigMembe rs 

* Called by MarkFlag2ForAllCIGMembers 
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* Purpose: Set Flag2 Bits on item and any FIG members 

* that are attached to it. 

/ 

static int MarkFlag2ForAllFigMembers ( ILDFX_PHNDL phFiie, INT32 Item, 

INT32 FiagsToSet ) 

{ 

INT32 Next = ItTem; 
int i; 

for i <» TI F_MAX_FIG_SIZE; // infinite loop protection 

TIFX_FLAGS2(phFile, Next} |= FiagsToSet; 
Next = TIFX_NEXT_IN_FIG(phFile, Next ) ; 
if (Next == Item) 
break; 

} 

if (i > TIF_MAX_FIG_SIZE) 

return ILERROR_L ( Item, TI F_ERR_BROKEN_FIG ) ; // too big or not circular 

return SUCCESS; 
} // MarkFlag2ForAllFigMembers 



/* 

* Name: MarkFlag2ForAllCIGMembers 

* Purpose: set some bits for all CIG members and any attached FIG members 

* Called by ILTI FRej ectOutcome to mark rejects 
v 

static int MarkFlag2ForAl lCIGMembers ( ILDFX_PHNDL phFiie, 

INT32 Item, 
INT32' FiagsToSet ) 

{ 

INT32 Next = Item; 
int i ; 

for (i=l; i <= TIF_MAX_CIG_SIZE; // infinite loop protection 

int rc = MarkFlag2ForAllFigMembers (phFiie, Next, FiagsToSet}; 
if (rc != SUCCESS) 
return rc; 

Next = TIFX_NEXT_IN_CIG(phFile, Next); 
if (Next == Item) 
break; 

} 

if (i > TIF_MAX_CIG_SIZE) 

return I LERROR_L ( Item, TIF_ERR_BROKEN_CIG) ; // too big or not circular 

return SUCCESS; 
} // MarkFlag2ForAllCIGMembers 

/* 

* Name: MappedFieldChanged 

* Purpose: internal function to help ILTI FFieldChanged do its job 

* Explanation: when TIF is asked whether a MAPPED field has changed, we 

* can't give a guick & easy answer, due to the vagaries of 

* field mapping. The only reliable way to answer the question 

* is to get the field values and compare them. 
+ 

* Returns TRUE, FALSE, or various error codes... 

* Author: David Boothby, Copyright (c) IntelliLink Corporation, 1995 

* / 

static int MappedFieldChanged (ILTR PTRANSL tr, IL PSTR FieldName) 
{ 

int rc; 

/* 

* Get field type, needed for comparing field values 

* v 
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INT32 maxlen; 

char FieldType; 

ILTB_ATTRIB FieldAtt ribut es ; 

rc = I LTIFGetFieldAt tributes [ tr, FieldName, Smaxlen, SFieldType, 

AFieldAttributes }; 

if (rc != SUCCESS) 
return rc; 

/* 

* Get current value of field. 



INT32 CurrentLength; 
IL_PSTR CurrentValue; 

rc = ILTIFGetField ( tr, FieldName, TIF_CURRENT, 

^CurrentLength, (IL_PANY *) ^CurrentValue ) ; 

if {rc != SUCCESS) 
return rc; 

/* 

+ Copy current value into a I LTI F_Field3 buffer 

* so it won't be clobbered by next ILTIFGetField call. 

* V 

if (CurrentLength > 0) 

{ 

if (CurrentLength > 32767) 

return TI F_ERR_FIELD_VALUE_TOO_BIG; 

// Make sure buffer is big enough; if not then make it bigger 

rc = ILUT_GetBuf fer ( &I LTI F_Field3, CurrentLength); 
if (rc != SUCCESS) 

return ILERR0R_L (CurrentLength, T I F_ERR_MEM ) ; 

// copy field value. We rely on the fact that ILTIFGetField 

// sets CurrentLength = STRLEN + 1 for text fields 

IL_MEMCPY (ILTIF_Field3.pBuf fer, CurrentValue, (UINT) CurrentLength); 
CurrentValue = (IL_PSTR) ILTI F_Field3 . pBuf f er ; 

} 

/* 

* Get original value of field. 

* V 

INT32 OriginalLength; 
IL_PSTR OriginalValue; 

rc = ILTIFGetField ( tr, FieldName, TI F_ORIGINAL, 

^OriginalLength, (IL_PANY *) &Or igina lVa lue ) ; 

if (rc == SUCCESS) 
{ 

/* 

* Compare original value vs current value. 

+ v 

BOOLEAN ValuesDif fer; 

ValuesDiffer = TI FFieldValuesDi f f er2 ( tr, OriginalValue, 

CurrentValue, 
OriginalLength, 
CurrentLength, 

FieldType, FieldAtt ribut es ); 

rc = (int) ValuesDiffer; 

} 

return rc; 
} // MappedFieldChanged 



/* 

+ Name: 

* Purpose 

+ Inputs: 

* Return: 



ILTIFFieldChanged 

Has the designated field been altered in the current TIF mechanism 

record . 

tr 

Global tr struct 
TRUE - If it has been altered 
FALSE - If it has not been altered 

TIF_ERR_BAD_FLDNAME - If supplied fldname not recognized. 
ILTR_ERR_BAD_STATE - If there is no current record 
TIF_ERR_MEM - If there was a memory problem. 
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* Author: Ken Dobson, Copyright (c) IntelliLink Corporation, 1994 

* V 

TIF_DLL_ENTRYPOINT I LTI FFieldChanged ( I LTR_PTRANSL tr, IL_PSTR szFldName) 

{ 

int rc; 

if (ILTR_pILTIF == NULL) 

rc - TIF_ERR_PILTIF_IS_NULL; 
else if (ILTR_phase == ILTR_PHASE4 0 ) 

rc = MappedFieldChanged (tr, szFldName); 
else 

rc = TIFFieldChanged ( & ILTI F_pstTI F, szFldName); 
return rc; 

} // ILTIFFieldChanged 



/* 

* Name: ILTI FDump 

+ For Debugging, create formatted dump of 
+ the CURRENTLY OPEN TIF file 

*■ + 1 

TIF_DLL_ENTRYPOINT ILTI FDump ( ILTR_PTRANSL tr) 
{ 

if (ILTR_pILTIF == NULL) 

return TI F_ERR_PILTIF_IS_NULL; 
else 

return TIFDump ( &ILTI F_pstTI F) ; 
} // I LTI FDump 



/* 

* TI FFreelLTI FBuf f ers 

v V 

void TI FFreelLTI FBuf f ers ( ILTR_PTRANSL tr) 

{ 

// Free the Field Buffers if allocated 
ILUT_FreeBuf fer ( &ILTIF_Field) ; 
ILUT_FreeBuf fer ( & ILTI F_Field2 J ; 
ILUT_FreeBuf fer ( &ILTI F_Field3 ) ; 
ILUT_FreeBuf fer ( &ILTIF_TmpBuf ) ; 

// Free the top-level ILTI F structure 
IL_FREE (ILTI F_hst I LTI F, ILTR_pI LTI F) ; 
ILTR_pILTIF = NULL; 

// note: don't zero hstlLTIF cuz it lives inside +ILTR_pILTIF 

} // TI FFreelLTI FBuffers 



/* 

+ Name: ILTIFClose 

* Purpose: Close the TIF mechanism and DELETE the TIF FILE 

* Inputs: tr 

* Global tr struct 

+ Return: SUCCESS - If all went well. 

* or one of many possible error codes 

+ Author: Ken Dobson, Copyright (c) IntelliLink Corporation, 1994 

* v 

TI F_DLL_ENTRYPOINT ILTIFClose ( I LTR_PTRANSL tr ) 
{ 

int rc; 

if ( I LTR_pILTI F == NULL) 

return TI F_ERR_PI LTI F_IS_NULL; 

rc = TIFTerminate ( &ILTIF_pstTIF, tr); 

TI FFreelLTI FBuffers ( tr) ; 

return rc; 

} // ILTIFClose 
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/* 

* Name: CloseFileTemporari ly 

* Purpose: Close the TIF workfile file at translation phase transition 

* Callers: ILTIFCloseFileTemporarily and ILTIFCloseFilelnitially 

+ ^ _ * i 

static int CloseFileTemporarily ( ILTR_PTRANSL tr, 

BOOLEAN bExitPhase, 
BOOLEAN bMaybeSaveMaxima ) 

{ 

int rc = SUCCESS; 
int rc2; 

PSTTI F_TYPE pstTIF; 
I LDFX_PHNDL phFile; 

if (ILTR_pILTIF *»= NULL II ILTIF_pstTIF == NULL) 
return TI F_ERR_PILTI F_IS_NULL; 

pstTIF = &ILTIF_pstTIF; 
phFile = TIF_hFile; 

/ + 

* Save Fanout Maxima if required (do it now, before it's too late!!) 
+ 

if (bMaybeSaveMaxima && TI F_bPleaseSaveFanoutMaxima ) 
{ 

TIF_bPleaseSaveFanoutMaxima = FALSE; 
rc = TI FSave FanoutMaxima (tr); 
if (rc != SUCCESS) 
return rc; 



/* 

* For unmixed Windows jobs we do nothing at all! 

* For Macintosh we close the workfile and the logfile but in-memory 

* structures are preserved. 

-v I 

if (ILTR_Flags & ILTR_FLAG_MACINTOSH ) 
( 

TI Flogs z ( "CloseFileTemporari ly/Mac" ) ; 
rc = ILDFX_CloseFileTemporarily (phFile); 
rc2 = ILLOG_close (TIFLOG); 
TIF_bWorkFileIsOpen = FALSE; 
return rc; 

} 

/ + 

* For a MIXED Windows job, where a 32-bit engine is driving one or more 

* 16-bit translators, flush all updates to disk and close the file. 

* When doing this for a 16-bit translator free TIF buffers too. 

* V 

else if ( I LTR_Flags & ILTR_FLAG_MIXED_WIN3216 ) 

{ 

// force EXIT from Current Phase, if requested 

if (bExitPhase) 

rc « TIFStartNextPhase (tr, TI F_PHASE_NEXT ) ; 

// close the workfile, flush all updates out to disk 

phFile->bHasChanged = TRUE; 

rc2 = ILDFX_CloseFile (phFile, ILDFX_DO_UPDATE ) ; 
if (rc == SUCCESS) 
rc = rc2; 

Hfdef ILX32_16 

// come here when called by 16-bit translator; do full cleanup 

TI Flogs z ( "CloseFileTemporarily/WinMixl6" ) ; 
rc2 = ILLOG_end (&TIFLOG); 
TIFFreeBuf fers (tr, pstTIF); 
IL_FREE ( TI F_hstTI F, *pstTIF); 
TIFFreelLTIFBuf fers (tr); 
Helse 

// come here when called by 32-bit translator or engine 

TI Flogs z ( "CloseFileTemporarily/WinMix32" } ; 
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rc2 = ILLOG_close { T I FLOG ) ; 
TIF_bWorkFileIsOpen » FALSE; 
ffendif 

) 

else 

TIFlogsz ( "CloseFileTemporarily/NO-OP" ) ; 
return rc; 
} // CloseFileTemporarily 



/ + 

* Name: ILTIFCloseFileTemporarily 

* Purpose: Close the TIF workfile at end of translation phase 

* Callers: ILTR\ IMPORT . C, ILTRVEXPORT.C 

* V 

TI F_DLL_ENTRY POINT ILTIFCloseFileTemporarily ( ILTR_PTRANSL tr) 
{ 

BOOLEAN bExitPhase = TRUE; 
BOOLEAN bMaybeSaveMaxima = TRUE; 

int rc = CloseFileTemporarily (tr, bExitPhase, bMaybeSaveMaxima); 
return rc; 

} 



/* 

* Name: ILTI FCloseFilelnitial ly 

* Purpose: Close the TIF workfile at end of translation phase 

* Callers: ILX_V3\XLATE . C 

* * / 

TI F_DLL_ENTRYPOINT ILTI FCloseFilelni t ial ly ( ILTR_PTRANSL tr) 
{ 

BOOLEAN bExitPhase = FALSE; 
BOOLEAN bMaybeSaveMaxima = FALSE; 

int rc = CloseFileTemporarily (tr, bExitPhase, bMaybeSaveMaxima); 
return rc; 

} 



/* 

* Name: ILTIFReopenFile 

* Purpose: Re-open a TIF file that was previously closed by calling 

* ILTIFCloseFileTemporarily or ILTI FCloseFi lelni t ially 

+ *■ / 

TI F_DLL_ENTRY POINT ILTIFReopenFile ( ILTR_PTRANSL tr) 
{ 

int rc; 

PSTTI F_TYPE pstTIF; 
ILDFX_PHNDL phFile; 

/* 

* For a 16-bit translator running under 32-bit engine we 

* have to start from ground zero!! 

* V 

if (ILTR_Flags & ILTR_FLAG_MIXED_WIN3216 ) 
{ 

ffifdef ILX32_16 

rc = TIFInitStruct (tr); 
if (rc !- SUCCESS) 
return rc; 

rc = TIFInit ( & ILTI F_pstTI F, tr, -1); // special TIF init 
if (rc != SUCCESS) 
return rc; 

pstTIF = &ILTIF_pstTIF; 
TIFlogsz ( "ILTIFReopenFile/WinMixlS" ) ; 
TIF_phase = TIF_PHASE_PREVIOUS; 
rc = TIFStartNextPhase (tr, ILTR_Tif Phase ) ; 
return rc; 
ffendif 

} 

// for all other cases the TIF structs should exist 
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if ( ILTR_pILTIF == NULL) 

return TI F_ERR_PILTI F_IS_NULL; 

pstTIF =• &ILTIF_pstTIF; 
phFile » TIF_hFile; 

*■ 

/* 

* For unmixed Windows jobs we do nothing at aii! 

* For Macintosh we simply reopen the file. 

+■ + 1 

if { ILTR_Flags & I LTR_FLAG_MACINTOSH } 
{ 

rc = ILLOG_reopen ( TI FLOG J ; 
if (rc != SUCCESS) 

return ILERROR (rc, TI F_ERR_LOGGING ) ; 

TI Flogsz ( " ILTI FReopenFi le/ Mac" ) ; 

rc = ILDFX_ReopenFile(TIF_szWorkFile, phFile, ILDFX_MODE_UPDATE ) ; 

if ( rc == SUCCESS) 

{ 

TIF_bWorkFileIsOpen = TRUE; 

TIF_phase = TI F_PHASE_PREVIOUS; 

rc = TIFStartNext Phase (tr f ILTRJTi f Phase ) ; 

} 



/* 

* For a MIXED Windows job, where a 32-bit engine is driving one or 

* more 16-bit translators, we need to do a lot more work. (The 

* code for 16-bit translators is above; here we handle 32-bit engine 

* or translator running in the MIXED 32/16 environment.) 

V _ — _ -tr I 

else if (ILTR_Flags & ILTR_FLAG_MIXED_WIN321 6 ) 
{ 

rc = ILLOG_resume ("tif . log" , ILTR_hLog, & T I FLOG ) ; 
if (rc != SUCCESS) 

return ILERROR (rc, TI F_ERR_LOGGING ) ; 

TI Flogsz (" ILTI FReopenFi le/WinMix 32" ) ; 

rc = ILDFX_OpenFile (TI F_szWorkFi le, phFile, ILDFX_MODE_UPDATE) ; 

if (rc == SUCCESS) 

{ 

TIFjDWorkFilelsOpen = TRUE; 

rc = ILDFX_GetRecordCount (TIF_hFile, &TI F_TotalReco rdCount ) ; 
if ( rc == SUCCESS) 

{ 

/ + 

* Update misc params by reading TI F_RECORD_TWO of workfile 
* y 

rc = TIFLoadKStruct (phFile, & ( ( *pstTI F) ->K) ) ; 

if (rc == SUCCESS) 

( 

TIF_phase = TI F_PHASE_PREVIOUS; 

rc = TIFStartNext Phase (tr, ILTR_Tif Phase ) ; 

} 

} 

} 

} 

else 
{ 

// NO-OP for unmixed Windows environments (WIN16 and WIN32) 

TIFlogs2("ILTIFReopenFile/N0-0P" ) ; 
return SUCCESS; 



ILTI FLOG = TIFLOG; // for ILTIF-level logging 

ILDFXLOG (TI F_hFile ) = TIFLOG; // for ILDFX-level logging 
return rc; 

} // ILTIFReopenFile 



/* 

* Name: ILTI FBeginStatusBar (old name I LTI FBeginStatus } 
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* Purpose: Initialize and display the status bar 

* Inputs: tr 

* Global tr struct 

* szTheMsg 

* The string to be displayed 

* INumRecs 

* Nurttber of records 

* Return: SUCCESS - If all went well. 

* Author: Ken Dobson, Copyright (c) IntelliLink Corporation, 1994 

* Notes: 

★ 

TIF_DLL_ENTRYPOINT ILTI FBeginStatusBar { ILTR_PTRANSL tr, 

IL_PSTR szTheMsg, 
LONG INumRecs ) 

{ 

ILStatusInit ( tr, szTheMsg, INumRecs }; 
return SUCCESS; 

} // ILTIFBeginStatusBar 

// turn off aliasing so we can provide OLD entrypoint too 

tfundef ILTIFBeginStatus 

extern "C" TI F_DLL_ENTRYPOINT ILTI FBeginSt a tus ( ILTR_PTRANSL tr, 

IL_PSTR szTheMsg, 
LONG INumRecs ) 

{ 

ILStatusInit ( tr, szTheMsg, INumRecs ); 
return SUCCESS; 

} // ILTIFBeginStatus 



/ 



/ + 

* Name: ILTI FUpdateStatusBa r (old name ILTI FUpdateSt atus ) 

* Purpose: Increment the status bar 

* Inputs: tr 

* Global tr struct 

* Return: SUCCESS - If all went well. 

* I LTR_ERR_CANCEL - If user cancelled 

* Author: Ken Dobson, Copyright (c) IntelliLink Corporation, 1994 

* Notes: 

+ _ _ _ 

TI F_DLL_ENTRYPOINT I LTI FUpdateSt atusBa r ( ILTR_PTRANSL tr ) 
{ 

// Process all the messages in the queue and check for cancel 
int rc = ILProcessMessages ( tr ) ; 
if { rc == SUCCESS) 

ILStatusUpdate ( t r ) ; // Update the status bar 1 increment 

return rc; 

} // ILTIFUpdateStatusBar 

// turn off aliasing so we can provide OLD entrypoint too 

ffundef ILTIFUpdateStatus 

extern "C" TI F_DLL_ENTRYPOINT ILTIFUpdateStatus ( ILTR_PTRANSL tr ) 
{ 

// Process all the messages in the queue and check for cancel 
int rc - ILProcessMessages ( tr ) ; 
if (rc == SUCCESS) 

ILStatusUpdate ( tr ) ; // Update the status bar 1 increment 

return rc; 

} // ILTIFUpdateStatus 



/ + 

* Name: ILTI FEndStatusBar (old name ILTI FEndStatus ) 

* Purpose: Take down and clean up the status bar 

* Author: Ken Dobson, Copyright {c} IntelliLink Corporation, 1994 
*■ . 

TIF DLL ENTRYPOINT I LTI FEndSt atusBa r ( ILTR PTRANSL tr ) 



/ 
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{ 

ILStatusDone ( tr ) ; 
return SUCCESS; 

} // ILTIFEndStatusBar 

// turn off afiasing so we can provide OLD entrypoint too 

ffundef ILTIFEndStatus 

extern "C" TI F_DLL_ENTRYPOINT ILTIFEndStatus ( ILTR_PTRANSL tr ) 
{ 

ILStatusDone ( tr ); 
return SUCCESS; 

} // ILTIFEndStatus 



/ 



* Name: ILTI FUnloadToILIF 

* Purpose: Unload all fields in one record from ILTI F to ILIF 

* Input: Pointers to translator data 

* Return: SUCCESS or error code 

* Author: Ken Dobson, Copyright (c) IntelliLink Corporation, 1994 

* Author: David Boothby, Copyright (c) IntelliLink Corporation, 1995 



/ 



TI F_DLL_ENTRY POINT ILTI FUnloadToI LI F ( I LTR_PTRANSL tr ) 
{ 

int rc - ILTI FReadNextRecord ( tr) ; 
if (rc == TIF_EOF) 

return ILTR_EOF; 
else if (rc != SUCCESS) 

return rc; 

INT32 FieldCount; 

ILTIFHowManyField ( tr, &FieldCount ); 

for ( INT32 fieldnum = 0; fieldnum < FieldCount; fieldnum ++ ) 
{ 

char szFieldName [ ILTR_MAX_FLDNAME ] ; 

ILTIFGet FieldName { tr, fieldnum, szFieldName ); 

// Don't process any TIF-internal fields (e.g. "\ 0x2InstanceAr ray" ) 

if (szFieldName [0] < 32} 
continue; 

IL_PSTR pField; 
LONG lField; 

rc = ILTIFGetField ( tr, szFieldName, TI F_CURRENT, 

SlField, (IL_PANY *) &pField }; 

switch (rc) 
{ 

case SUCCESS: 
case ILTR_ERR_NODATA: 
case ILTR_ERR_NOTMAPPED: 
case ILTR_ERR_NOFLD: 
case ILTR_ERR_TRUNC: 

break; // tolerate these errors 



} 



case ILTR_ERR_NOMEM: 
case ILTR_ERR_FILE: 
default : 

return rc; 



// complain about other errors 



// Place the field in the intermediate file 

ILFldPut (tr, szFieldName, pField, IL_STRLEN (pField )) ; 

} 

return SUCCESS; 



} // ILTI FUnloadToI LI F 



/* 

* Name: ILTIFHowManyRecords 

* Purpose: Return the number of records in the TIF mechanism 
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* Inputs: 



* Return: 

* Author: 

* Notes: 

V 



t r 

Global tr struct 
iNumOf Recs 

Pointer to number of records in the mechanism 
SUCCESS - If all went well. 

INumRecs filled in 

Ken Dobson, Copyright (c) IntelliLink Corporation, 1994 



TI F_DLL_ENTRY POINT ILTI FHowManyRecords ( ILTR_PTRANSL tr, 

LONG *!NumOfRecs ) 



{ 



/ 



if ( ILTR_pILTI F NULL) 

return ILERROR (0, TIF_ERR_PILTIF_IS_NULL) ; 

// set limit to stop forward scanning of TIF index when unloading 

ILTIF_pstTIF->GoalPost = ILTIF_pstTIF->GoalPostForNextPass; 

*lNumOfRecs = ILTIF_pstTI F->PertinentRecordCount; 

return SUCCESS; 



} // ILTI FHowManyRecords 



/* 

* TI FPutSourceRecord — used in ILX_V4 Phase 20 

* The source translator, operating under ILX_V4, is loading 

* data that is subject to Field Mapping. Values for Unmapped 

* Source Fields are already in TIF_CurrentRecord, but 

* values for Mapped Source Fields are in TI F_SourceRecord . 

* We now do Field Mapping to construct corresponding 

* Target Field Values, which are put into TI F_Cur rentRecord, 

* then finally we store TIF CurrentRecord . 



int TIFPutSourceRecord ( ILTR_PTRANSL tr} 
{ 

int rc; 

PSTTI F_TYPE pstTIF = & I LTR_pILTI F->pstTI F; 
long lFieldCount; 
long fldnum; 
long FieldLength; 
IL_PANY FieldValue; 

if (ILTR_phase != ILTR_PHASE20 ) 

return ILERROR (ILTRjphase, TIF_ERR_ABNORMAL) ; 

else // exporting from SOURCE ... need to do field mapping 
{ 

rc = ILTIFHowManyField (tr, &1 FieldCount ) ; 
if (rc != SUCCESS) 

return ILERROR ( rc, TI F_ERR_ABNORMAL ) ; 

for (fldnum=0; fldnum < lFieldCount; fldnum++) 
{ 

if (TIF_FieldIsMapped(pstTIF, fldnum)) 
{ 

IL_PSTR fldname = TI F_FieldName ( pstTI F, fldnum); 

rc = GetMappedField ( tr, fldname, TIF_SOURCE_CACHE, 

FALSE, // don't do character mapping 

&FieldLength, &FieldValue ); 

if (rc != SUCCESS) 

return ILERROR ( rc, TI F_ERR_ABNORMAL ) ; 

- Put field value in TIF Current Record Value struct 
TIFRecordAddFieldValue ( pstTIF, 

TIF_pFieldList, 
fldname, TI F_NOTSET, 
(IL_PSTR) FieldValue, 
FieldLength, 

FALSE, // don't do character mapping 
&TIF_CurrentRecord ) ; 

if (ILLOG VERBOSE ENOUGH ( ILTI FLOG, 98)) 



rc = 
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TIFLogPutField (tr, fldname, (UINT8 *) FieldValue, FLeldLength, re); 

if (rc != SUCCESS) 

return ILERROR ( rc, TI F_ERR_ABNORMAL ) ; 

} 

} // end fqj: 
} // end else 



/* 

* Write Source Record to TIF 

* If Target Translator wants to "sanitize" Source Records, we simply store 

* an un-analyzed record here. Analysis is deferred until this Sanitizing 

* step. 

* But if Target Translator is NOT going to sanitize Source Records, we 

* need to do the record analysis now. 



TIF_PUT_RECORD_OPTION opt; 

if (ILTR_Flags & ILTR_FLAGS_SKI P_SANITIZING_STEP) 

opt = TIFPRO_ANALYZE_AND_STORE_NEW_RECORD; 
else 

opt = TIFPRO_STORE_NEW_UNANALYZED_RECORD; 

rc = TIFPutRecord (tr, opt); 

if (rc != SUCCESS) 

{ 

// log the error 

TIFlogszul ( "PutSourceRecord rc=%ld", (UINT32) rc); 



// look for no memory condition 

if (rc == ILDFX_ERR_NOMEM) 

rc = ILERROR (rc, ILTR_ERR_NOMEM ) ; 
else 

rc = ILERROR (rc, TIF ERR ABNORMAL); 



return rc; 



} // TI FPutSourceRecord 



/ 



Name : 
Purpose 



ILTI FDontSyncBylD 

Tells the Synchronization Engine not to use Unique IDs in doing 
synchronization. 



NOTE 



calling this function is equivalent to calling 
ILTIFFeatureSet (tr, 0, TIF DISABLE SYNC BY ID); 



* Comments 



+ 



This call turns off usage of unique IDs for sync, but TIF still 
does ordinary storage and retrieval of unique IDs, if unique ID 
fields are defined. 

This function is only needed when a translator that has a field 
in its field list called _UniqueID wants TIF to do KeyField-based 
synchronization rather than uniquelD-based synchronization. 

For a synchronization job involving translators ILXAAA and ILXBBB, 
the field lists of one or the other or both or neither of ILXAAA 
and ILXBBB may have JJniquelD fields. If both have _UniqueID 
fields, then if ILXAAA calls ILTI FDontSyncBylD the sync engine 
will do KeyField-based correlation on the ILXAAA side of things, 
but correlation on the ILXBBB side will still be done by Unique ID 

TIF requires that this function be called either during the 
load-f rom-target phase or during the load-f rom-source phase. 

However TIF does not apply any other restrictions on when this 
function may be called. Unless wacky counter-arguments suggest 
otherwise, a translator should call ILTI FDontSyncBylD before 
putting any records into TIF. Suggestion: call it in your 
BEGIN routine when ILTR direction == ILTR EXPORT. 
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* Author: David Boothby, Copyright (c) InteiliLink Corporation. 



TIF_DLL_ENTRYPOINT ILTI FDontSyncBylD (ILTR PTRANSL tr) 
{ 

return ILTIFFeatureSet (tr f 0, TIF_DISABLE_SYNC_BY_ID) ; 
} // ILTI FDontTSyncByl D 

/* 

* Name: ILTIFFeatureSet 

* Purpose: Tells TIF to turn specified feature bits ON or OFF. 
+ 

* Comments: This function has a general-purpose interface, but initially 

* it's only use is to disable FastSync and/or sync-by-uniquelD 

* for the current phase. 

* NOTE: Sync-by-uniquelD is a pre-requisi te for FastSync, so if sync-by-ID 

* is disabled then FastSync is also disabled. 

* Author: David Boothby, Copyright (c) InteiliLink Corporation. 



TIF_DLL_ENTRYPOINT ILTIFFeatureSet { ILTR_PTRANSL tr, 

UINT32 ulTurnOnBits, 
UINT32 ulTurnOf fBits ) 

{ 

int rc « SUCCESS; 
UINT32 ulOff; 

if (ILTR_pILTIF == NULL) 

return TI F_ERR_PILTI F_IS_NULL; 

ulOff = ulTurnOf fBits & (TI F_DISABLE_FAST_SYNC | TI F_DISABLE_SYNC_BY_I D) ; 

if (ulTurnOnBits != 0 t I ulTurnOf fBits !« ulOff) 

// assume that a newer caller is calling an older TIF... 

rc = TIF_ERR_NOT_YET_IMPLEMENTED; 

else if (ulOff == 0) 

rc = TIF_ERR_BAD_PARAM; 

else 
( 

PSTTI F_TY PE pstTIF = & ILTI F_pstTI F; 

switch (TIF_phase) 
{ 

case TI F_PHASE_LOADING_TARGET_RECORDS : 

if (ulOff & TIF_DISABLE_SYNC_BY_ID) 
TIF_bSyncUsingTargetIDs = FALSE; 
TIF_bFastSyncTargetLoad = FALSE; 
TIF_bFastSyncLoad = FALSE; 
break; 

case TI F_PHASE_LOADING_SOURCE_RECORDS : 

if (ulOff & TIF_DISABLE_SYNC_BY_ID) 
TIF_bSyncUsingSourceIDs = FALSE; 
TIF_bFastSyncSourceLoad » FALSE; 
TIF_bFastSyncLoad = FALSE; 
break; 

default : 

rc = TIF_ERR_BAD_STATE; 

} 

if (rc == SUCCESS) 
{ 

/ + . 

* Update Record TWO of Work File. This ensures that the modified 
+ flags will persist across close/reopen actions on the workfile. 



rc = ILDFX_UpdateRecord ( TIF_hFile, 

TIF RECORD TWO, 
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if (rc != ILDFX_OK) 
return rc; 



&( (*pstTIF)->K), 
sizeof (TIF_KSTRUCT) , 

NULL ); // — no ExData for this record 



> 

ILTIFlogszul3 ( " ILTI FFeatureSet ( 0x% lx, Ox%ix} rc=%ld", 

ulTurnOnBits, ulTurnOf f Bi t s , (UINT32) rc}; 

return rc; 



} // ILTIFFeatureSet 



/ + 

* ILTIFItemlsRecurring 



TI F_DLL_ENTRY POINT ILTIFItemlsRecurring (ILTR PTRANSL tr) 
{ 

if { ILTR_pILTI F == NULL) 

return TI F_ERR_PILTI F_IS_NULL; 
else 

{ 

PSTTI F_TYPE pstTIF = & ILTI F_pstTI F; 
INT32 CurrentRecNum; 
INT32 OriginalRecNum; 

int rc = TIFSetRecordNumbers ( pstTIF, TI F_CurrentRecordNumber , 

&CurrentRecNum, &OriginalRecNum }; 

if (rc != SUCCESS) 
return rc; 

if (CurrentRecNum == TI F_NOTSET ) 
CurrentRecNum = OriginalRecNum; 

if (CurrentRecNum == TI F_NOTSET ) 

return ILERROR(-l, TI F_ERR_BAD_STATE ) ; 

return TI FX_ITEM IS RECURRING (TIF hFile, CurrentRecNum}; 



) // ILTIFItemlsRecurring 



* Name: PutAd j ustedDates 

* called from ILTIFFanltem 



static int PutAd j ustedDates ( PSTTI F_TYPE pstTIF, 

INT32 lDate, ILUT PBUFFER pRecBuf J 

{ 

char szDate [10]; 
int rc; 

// Convert encoded date to YYYYMMDD 

IL_CodeDateToAlpha (lDate, szDate); 

// Adjust Start Date if Start Date is ABSOLUTE 

if ( TIF_StartDateFieldNum != TIF_NOTSET 

&& TIF_FieldType (pstTIF, TI F_Sta rt DateFieldNum ) == ILX TYPE DATE ) 

{ 

rc = TIFRecordAddFieldValue ( pstTIF, TI F_pFi eld List , 

, TIF_StartDateFieldNum, 
szDate, 0, 

FALSE, // do no character mapping 
pRecBuf ) ; 

if ( rc ! = SUCCESS) 

return ILERROR ( rc, rc); 

} 

// Adjust End Date if End Date is ABSOLUTE 

if ( TIF_EndDateFieldNum ! =» TI F_NOTSET 

&& TIF_FieldType (pstTIF, TI F_End DateFieldNum) == ILX TYPE DATE ) 

{ 
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rc = TIFRecordAddFieldValue ( pstTIF, TIF_pFieldList, 

"", TIF_EndDateFieldNum, 
szDate, 0, 

FALSE, // do no character mapping 
pRecBuf ) ; 

if (rc SUCCESS) 

return IL"ERR0R { rc, rc); 

) 

// Adjust Alarm Date if Alarm Date is ABSOLUTE 

if ( TIF_AlarmDateFieldNum != TIF_NOTSET 

&& TIF_FieldType(pstTIF, TIF AlarmDateFieldNum) « ILX TYPE DATE ) 
{ ~ ~ 

rc = TIFRecordAddFieldValue ( pstTIF, TIF_pFieldList, 

t TIF_AlarmDateFieldNum, 
szDate, 0, 

FALSE, // do no character mapping 
pRecBuf } ; 

if (rc != SUCCESS) 

return ILERROR ( rc, rc); 

} 

return SUCCESS; 
} // PutAdj us ted Dates 

/* 

* Name: Ma rkAl IRecurringCigMembers 

* Purpose: set some bits for all CIG members that are recurring items. 

* Called by ILTIFFanltem to mark all masters FANNED for SOURCE or for TARGET 
+ 

+ / 

static int MarkAllRecurringCigMembers ( ILDFX_PHNDL phFile, INT32 Item, 

INT32 FlagsToSet ) 

{ 

if ( TI FX_ITEM_IS_RECURRING { ph Fi le, Item) ) 
TIFX_FLAGS( phFile, Item} |= FlagsToSet; 

INT32 Next = Item; 
int i; 

for (i=l; i <= TI F_MAX_CIG_SIZE; i++) // infinite loop protection 

Next = TIFX_NEXT_IN_CIG(phFile, Next); 
if (Next == Item) 
break; 

if (TI FX_ITEM_IS_RECURRING ( ph Fi le, Next)) 
TIFX_FLAGS( phFile, Next) |= FlagsToSet; 

} 

if (i > TIF_MAX_CIG_SIZE) 

return ILERR0R_L ( Item, TI F_ERR_BROKEN_CIG ) ; // too big or not circular 

return SUCCESS; 
} // MarkAllRecurringCigMembers 

/ + 

* LogFig 

* v 

static void LogFig (ILDFX_PHNDL phFile, INT32 Start, IL_PSTR szRole) 

char szBuf [120] ; 
char szTmpt 40] ; 
int count=0; 
INT32 Origin; 
IL_PSTR szOrigin; 
INT32 Next; 

if (Start == TI F_NOTSET ) 
( 

TIFXlogszsz ("%s not present", szRole); 
return; 

} 
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Origin = TIFXjDRIGIN (phFiie, Start); 

switch (Origin) 

{ 

case TIF_FROM_ PREVIOUS : szOrigin = "Previous"; break; 
case TIF_FROM_TARGET : szOrigin = "Target"; break; 
case TIF_FRdM_SOURCE : szOrigin = "Source"; break; 

} 

Next = TIFX_NEXT_IN_FIG (phFiie, Start); 

if (Next == Start) 

( 

TIFXiogsz3ui ( "%s (%s) item (#%ld) is a singleton FIG" , 

szOrigin, szRole, Start ); 

return; 

} 

TIFXlogsz3ul ( "%s (%s) item (Hid) — FIG analysis:", 

szOrigin, szRole, Start ); 

IL_SPRINTF (szBuf, "FIG: %041d", Start); 

while (Next != Start) 
{ 

IL_SPRINTF (szTmp, ", %041d", Next); 

IL_STRCAT (szBuf, szTmp); 

count++; 

if (count % 10 == 0) 
{ 

TIFXlogsz (szBuf); 
IL_STRCPY (szBuf, " " ) ; 

} 

Next = TI FX_NEXT_IN_FIG ( phFi le, Next}; 

} 

TIFXlogsz (szBuf); 
) // LogFig 



/* 

* Name: ILTIFFanltem 

* Item to fan is record number TIF_lCurrentRecNum 

* This function is only called recurring items whose current 

* . unload outcome is ADD or UPDATE. 

* Author: David Boothby, Copyright (c) IntelliLink Corporation. 

* v 

TIF_DLL_ENTRYPOINT ILTIFFanltem (ILTR PTRANSL tr, int maxFanCount) 
( 

int rc = Fanltem (tr, maxFanCount ) ; 

if (rc == SUCCESS && I LLOG_VERBOSE ENOUGH ( ILTI FLOG, 99)) 
{ 

PSTTI F_TYPE pstTIF ~ &ILTI F_pstTI F; 
ILDFX_PHNDL phFiie = TIF_hFile; 
INT32 Master = TI F_lCurrentRecNum; 
INT32 cig[3J; 
INT32 spt [3] ; 

INT32 Updater; // Item that instigated the UPDATE 

INT32 Updatee; // Item that is to be UPDATED 

INT32 Middleman; // Previous (History) Item 

INT32 Next; 

char szText [100] ; 

// Identify the Source, Previous, and Target members of the CIG 

•int rc = TIFBuildSPT (phFiie, Master, cig, spt); 
if (rc != SUCCESS) 

return ILERROR_L (Master, rc}; 

// Identify the Updater and Updatee items 

if (TIF_phase == TI F_PHASE_UNLOADING TO TARGET) 
{ 
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Updater = spt [TIF_SPT_S] ; // source side is instigator 
Updatee = spt [TIF_SPT_T] ; 

} 

else 
{ 

Updater =» spt [TIF_SPT_T] ; // target side is instigator 
Updatee - spt [TIF_SPT_S] ; 

} 

// Identify Middleman (who may or may not exist!!!) 

Middleman = spt [TI F_SPT_P] ; 

// Guard against the impossible 

if (Updater == TI F_NOTSET ) 

return ILERROR_L (Master, TIF__ERR_ABNORMAL) ; 

// Look for Fanned Instances of the Updater 

Next = TI FX_NEXT_IN_FIG (phFile, Updater); 

IL_SPRINTF ( szText, "Fanning completed for: %ld — (%ld)--> %ld, %s", 

Updater, Middleman, Updatee, 

TIFCigName (TI FX_CIG_TYPE (phFile, Updater)) ); 
TIFlogsz (szText); 

LogFig (phFile, Updater, "Other"); 
LogFig (phFile, Middleman, "Middle"); 
LogFig (phFile, Updatee, "Unloader"); 



return rc; 
} // ILTIFFanltem 



* Name : Fanltem 

* Item to fan is record number TI F_lCur rentRecNum 

* This function is only called recurring items whose current 

* unload outcome is ADD or UPDATE. 

* Author: David Boothby, Copyright (c) IntelliLink Corporation. 



static int Fanltem ( ILTR_PTRANSL tr, int maxFanCount) 
{ 

int rc; 
int i; 

int fannedCount; 
int FieldCount; 
int fldnum; 

ILTR_PREPEAT pRepeat = NULL; 

int FullMasterCount; 

int UnexcludedMasterCount; 

TIFSYNC_INSTANCE_TYPE ^MasterArray = NULL; 

ILTR_PFANOUT_MAXIMA pMaxima; 

PSTTI F_TYPE pstTIF; 

ILDFX_PHNDL phFile; 

INT32 Master; 

INT32 Instance; 

INT32 Next; 

INT32 FannedForWhom; 

INT32 MasterFlags; 

INT32 InstanceFlags; 

INT32 SavedOutcome; 

INT32 Outcome; 

INT32 UpdaterlDFldNum; 

INT32 UpdateelDFldNum; 

INT32 UpdateelDHashSlot; 

if ( I LTR_pILTI F == NULL) 

return TI F_ERR_PILTI F_IS_NULL; 

pstTIF = &ILTIF pstTIF; 
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phFile = TIFJiFile; 

Master = TIF_lCurrentRecNum; 

MasterFlags ~ TIFX_FLAGS (phFile, Master}; 

// get the internal outcome flags for the CIG containing the record 

INT32 CigOutcome «* MasterFlags & TI F_OUTCOME_SYNC_MASK; 

// get the unload outcome for the current record 

rc = ILTIFGetOutcome (tr, ^Outcome); 
if (rc != SUCCESS) 

return ILERROR (rc, rc); 

// if outcome isn't ADD or UPDATE we don't do fanning here. 

if ((Outcome & ( ILTI F_OUTCOME_ADD | ILTI F_OUTCOME_UP DATE ) ) 0) 
return ILERROR_L (Outcome, TI F_ERR_CANT_FAN_THIS_OUTCOME ) ; 

/* 

* Aug 6, 1996: Here we rely on a brute-force behavior of TIF, which is 

* that when we need to update a previously FANNED item, we do that by 

* deleting all the previously fanned instances and then re-fanning the 

* master to generate new instances (in effect we do a REPLACE operation) 

* This behavior is implemented by the TI FTableGetOutcomeForSync function 

* in ti f table . cpp . 

* Based on that knowledge of TIF's behavior, we know that whenever we 

* see an UPDATE outcome here, for a recurring item, that recurring 

* item has NOT previously been fanned to the current unloading side. 



// Determine what flag bits to set for the Fanned Instance Items. 

if (TIF_phase == TI F_PHASE_UNLOADING TO TARGET) 
{ 

Fanned ForWhom = TI F_IS_FANNED_FOR_TARGET; 
UpdaterlDFldNum = TIF_SourceIDFieldNum; 
UpdateelDFldNum = TIFJTargetlDFieldNum; 
Updated DHashSlot = TI F_TARGETID_HASH_SLOT; 
pMaxima = &TIF_TargetFanoutMaxima; 

} 

else if (TIF_phase TI F_PHASE_UNLOADING_TO SOURCE) 
( 

FannedForWhom = TI F_IS_FANNED_FOR_SOURCE; 
UpdaterlDFldNum = TIFJTargetlDFieldNum; 
UpdateelDFldNum = TI F_SourceIDFieldNum; 
UpdateelDHashSlot = TIF_SOURCEID_HASH_SLOT; 
pMaxima = &TI F_SourceFanoutMaxima ; 

} 

else 

return ILERROR (TI F_phase, TI F_ERR_BAD_STATE ) ; 

// set origin and CIG type of instances to be same as master 

InstanceFlags = MasterFlags & ( TI F_ORIGIN_MASK | TI F_CIG_TYPE_MASK) ; 
InstanceFlags |= FannedForWhom; 



/* 

* Read current record into memory (probably redundantly} . 

* Then fan out recurrence pattern to build master array. Also get a 

* copy of the BASIC recurrence pattern back in 'pRepeat*. This function 

* is responsible for freeing what 'pRepeat' points to, but it is NOT 

* responsible for worrying about there being an exclusion list to free. 



rc = TIFSyncFanOutRecurrencePattern ( pstTIF, Master, pMaxima, 

&MasterArray, 
&pRepeat , 

FALSE, // don't merge new+old fanouts 
SFullMasterCount , 
SUnexcludedMasterCount ) ; 

if (pRepeat NULL) 
delete pRepeat; 



if (rc != SUCCESS) 

LOG_ERR_AND_EXIT (rc, TI F_ERR_CANT_FAN } 

if ( FullMasterCount 0) 

// master generates no instances . . . unusual . . . 

EXIT WITH ERROR (SUCCESS); 
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// for UPDATE outcomes we need to do some very special surgery 

if (Outcome 4 ILTI F_OU T COM E_UP DATE ) 
{ 

rc = FanltemUpdate (pstTIF, &Master); 

if (rc !=* SUCCESS I I Master == TIF NOTSET) 

{ 

if (Maste*rArray != NULL) delete MasterArray; 
return rc; 

} 

) 

/* 

* Discard any old Fanned Instances attached to the Master 

* v 

Next = TI FX_NEXT_IN_FIG ( phFi le, Master); 

for (i=l; i <= TIF_MAX_FIG_SIZE; i++) // infinite loop protection 
{ 

if (Next == Master) 

break; 
else 

{ 

Instance = Next; 

TIFloglint (90, "Marking old FIG member Hid as garbage", Instance); 
T I FX_ FLAGS (phFile, Instance) |= T I F_ I S_G AR BAG E ; 
Next = TI FX_NEXT_IN_FIG (phFile, Instance); 

TI FX_NEXT_IN_FIG (phFile, Instance) = Instance; // singleton 

I 

// croak if FIG is too big or isn't circular 

if (i > TIF_MAX_FIG_SIZE) 

return ILERROR_L (Master , TI F_ERR_BROKEN_FIG ) ; 

// Now Master belongs to a singleton FIG 

TIFX_NEXT_IN_FIG (phFile, Master) = Master; 

/* 

* If the "updatee" system uses Unique IDs, put special I DHASH value into 

* the "updater" Master item to indicate that an ID-bearing FIG is attached 

* to it. 

* v 

if (UpdateelDFldNum != TI F_NOTSET ) 

TIFX(phFile, Master, UpdateelDHashSlot ) = TI FHASH_SPECIAL; 

/* 

* Use 'TIF_FirstRecord ' buffer for building Fanned Instances. 

* 1 

rc = TIFInitRecord (pstTIF, TI F_pFieldList , &TI F_Fi rstRecord ) ; 
if ( rc != SUCCESS) 

LOG_ERR_AND_EXIT (rc, TI F_ERR_ABNORMAL ) ; 

/* 

* Copy all non-repeat info from master into ' Fi rstRecord • buffer. 

* v 

FieldCount = TI F_FieldCount (pstTIF) ; 

for (fldnum = 0; fldnum < FieldCount; fldnum++) 

{ 

/* 

* Don't put REPEAT info into fanned instances, and don't copy 

* "other ID" into fanned instances. 



if ( (fldnum — TIF_RepBasicFieldNum) 
I I (fldnum TI F_RepExcl FieldNum) 
I I (fldnum »~ UpdaterlDFldNum) ) 
continue; 

if (TIF_FieldOffset (TIF_pCur rent Record, fldnum) !- TIF NOTSET) 
{ 

INT32 len => TI F_FieldLength ( TI F_pCurrentRecord, fldnum); 
IL_HPSTR p = TIF_FieldData(TIF_pCurrentRecord, fldnum); 
if (len > 0) 

{ 

rc = TIFRecordAddFieldValue ( pstTIF, TI F_pFi eld List, 

"", fldnum, 
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if (rc != SUCCESS) 

LOG ERR AND EXIT ( rc, TIF 



p, ien, 

FALSE, // do no character mapping 
&TIF_FirstRecord ); 

ERR ABNORMAL); 



/* 

* Generate and store fanned instances 



INT32 recnum; recnum - TIF_NOTSET; 
fannedCount - 0; 

for (i=0; i < Ful IMasterCount ; i + +) 
{ 

T I F_R ECOR D_VALU E_ PT R pRec; 

INT32 exdata [ TI F_EXDATA_PER_RECORD] ; 

INT32 InstanceDate; 

char szDateDispiay [ 50] ; 

if (MasterArray [i] , bExcludedFromMaster ) 
continue; 

// Increment the number of records in the file 
recnum = TIF TotalRecordCount++; 



InstanceDate = MasterArray [ i ]. 1 Da te; 

TIFlogll ( 60, "Creating Fanned Instance for %s, recnum=% Id" , 

IL_CodeDateToStdDisplay (InstanceDate, szDateDispiay), 
recnum ) ; 

// put adjusted dates into *TI F_p First Record 

rc = PutAdj ustedDates {pstTIF, InstanceDate, &TI F_Fi rstRecord } ; 
if (rc != SUCCESS) 

LOG_ERR_AND_EXIT (rc, TI F_ERR_AB NORMAL ) ; 

IL_MEMSET( ( I L_PANY ) exdata, 0, si zeof ( exdata )) ; 

exdata [TIF_FLAGS_SLOT] = InstanceFlags ; 
exdata (TI F_NEXT_IN_CIG_SLOT ] » recnum; 
exdata [TIF_NEXT_IN_SKG_SLOT] = recnum; 
exdata {TIF_NEXT_IN_FIG_SLOT] = recnum; 

pRec = TIF_pFi rstRecord; 

// compute hash values and start/end DTTM values 

rc = TIFComputeSearchKeyValues (pstTIF, pRec, exdata); 
if (rc != SUCCESS) 

LOG_ERR_AND_EXIT (rc, TI F_ERR_ABNORMAL ) ; 

rc = ILDFX_AddRecord (phFile, recnum, pRec, TI FREC_SIZE ( pRec ) , exdata); 
if (rc != SUCCESS) 

LOG_ERR_AND_EXIT (rc, TI F_ERR_ABNORMAL ) ; 

TIFX_NEXT_IN_FIG(phFile, recnum) = TI FX_NEXT_IN_FIG (phFile, Master); 
TI FX_NEXT_IN_FIG ( phFi le , Master) = recnum; 

f annedCount++; 



// singleton CIG 
// singleton SKG 
// singleton FIG 



/ + 

* By virtue of the fanning we've just done we've added a bunch of 

* pertinent records. 

* NOTE: this new count doesn't take effect until the next time the 

* user calls ILTI FHowManyRecords . 



TI F_Pert inentRecordCount += fannedCount; 

/* 

+ For UPDATE, the recurring master record is still pertinent (its 

* outcome is now DELETE). But for ADD the recurring master isn't 

* pertinent at all, so here we must reduce the count by 1. 

■*■ . , 

v/ 
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if (Outcome & ILTI F_OUTCOME_ADD) 
TI F_PertinentRecordCount -= 1; 

// push goalpost out for next unload scan but not for this scan 

if (recnum != TI F_NOTSET ) 

TIF_GoalPostForNextPass = recnum; 

/* 

* Mark the Master as Fanned for Source or Fanned for Target. 

* #/ 

rc = MarkAllRecurringCigMembers (phFile, Master, FannedForWhom) ; 
if (rc !=> 0) 

LOG_E R R_AN D_E X I T { rc, TI F_ERR_ABNORMAL ) ; 

/* 

* Put FAN entry in xlate.log 

* v 

SavedOutcome = TI F_CurrentRecordOutcome; 
TIF_CurrentRecordOutcome = I LTI F_OUTCOME_FANNED; 
rc = LogRecord (tr); 

TIF_CurrentRecordOutcome = SavedOutcome; 
Exit : 

if (MasterArray != NULL) delete MasterArray; 

ILTIFlogszulul ( "ILTIFFanltem count=%ld, rc=%ld", 

(UINT32) fannedCount, (UINT32) rc ); 

return rc; 
} // Fanltem 



/* 

* Name: FanltemUpdate 

#/ 

static int FanltemUpdate (PSTTIF TYPE pstTIF, INT32 *pMaster) 
{ 

ILDFX_PHNDL phFile = TIF_hFile; 
INT32 Master = *pMaster; 
INT32 cig[3] ; 
INT32 spt [3] ; 

INT32 Updater; // Item that instigated the UPDATE 

INT32 Updatee; // Item that is to be UPDATED 

INT32 Middleman; // Previous (History) Item 

INT32 Next; 
BOOLEAN .bChopItUp; 

// Identify the Source, Previous, and Target members of the CIG 

int rc = TI FBuildSPT (phFile, Master, cig, spt ) ; 
if (rc != SUCCESS) 

return I LERROR_L (Master, rc); 

// Identify the Updater and Updatee items 

if (TIF_phase == TI F_PHASE_UNLOADING TO TARGET) 
{ 

Updater = spt [TI F_SPT_S ] ; // source side is instigator 
Updatee = spt [TI F_SPT_T] ; 

} 

else 
{ 

Updater = spt [TI F_SPT_T] ; // target side is instigator 
Updatee = spt [TIF_SPT_S] ; 

} 



// Identify Middleman (who may or may not exist!!!) 

Middleman = spt [ TI F_SPT_P } ; 

// Guard against the impossible 

if (Updater == TI F_NOTSET ) 

return ILERROR_L (Master, TI F_ERR_ABNORMAL } ; 

// Look for Fanned Instances of the Updater 

Next = TI FX_NEXT_IN_FIG (phFile, Updater); 
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if { ILLOG_VERBOSE_ENOUGH (TI FLOG, 99) } 

{ 

char szText [100] ; 

IL_SPRINTF ( szText, "FanUpdate: %ld/%ld — ( % Id J — > %ld, %s", 

Updater, Next, Middleman, Updatee, 
~TIFCigName (TI FX_CIG_TYPE (phFile, Updater}) ); 
TIFlogsz {szText); 

) 

/* 

* Decide whether or not to chop the CIG into bits. Usually we do, but if 

* we're doing standard fanning during the UNLOAD-to-TARGET phase for an 

* UPDATE-BOTH CIG, we keep the CIG together and give it a new CIG type 

* v 

bChopItUp = FALSE; 

// if the Updater is fanned, we chop the CIG 

if (Next != Updater) 
bChopItUp = TRUE; 

// If CIG type isn't 132, we chop the CIG 

else if (TIFX_CIG_TYPE( phFile, Updater) != TI F_CIG_TYPE_1 32 ) 
bChopItUp = TRUE; 

// If we're unloading to Source, we chop the CIG. 

else if (TIF_phase == TI F_PHASE_UNLOADING_TO_SOURCE ) 
bChopItUp = TRUE; 

// Do the CIG-chopping approach if required 

if (bChopItUp) 
{ 

rc = FanltemCigChop (pstTIF, Updater, Updatee, Middleman); 
if (rc != SUCCESS) 
return rc; 

// If the Updater is fanned, we're all done now 

if (Next != Updater) 
{ 

*pMaster = TI F_NOTSET; 
return SUCCESS; 

} 



// If not doing the "CIG chop", set CIG type to "132 Fanned Target" 

else 
{ 

TIFloglint (80, "Setting CIG type for %ld, et. al. to 13F", Updater); 
SetCigType (phFile, Updater, TI F_CIG_TYPE_13 F) ; 
SetCigType (phFile, Updatee, TI F_CIG_TYPE_13 F) ; 
SetCigType (phFile, Middleman, TIF_CIG_TYPE 13F) ; 

} 

/* 

* Now that we have chopped up the CIG, the rest of this UPDATE operation 

* is just like an ADD operation. 

* + 1 

TIFlog2ints ( 80, "Replacing Master Hid; will fan %ld to create instances", 

Updatee, Updater ) ; 
+ pMaster = Updater; 
return SUCCESS; 

} // FanltemUpdate 



* Name: FanltemCigChop 

* v 

static int FanltemCigChop ( PSTTI F_TYPE pstTIF, INT32 Updater, 

INT32 Updatee, INT32 Middleman ) 

( 

ILDFX_PHNDL phFile = TIF_hFile; 
INT32 newCIGType; 
INT32 DeleteUpdateeBit; 
int rc; 
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TIFlog3ints ( 80, " FanltemCigChop %ld %ld %ld", 

Updater, Updatee, Middleman ); 

// bitmask used to clear away old bits from items... 

ffdefine UCLRMASK ( TI F_OUTCOME_SYNC_MASK \ 

t TIF_CIG_TYPE_MASK \ 

I T I F_ I S _ FAN N E D_ FO R_T AR G E T \ 

I TIF_IS_FANNED_FOR_SOURCE \ 

I T I F_K FM_AN Y 1 2 \ 

I T I F_IS_GOBBLED_UP_IN STANCE ) 

if (TIF_phase TIF_PHASE UNLOADING TO TARGET) 
( " ~ 

newCIGType = TIF_CIG_TYPE_100; // added 

DeleteUpdateeBit = TIF2 DELETE TARGET; 

} 

else 
{ 

newCIGType = TI F_CIG_TYPE_001 ; // added 

DeleteUpdateeBit = TIF2 DELETE SOURCE; 

} 

// Break the CIG into 3 separate singletons 

TIFX_NEXT_IN_CIG (phFile, Updater) = Updater; 
TIFX_NEXT_IN_CIG( phFile, Updatee) = Updatee; 
if (Middleman != TI F_NOTSET ) 

TIFX_NEXT_IN_CIG (phFile, Middleman) - Middleman; 

// Mark the Middleman and any instances attached to it as garbage 

if (Middleman TI F_NOTSET ) 
{ 

rc = TIFMarkAllFigMembers (phFile, Middleman, 0, TI F_IS_GARBAGE, 0); 
if (rc != SUCCESS) return ILERROR L (Middleman, rc); 

} 

// Make the Updater Master and any Updater Fanned Instances, 

// into ADDs, and clear other bits that no longer apply. 

rc = TIFMarkAllFigMembers (phFile, Updater, UCLRMASK, newCIGType, 0); 
if (rc != SUCCESS) return ILERROR_L (Updater, rc); 

// Make the Updatee Master into a "DELETE-ME" Singleton 

TIFX_FLAGS2( phFile, Updatee) |= DeleteUpdateeBit; 

/* 

* If the Updater is fanned then we don't actually do a traditional 

* fanning operation at all. Instead we get rid of all the recurring 

* masters, by chopping off the top-level CIG, then we turn all the 

* Updater's fanned instances into ADDs. If the HistoryMaster has 

* any fanned instances hanging off it then they become garbage. 

* BUG: when we do this "chopping off" thing while fanning to TARGET we 

* lose track of any need to update the SOURCE. So an UPDATE-BOTH 

* outcome that passes through this code will NOT be fully executed. 



INT32 Next; Next = TI FX_NEXT_IN_FIG (phFile, Updater); 

if (Next != Updater) 

( 

// find out how many fanned instances there are in the FIG 

int fannedCount = 0; 
int i ; 

for (i=l; i TI F_MAX_FIG_SI2E; // infinite loop protection 

f annedCount++ ; 

Next = TI FX_NEXT_IN_FIG ( phFi le, Next); 
if (Next == Updater) 
break; 

} 

// croak if FIG is too big or isn't circular 

if (i > TIF_MAX_FIG_SIZE) 

return ILERR0R_L (Updater , TI F_ERR_BROKEN_FIG ) ; 

TIFlog3ints ( 80, 

"Removing masters Hid, lid; %d instances will ADD across", 
Updater, Updatee, fannedCount ); 



on Source Side 



on Target Side 
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// Turn the Updater (synthetic) Master into a garbage singleton. 

// The Updater Fanned Instances will be added 

TIFX_FLAGS (phFile, Updater) |= T I F_I S_GARBAGE ; 

// Adjust the pertinent record count by however many fanned 

// instances we'll be adding. Note that the MASTER that we'll 

// De deleting is still included in the pertinent record count. 

TIF_PertinentRecordCount += fannedCount; 



return SUCCESS; 
} // FanltemCigChop 



/* 

* Name: SetCigType 

* _ v 

static void SetCigType ( ILDFX_PHNDL phFile, 

INT32 Item, 
INT32 CigType ) 

( 

TIFX_FLAGS (phFile, Item) &= ~TI F_CIG_TYPE_MASK; 
TI F*X_FLAGS (phFile, Item) |= CigType; 

} 



/* 

* ILTIFRemoveRecord 



* To implement a 'chooser* function, for SmartMerge, you must call 

* ILTIFStartNextPhase (tr, TI F_PHASE_CHOOSING_RECORDS ) , just before calling 

* ILTI FEndLoad ; then you can read the incoming (source) records, just as if 

* you were in the UNLOAD-to-TARGET phase, and then for any records that you 

* want to remove (so that they aren't visible to the conflict resolution 

* and unload-to-target phases) you simply call ILTIFRemoveRecord. 

* If you want to remove the "current" record, pass IRecNum = -1. 

* For example: 
+ 

* rc = ILTIFReadNextRecord (tr); 

* rc = ILTIFRemoveRecord (tr, -1); 
*• 

* If you want to remove an arbitrary record, pass actual recnum. 

* For example: 

* rc = ILTIFReadNextRecord (tr); 

* rc = ILTI FRecordNum (tr, & IRecNum) ; 

* rc = ILTIFRemoveRecord (tr, IRecNum); 
+ 

+ When your 'chooser' function is finished, call I LTI FEndLoad, etc. 
+■ 

v Records that you have 'removed' will show up in TIF. LOG with 

* ODD Flags values (the GARBAGE bit is 0x00000001). 
+ 

TIF_DLL_£NTRYPOINT ILTIFRemoveRecord (ILTR PTRANSL tr, INT32 IRecNum) 
{ 

int rc; 
int loglevel; 
PSTTI F_TYPE pstTIF; 
ILDFX_PHNDL phFile; 



/ 



if (ILTR_pILTIF == NULL } 

return TI F_ERR_PILTI F_IS_NULL; 

pstTIF » &ILTIF_pstTIF; 
phFile = TIF_hFile; 

// make sure we're in the right phase for doing this 

if (TIF_phase != TI F_PHASE_CHOOSING_RECORDS ) 

return I LERROR ((int) TIF_phase, TI F_ERR_WRONG_PHASE > ; 

// allow -1 to specify the CURRENT record 
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if {IRecNum == -1} 

IRecNum = TI F_CurrentRecordNumbe r ; 

// make sure that we have a valid record^ to work with 

rc = TIFValidateRecord (pstTIF, IRecNum); 

if (rc == SUCCESS) 

{ 

// mark the 'removed' record as garbage 

TI FX_ FLAGS (phFile, IRecNum) |= T I F_ I S_G AR BAG E ; 

// if record belongs to an SKG, remove it from it 

rc = TIFremoveFromSKG (phFile, IRecNum, NULL); 

} 

// decide how badly we want to log this activity, and log it 

if (rc == SUCCESS) 

loglevel = 80; 
else 

loglevel = ILLOG_MINOR_ERROR; 

TIFlog2ints ( loglevel, "ILTIFRemoveRecord ( %ld ) ==> rc=%ld", 

(UINT32) IRecNum, (UINT32) rc ); 

return rc; 
} // ILTIFRemoveRecord 



#ifdef USE_ILCR_STUBS 

extern INT32 stubFi rst I tern; // see TIF_ILCR.CPP 

int IL_DECL ILCRBegin ( ILTR_PTRANSL tr, IL HINST h, BOOLEAN b) 
{ 

ILTI Flogsz ( "ILCRBegin stub called' 1 ); 
stubFi rstltem = TI F_NOTSET; 
return 0; 

i 

int IL_DECL ILCREnd ( ILTR_PTRANSL tr, IL HINST h) 
{ 

ILTIFlogsz ( "ILCREnd stub called"); return 0; 

} 

ffendif 
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/* 

* Name: TIF.CPP 

* Purpose: This file contains modules that access ILDFX in a convenient way 

for the generic translator module. The routines within are 

* responsible for writing and reading the Tranlator Intermediate 

File (TIF) . 

+ 

The TIF is set up like a normal ILDFX file with the addition that 

* the data stored is in the record format described below: 



* 



*■ 



+ 

-4- 

■*■ 



Record Header 

IRecSize - LONG - Size of Record 
FieldCount - INT16 - Number of Fields 

INextOffset - LONG - points just beyond last occupied byte 
Field Value Headers ( 1 to FieldCount of the following) 
fieldOffset - LONG - offset to where field data is 
lFldSize - LONG - Size of the data 
Field Data — all packed together 

The first record in the file stores the field list description 
(see TIF.H) . 

Functions (local functions indented): 

FieldListAlloc 

EnlargeFieldList 
TI FRecordAdd FieldVa lue 

Ident if yDi st inguished Fields 

IdentifyDe fault Fie Ids 

LogCodeVersion 

Firstlnit 

Secondlni t 
TIFInit 

TIFLoadKStruct 
WrapUpSetUp 
PhaseName 
SetLoadingRange 

ComputeSourceOutcomeCounts 
TIFStartNextPhase 
TIFSaveFanoutMaxima 
TIFTerminate 
TIFFreeBuf fers 
TIFInitRecord 
TIFHowManyField 
TIFGetFieldName 

Ref lect Sou rceAtt ribs 
TIFDef ineOneField 
TIFLookUpFieldDefinition 
TIFPutFieldBylndex 

UseFactoryDef ault 
TIFFillDefaults 
TIFRetrieveRecord 
TIFBuildSPT 
TI FSetRecordNumbers 
TI FCopyUnmapped Fields 
TIFGetRecord 
TIFRetrieveFieldBylndex 

Ret ri eve FieldVa lue 
TIFFieldChanged 
TIFGetField 

Get FieldBylndex 

SelectRecord 
TIFGetViewField 

Consider Smart Merge I tern 

ConsiderThisItem 
TIFComputePertinentRecordCount 
TIFPositionToNext Record 
TIFValidateRecord 
TIFGetOutcome 

LoglLTRFieldList 



* Author: Ken Dobson, Copyright (c) IntelliLink Corporation, 1994 
+ Author: David Boothby, Copyright (c) IntelliLink Corp., 1995 
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ffinclude "iltr.h" 
^include M tifsync2.h" 

ffdefine LOG_ERR_AND_EXIT ( el, e2J { rc=ILERROR (el , e2); goto Exit; } 

static int ConsiderThisItem{ PSTTIFJTYPE pstTIF, INT32 Item); 

static int LoglLTRFieldList ( ILTR_PTRANSL tr); 

static int Ret rieveFieldValue ( PSTTI F_TYPE pstTIF, 

TIF_FIELDLIST_PTR pFL, 
TIF_RECORD_VALUE_PTR pRecord, 
INT16 fieldNumber, 

INT32 IL_DIST *pl FieldLength, // OUT 
ILUT_PBUFFER pField ); 

static int Get FieldBylndex 
( PSTTI F_TYPE pstTIF, 
int f ieldnum, 
int nWhich, 
LONG *pl FieldLength, 
ILUT_PBUFFER pField }; 

static int SelectRecord ( PSTTI F_TYPE pstTIF, 

int fieldnum, 
int nWhich, 
int *pnSelect, 
BOOLEAN *pbMexCurrent ) ; 

/* 

* Name: FieldListAlloc 

* v 

static int FieldListAlloc ( PSTTI F_TYPE pstTIF, 

TIF_FIELDLIST_PTR *ppFieldList , 
IL_HANDLE *phFieldList , 
INT16 fieldcount ) 

{ 

size_t mysize = sizeof ( TI F_FIELDLIST } + 

{ sizeof ( TIF_FIELD_DESC ) * fieldcount ); 

// Allocate an initial field info buffer 

*ppFieldList = ( TI F_FIELDLIST_PTR } IL_ALLOC (mysize, *phFieldList ) ; 
if (*ppFieldList == NULL) 

return ILERROR_L ((INT32) mysize, TI F_ERR_MEM ) ; 

// Clear the field info section 

IL_MEMSET ( *ppFieldList, 0, mysize); 

for (INT16 i=*0; i < fieldcount; i++) 
( 

( *ppFieldList } ->pFieldDescs [ i ] . FieldNum « TIF_NOTSET; 
( *ppFieldList ) ->pFieldDescs [ i ] . RelatedFieldNum = TIF NOTSET; 
} . 

(*ppFieldList)->ActualFieldCount = 0L; 
(*ppFieldList ) ->AllocatedFieldCount = fieldcount; 

return SUCCESS; 
} // FieldListAlloc 



/* 

* Name: EnlargeFieldList 



static int EnlargeFieldList ( PSTTI F_TYPE pstTIF, 

TIF_FIELDLIST_PTR *ppFieldList , 
IL_HANDLE *phFieldList ) 

( 

INT16 OldCount = ( *ppFieldList ) ->A1 locatedFieldCount ; 
INT16 NewCount = OldCount + TI F_FIELD_COUNT_INCREMENT; 
size_t NewSize = sizeof ( TI F_FIELDLIST ) + 

( sizeof ( TIF FIELD DESC ) * NewCount ); 
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♦ppFieldList = ( TI F_FIELDLIST_PTR i 

IL_REALLOC {NewSize, *phFieldList , *ppFieldList ) ; 
if (*ppFieldList NULL) 

return ILERROR_L {(INT32) NewSize, TI F_ERR_MEM) ; 

// Clear the new part of the field info section 
IL_MEMSET( & (*ppFieldList ) ->pFieldDescs [OldCount] , 0, 

sizeof (TIF_FIELD_DESC) * TI F_FIELD_COUNT_INCREMENT }; 

for (INT16 i=01dCount; i < NewCount; i++ ) 
{ 

(*ppFieldList)->pFieldDescs[i] .FieldNum *= TI F_NOTSET; 
(*ppFieldList ) ->pFieldDescs { i ] . RelatedFieldNum = TI F_NOTSET; 

} 

(*ppFieldList ) ->AllocatedFieldCount = NewCount; 
return SUCCESS; 
} // EnlargeFieldL'ist 



/* 

* Name: TI FRecordAddFieldValue 

* You can either pass a Field Name, in 2nd arg, or pass a Field Number, 

* in 3rd arg. When passing a Field Number, put NULL in the 2nd arg. 

* NOTE: for non-binary fields, the 'IData' arg is usually ignored ... we use 

* IL_STRLEN to compute the length of non-binary 'pData'. But if 

* 'IData' has the TI F_LENGTH_GUARANTEED bit set then we respect IData. 
* — _ */ 

int TI FRecordAddFieldValue ( PSTTI F_TYPE pstTIF, 

TI F_FIELDLIST_PTR pFL, 

IL_PSTR szFldName, // supply either a field name... 

INT16 fieldnum, // ...or a field number 

IL_PSTR pData, 
INT32 Length, 

BOOLEAN DMapCharsIfNonBinary, 
ILUT_PBUFFER pRecord ) 

{ 

// grab the * LengthGuaranteed ' bit 

BOOLEAN bUseSTRLEN = ((Length & TI F_LENGTH_GUARANTEED) == 0); 
Length &= -TI F_LENGTH_GUARANTEED; 

INT32 Size; 
int rc; 

ILTR_PTRANSL tr = TIF_tr; 

TI F_RECORD_VALUE_PTR pRecData = ( TI F_RECORD_VALUE_PTR ) ( pRecord->pBu f f er ) ; 

if (pData == NULL) 

return TI F_ERR_PDATA_IS_NULL; 

/* 

* If field is specified by name, look up fieldnum in TIF Field List. 

+ _ + 1 

if ( IL_STRING_ISNT_NULL { szFldName ) ) 
{ 

// Loop through the fields until we find the one we are looking for 
fieldnum = TI F_NOTSET; 

INT16 fieldcount = TI F_FieldCount2 ( pFL ) ; 
for (INT16 i = 0; i < fieldcount; 

if (IL_STRINGS__EQUAL( szFldName, TI F_FieldName2 ( pFL, i))) 

{ 

fieldnum = i; 
break; 

} 

if (fieldnum == TI F_NOTSET } 

return TI F_ERR_BAD_FLDNAME; 

} 

if ( TI F_FieldType2 (pFL, fieldnum) == I LX_TY PE_BINARY ) 

// for binary fields Size=Length (no terminator added) 



Copyright ©1996 Puma Technology, Inc. All Rights Reserved. 



Tif.cpp 



Page 4 of 53 



Size = Length; 
else 
{ 

/* 

* If field is non-binary, set Length & Size and do character mapping 



if (bUseSTREEN) 

Length « IL_STRLEN ( pData ) ; 

if (bMapCharsIfNonBinary) 
{ 

/* 

* Do character mapping, and put result string is ILTR_pTmpBuf . 

* ILTR_pTmpBuf is a reusable buffer (to minimize heap activity) 



rc = ILMapChars ( pData, 

Length, 

ILTR_szLineTerm, // old line terminator, e.g. \r\n 
ILTR_EOS_STR, // new line terminator, e.g. \xFF 
ILTR_sExportCharMap. buffer, 
ILTR_MAX_FIELDLENGTH, 
ILTR_pTmpBuf ) ; 

if (rc !- SUCCESS) 

return ILERROR (rc, ILTR_ERR_INTERNAL_ERROR ) ; 

pData = (IL_PSTR) ( ILTR_pTmpBuf->pBu f f er ) ; 

/* 

* Set Length (ALWAYS!!) — ILMapChars always null-terminates. For 

* example, if input to ILMapChars is pData="Hello", Length=2, 

* then output is pData="He" ( null -terminated ) . 

* v 

Length = IL_STRLEN ( pData ) ; 

} 

// for text fields Size=Length+l (terminator added) 

Size = Length+1; 

} 

if ( (TIF_FieldOf fset (pRecData, fieldnum) ! = TI F_NOTSET ) 
&& (TIF_FieldLength(pRecData, fieldnum) >=* Size) ) 

{ 

/* 

* New value will fit where old value was stored. Note that we lose 

* track of the full available size. For example, if you first store 

* an 80-byte field value, then replace that with a 10-byte field value, 

* then yet again replace that with a 20-byte value, that last storage 

* event will cause us to give up on the original space, cuz it doesn't 

* look big enough any more. We then assign a new offset for the field, 

* at the end of the data block for the current record. 

* This may seem a big ugly, but it keeps things simple, and handles 

* same-size replacements effectively. 

* We could keep track of wasted space, so someday we could do garbage 

* collection when wasted space in a record exceeds some threshold. 

* + 1 

; // don't bother counting wasted bytes 

) 

else 
{ 

/* 

* need to append this field value to end of this record's data block. 

* if there was a previous field value, the old space is now wasted. 

* v 

// Get current size of record buffer 

INT32 RecordSize = TI FREC_SIZE ( pRecData ) ; 

// New field value will be appended to end of record; store offset 
TIF_FieldOf fset (pRecData, fieldnum) = RecordSize; 

// Calculate how big record buffer needs to be... 

RecordSize +» Size; 

// Make sure buffer is big enough; expand it if necessary 

rc = ILUT_GetBuf fer (pRecord, RecordSize); 
if (rc != SUCCESS) 
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return ILERROR_L (RecordSize, TIF_ERR_MEM) ; 

// expansion may have moved the buffer, so re-set local pointer 

pRecData = { T I F_RECOR D_VALU E_ PT R ) ( pRecord->pBuf f er ) ; 

// Store expanded record size 

TIFREC_SIZEfpRecData ) = RecordSize; 

} 

// Copy new field data into record data block at the selected offset 
IL_PSTR pWhere; 

pWhere = TI F_FieldData (pRecData, f ieldnum) ; 
I L_MEMCPY ( pWhe re , pData, (size_t) Length); 

// NULL-terminate Text Fields 
if (Size == Length+1) 
pWhere [ Length] = 0; 

// Save the new size for this field 
TIF_FieldLength (pRecData, f ieldnum) = Size; 

return SUCCESS; 
} // TIFRecordAddFieidValue 



/* w 

* Name: Identi f yDistinguishedFields 

* Find all distinguished fields; record the index of each 

* such field in the *pstTIF structure. 

* This applies to Start&End Date&Time, to ID fields, 

* and to the "View" Field (whose value is used to identify 

* a record in the logfile) . 

* When a Start or End Date or Time Field is a duration, relative to 

* another field, things are a little un-obvious, as per the following 

* example: 

■*■ 

+ Support Field 7 is a StartTime; Type=TIME, associ a tedField=NONE, 

* with isStartDateOrTime=TRUE. 

* and Field 10 is a Duration; Type=NUMBER, associatedField=7 , 

* with isEndDateOrTime=TRUE. 

* Then we know that Field 10 is n EndTime field because it has 

* isEndDateOrTime=TRUE and the type of its asssociated field is TIME. 
v 

static int IdentifyDistinguishedFields ( PSTTIF TYPE pstTIF ) 
{ 

ILTR_PTRANSL tr = TIF_tr; 

INT16 fieldcount = TI F_FieldCount ( pstTI F) ; 

for (INT16 fieldnum = 0; fieldnum < fieldcount; fieldnum++) 
{ 

IL_PSTR fieldname = TIF_FieldName (pstTIF, fieldnum); 
TIF_FIELD_DESC_PTR pFieldDesc = &TIF_ Field Desc(pstTIF, fieldnum); 

// Kludgy way of setting the Source and Target ID flags 
if ( IL_STRINGS_EQUAL ( fieldname, TIF SOURCEID FIELDNAME ) ) 
{ 

if (TIF_SourceIDFieldNum == TI F_NOTSET ) 
{ 

TIF_SourceIDFieldNum = fieldnum; 

TIF_bSyncUsingSourceIDs = TRUE; // unless overridden later 
continue; 

} 

else 
{ 

TIFlogszulul ( "Error setting SourcelDFieldNum to #%ld (already set to Hid)", 

(UINT32) fieldnum, (UINT32 ) TI F_SourceIDFieldNum ); 

return I LERROR_L (TIF_SourceIDFieldNum, TIF ERR DUP DISTING FIELD); 
} - - _ _ 

} 

else if (IL_STRINGS EQUAL ( fieldname , TIF TARGETID FIELDNAME ) ) 
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if (TIFJTargetlDFieldNum == TIF_NOTSET) 
{ 

TIFJTargetlDFieldNum = fieldnum; 

TIF_bSyncUsingTargetIDs = TRUE; // unless- overridden later 
continue; 

} 

else 
{ 

TIFlogszulul ( "Error setting Target I DFieldNum to Hid (already set to Hid)", 

(UINT32) fieldnum, (UINT32 ) TIFJTargetlDFieldNum ) ; 

return ILERROR_L ( TI FJTarget IDFieldNum, TIF ERR DUP DISTING FIELD); 
} - _ _ _ 



else if ( IL_STRINGS_EQUAL( fieldname, ILTR REP BASIC)) 
{ ~ " 

if (TIF_RepBasicFieldNum == TI F_NOTSET ) 

{ 

TIF_RepBasicFieldNum = fieldnum; 
continue ; 

} 

else 
{ 

TIFlogszulul ( "Error setting RepBasicFieldNum to Hid (already set to Hid)", 

(UINT32) fieldnum, ( UINT32 ) TI F_RepBasicFieldNum ) ; 
return ILERROR_L (TI F_RepBasicFieldNum, TI F_ERR_DUP_DISTING_FIELD) ; 



else if (IL_STRINGS_EQUAL( fieldname, ILTR REP XDATE ) ) 
{ 

if ( TI F_RepExcl FieldNum » TI F_NOTSET ) 
{ 

TIF_RepExcl FieldNum = fieldnum; 
continue; 

} 

else 
{ 

TIFlogszulul ( "Error setting RepExcl FieldNum to Hid (already set to Hid)", 

(UINT32) fieldnum, { UINT32 ) TI F_RepExcl FieldNum }; 

return ILERROR_L (TI F_RepExcl FieldNum, TIF ERR DUP DISTING FIELD); 
} - _ _ 



else if (IL_STRINGS_EQUAL( fieldname, ILTR FLD DELTA)) 
f 

if (TIF_TargetDeltaFieldNum == TI F_NOTSET ) 
{ 

TIF_TargetDeltaFieldNum = fieldnum; 
continue ; 

} 

else 
{ 

TIFlogszulul ( "Error setting TargetDeltaFieldNum to Hid (already set to 

Hid)", 

(UINT32) fieldnum, ( UINT32 ) TI F_Target Delta FieldNum ) ; 
return ILERROR_L (TI F_Target Delta FieldNum, TIF ERR DUP DISTING FIELD); 

} 



else if (IL_STRINGS_EQUAL( fieldname, TIF USFN PREFIX ILTR FLD DELTA)) 
{ " " 

if (TIF_SourceDeltaFieldNum ===== TIF NOTSET) 

{ 

TIF_SourceDeltaFieldNum » fieldnum; 
continue; 

} 

else 
{ 

TIFlogszulul ( "Error setting SourceDelta FieldNum to Hid (already set to 

Hid) 

(UINT32) fieldnum, ( UINT32 ) TI F_SourceDelt a FieldNum ) ; 

return ILERROR_L ( TI F_SourceDel ta FieldNum, TIF ERR DUP DISTING FIELD); 
} - - _ _ 
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} 

/* 

* Unlike the preceding SPECIAL fields, which may be "distinguished" 

* w/o being MAPPED, all of the remaining "distinguished field" cases 

* require that the field be MAPPED. So don't consider any unmapped 

* fields aS candidates for being distinguished, beyond this point. 



else if (pFieldDesc->ExtraAttributes & TI FEA_ISNT_MAPPED) 
continue; 

// If it is a view field, save the View index 

if (pFieldDesc->FieldAttributes & ILTB_ATT_VIEW) 
{ 

if (TIF_ViewFieldNum == 0) 

TIF_ViewFieldNum = fieldnum; 
else 
( 

TIFlogszulul ( "Error setting ViewFieldNum to Hid (already set to #%ld)", 

(UINT32) fieldnum, ( UINT32 ) TI F_ViewFieldNum ); 
return ILERROR_L ( TI F_ViewFieldNum, TI F_ERR_DUP_DISTING FIELD); 

} 

} 

/* 

* For non-relative fields, rootField is same as field. But for 

* relative fields rootField is the associated field. 

* v 

IL_PSTR rootfieldname = TI F_RelatedFieldName (pstTIF, fieldnum); 
INT16 root fieldnum; 

if (IL_STRING_IS_NULL( root fieldname) ) 
{ 

rootfieldnum = fieldnum; 

TIF_RelatedFieldNum(pstTIF, fieldnum) = TI F_NOTSET; 

} 

else 
{ 

rootfieldnum = TI F_NOTSET; 

for (int i = 0; i < fieldcount; i + +) 

if { IL_STRINGS_EQUAL ( TI F_FieldName (pstTI F, i), rootfieldname)) 

{ rootfieldnum = i; break; } 

TIF_RelatedFieldNum(pstTIF, fieldnum) = rootfieldnum; 

if (rootfieldnum == TI F_NOTSET ) 

/* 

* We get here if the root field that the distinguished field 

* is relative to is not mapped. 

+ *. J 

continue; //do not return TI F_ERR_CANT_FIND ROOT FIELD; 

} 

int root f ieldtype; 

rootf ieldtype = TI F_FieldType (pstTIF, rootfieldnum); 

if ( rootf ieldtype == ILX_TYPE_DATE ) 
{ 

if (pFieldDesc->FieldAttributes & ILTB_ATT_STARTDATETIME ) 
( 

if (TIF_StartDateFieldNum == TI F_N0TSET ) 

TIF_StartDateFieldNum = fieldnum; 
else 

< 

TIFlogszulul ( "Error setting Start DateFieldNum to ff%ld (already set to 

#%ld) ", 

(UINT32) fieldnum, { UINT32 ) TI F_StartDa teFieldNum ) ; 
return ILERROR_L (TI F_Start DateFieldNum, TIF_ERR_DUP DISTING FIELD); 

} 

} 

else if (pFieldDesc->FieldAttributes & ILTB_ATT_ENDDATETIME ) 
( 

if (TIF_EndDateFieldNum == TIF_NOTSET) 

TIF_EndDateFieldNum « fieldnum; 
else 
{ 
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TIFlogszulul ( "Error setting EndDateFieldNum to Hid (already set to 

Hid)", 

(UINT32) f ieldnum, ( UINT32 ) TI F_EndDa teFieldNum ); 
return ILERROR_L ( TI F_End Da teFieldNum, TIF ERR_DUP_DISTING FIELD); 

> 

) 

else if rpFieldDesc->FieldAttributes & I LT B_ATT_ALARMRE LAT E D ) 
{ 

if (TIF_AlarmDateFieldNum TI F_NOTSET } 

TI F_AlarmDateFieldNum = f ieldnum; 
else 
{ 

TIFlogszulul { "Error setting AlarmDateFieldNum to Hid {already set to 

Hid) 

(UINT32) fieldnum, (UINT32 ) TIF_AlarmDateFieldNum ); 
return ILERROR_L ( TI F_AlarmDa teFieldNum, TIF ERR DUP DISTING FIELD); 

} 

} 

} // if (rootf ieldtype « ILX_TYPE_DATE ) 

else if {rootf ieldtype ILX_TYPE_TIME) 
{ 

if (pFieldDesc->FieldAttributes & ILTB_ATT_STARTDATETIME ) 
{ 

if (TIF_StartTimeFieldNum == TI F_NOTSET ) 

TIF_StartTimeFieldNum = fieldnum; 
else 
{ 

TIFlogszulul ( "Error setting StartTimeFieldNum to Hid (already set to 

Hid) ", 

(UINT32) fieldnum, ( UINT32 ) TI F_Sta rtTimeFieldNum ) ; 
return ILERROR_L ( TI F_Sta rtTimeFieldNum, TI F_ERR DUP DISTING FIELD); 

} 

) 

else if (pFieldDesc->FieldAttributes & ILTB_ATT_ENDDATETIME ) 
{ 

if (TIF_EndTimeFieldNum ™ TIF_NOTSET) 

TIF_EndTimeFieldNum = fieldnum; 
else 

{ 

TIFlogszulul ( "Error setting EndTimeFieldNum to Hid (already set to 

Hid) ", 

(UINT32) fieldnum, ( UINT32 ) TI F_EndTimeFie ldNum ); 
return ILERROR_L (TIF_EndTimeFieldNum, TI F_ERR_DUP DISTING FIELD); 

) 

} 

else if (pFieldDesc->FieldAttributes & ILTB_ATT_ALARMRELATED ) 
{ 

if (TIF_AlarmTimeFieldNum == TI F_NOTSET ) 

TIF_AlarmTimeFieldNum = fieldnum; 
else 
{ 

TIFlogszulul ( "Error setting Ala rmTimeFieldNum to Hid (already set to 

Hid) ", 

(UINT32) fieldnum, (UINT32 ) TI F_Ala rmTimeFieldNum ) ; 
return ILERROR_L (TIF_AlarmTimeFieldNum, TI F_ERR_DUP DISTING FIELD); 

} 



} // else if ( rootf ieldtype ILX_TYPE_TIME) 

else if ( rootf ieldtype == ILX_TYPE_BOOL) 
{ 

if (pFieldDesc->FieldAttributes & I LT B_ AT T_ ALARM RELATED) 
{ 

if (TIF_AlarmFlagFieldNum == TI F_NOTSET ) 

TIF_AlarmFlagFieldNum = fieldnum; 

else 

{ 

TIFlogszulul ( "Error setting AlarmFlagFieldNum to Hid (already set to 

Hid) ", 

(UINT32) fieldnum, (UINT32 ) TI F_AlarmFlagFieldNum ); 
return ILERROR_L (TIF_AlarmFlagFieldNum, TI F_ERR DUP DISTING FIELD); 

} 
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Hid) " 



} 

if ( ILTR_nFunction ILTR_TODO 

&& (pFieldDesc->FieldAttributes & I LT B_ATT DONE FLAG ) ) 

{ 

if {TIF_DoneFlagFieldNum == TIF_NOTSET) 

TI?_DoneFlagFieldNum - fieldnum; 
else 

{ 

TIFlogszulul ( "Error setting DoneFlag FieldNum to #%ld (already set to 

(UINT32) fieldnum f (UINT32 ) TI F_DoneFlag FieldNum ) ; 
return ILERROR_L ( TI F_Done Flag FieldNum, TIF ERR DUP DISTING FIELD); 
} ~ " 

} 

} // else if ( rootf ieldtype ILX_TYPE_BOOL) 

} // end for loop 

// verify that _subType fields were found (by TI FDefineOne Field ) 

if (TIF_SubTypeFieldNum == TI F_NOTSET ) 

return ILERROR ( 0, TI F_ERR_NO_SUBTYPE_FIELD} ; 

if ( (ILTR_phase != ILTR_PHASE_ILX_V3_M0DE ) 

&& (TIF_SourceSubTypeFieldNum == TIF_NOTSET) ) 
return ILERROR ( 1 , TI F_ERR_NO_SUBTYPE_FIELD) ; 

// determine whether translators are FastSync-capable 

TIFJoSourcelsFastSyncAble = ( TI F_SourceI DFieldNum != TI F_NOTSET 

&& TIF_SourceDeltaFieldNum != TIF_NOTSET ); 

TIF_bTargetIsFastSyncAble = ( TI F_Ta r get I DFieldNum != TIF_NOTSET 

&& TIF_TargetDeltaFieldNum != TIF_NOTSET ); 

return SUCCESS; 
} // Identi f yDistinguishedFields 



/ + 

* Name: Identi fyDefault Fields 

* For all fields that get their default values from other fields, set 

* the TI F_FieidToGet Def aultValueFrom member of the field descriptor. 

* NOTE: this function pays no attention to the "Value Required" field 

* attribute. But having Default Value rules set up is all for 

* nought if the "Value Required" attribute isn't set. The 

* TIFFi 11 Defaults function will only supply default values for 

* fields that lack a value and have "Value Required" attribute. 



static int Identif yDef ault Fields (ILTR PTRANSL tr, PSTTIF TYPE pstTIF) 
{ 

int fieldcount = TI F_FieldCount (pstTIF) ; 

for (int fieldnum = 0; fieldnum < fieldcount; fieldnum++) 
( 

/* 

* Initial assumption, for every field, is that is does NOT get a 

* default value from anywhere. 



TIF_FieldToGetDefaultValueFrom(pstTIF, fieldnum) = TIFJMOTSET; 

IL_PSTR szDefault = TI F_FieldDef aul tValue ( pstTI F, fieldnum); 

if (IL_STRING_IS_NULL( szDefault ) || ( szDefault [ 0} != *\\*)) 

/* 

* If default value is NULLSTRING, or doesn't start with BACKSLASH, 

* nothing needs doing. 



cont inue; 

// get ZERO-based index into Field Map. 

int nlnFieldMap; nlnFieldMap = atoi ( fiszDef ault [ 1 ] ) - 1; 

// get Internal Name for the Field to get default value from 

char FieldName[ILTR MAX FLDNAME+1 ] ; 



Copyright ©1996 Puma Technology, Inc. All Rights Reserved. 



Tif. cpp 



Page 10 of 53 



int rc; re = ILFldGet IntName (tr, nlnFieldMap, FieldName); 

if {rc != SUCCESS) 

{ 

TIFlogszulul ( "Field Hid used as default by field Mid does not exist", 

(UINT32) nlnFieldMap+l, (UINT32) fieldnum+1 }; 

/* 

* One way to get here is if field F in a fieldlist of N fields 

* asks for default to come from field G, where G > N. 

+ + 1 

// return ILERROR ( nlnFieldMap, rc); // uncomment to find bugs!!! 

IL_MAKE_STRING_NULL (szDefault); 
continue; 

} 

TIFlogsz3 { "Default values for 'is' will come from '%s'", 
TIF_FieldName (pstTIF, fieldnum) , FieldName); 

// Find specified field in TIF Field List 
int nlnTIF; nlnTIF = TIF_NOTSET; 
int i; 

for (i = 0; i < fieldcount; i++) 
{ 

if ( IL_STRINGS_EQUAL (FieldName, TI F_FieldName ( pstTI F, i))) 
{ nlnTIF = i; break; } 

) 



if (nlnTIF == TI F_NOTSET } 
{ 

/* . 

* Perhaps the field we want to get the default from is unmapped. 

* Log a warning, set default value to NULLSTRING and go on. 

* */ 

TIFlogszsz ( "WARNING: field %s is not in TIF's fieldlist", FieldName); 
IL MAKE STRING NULL (szDefault); 



TIF_FieldToGetDefaultValueFrom(pstTIF, fieldnum) = (INT16) nlnTIF; 

} // end for loop 

return SUCCESS; 
} // IdentifyDefaultFields 



ffifdef ILWIN 

ffifdef WIN32 

ffinclude <winver.h> 
ffelse 

ffinclude <ver.h> 
#endif 



* Name: LogCodeVersion (called from Firstlnit) 

+ + / 

static int LogCodeVersion ( PSTTI F_TYPE pstTIF) 
{ 

char szFile [MAX_PATH] ; 
DWORD len32, x32; 
UINT lenl6; 
BOOL b; 
IL_PSTR p; 
IL_PANY p2; 

len32 = GetModuleFileName (TI F_DLL_InstanceHandle, szFile, MAX_PATH); 
if (len32 == 0) 

return ILERROR (0, TI F_ERR_AB NORMAL ) ; 

len32 - Get Fi leVersionlnf oSi ze (szFile, &x32); 
if (len32 == 0) 

return ILERROR S (szFile, TIF ERR ABNORMAL); 
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p = new char(len32]; 
if ( P == NULL) 

return ILERROR_L {(INT32) len32, TI F_ERR_MEM ) ; 

b ~ GetFileVersionlnfo (szFile, x32, len32, p); 
if (b == 0) * 

{ 

delete p; 

return ILERROR_S (szFile, TIF ERR ABNORMAL ) ; 

} 

char szQuery[40]; 

IL_STRCPY (szQuery, "\\St ring Fi lei nfo\\ 04 0904 E4\\Comments" ) ; 

p2 = NULL; 
lenl6 = 0; 

b = VerQueryValue (p, szQuery, &p2, &lenl6); 
if (b == 0 || p2 NULL | I lenl6 == 0) 
{ 

delete p; 

return ILERROR_S (szFile, TIF ERR ABNORMAL); 

} 

TIFlogsz3 ("\r\n Running '%s* %s\r\n", szFile, (IL_PSTR) p2 ) ; 

delete p; 
return SUCCESS; 

} // LogCodeVersion 

#endif // ffifdef ILWIN 



/* 

* Name: Firstlnit 

* Called from TIFInit on a first-time init 



static int Firstlnit ( ILTR_PTRANSL tr, 

PSTTI F_TY PE pstTIF, 
int FieldCount ) 

{ 

int rc, rc2; 

IL_FILEINFO info; // struct needed to remove file 

if (ILLOG_VERBOSE_ENOUGH (TIFLOG, 20)) 
{ 

// log some of the basic parameters for current translation operation 

cha r,sz[ 300] ; 

TIFlogsz3 ("%s % s » f ILTR_szSrcTrans, ILTR_szTarTrans ) ; 

TIFlogsz (" «) ; 

TIFlogsz3 ("SOURCE: %s %s", ILTR_szAltApp, I LTR_szAl tSect ) ; 
IL_SPRINTF{sz, "TARGET: %s %s (%s) M , I LTR_s zAppName , ILTR szSectName, 
ILTR_szSectCode ) ; 

TIFlogsz(sz) ; 

TIFlogszszC* Is", ILTR_szAppFile) ; 

IL_SPRINTF(sz, 

"src=%d.%d, tar=%d.%d, func=%d, mapi%d, phase=%d, ILLOGverbosi ty=%d" , 

ILTR_nSourceID, ILTR_nSrcSection, 

ILTR_nTargetID, ILTR_nTa r Sect ion , 

ILTR_nFunction, I LTR_nMapI D, 

ILTR_phase, T I FLOG~>n Verbosity ) ; 
TIFlogsz (sz) ; 
IL_SPRINTF(sz, 

"v-%d, sync=%d, UpdOpt=%d, policy=0x%lx, ILTR_Flags=0x%lx, si zeof ( t r ) =%d" , 
ILTR_version, I LTR_nSynchronize, 

ILTR_nUpdOpt, ILTR_CRPol icy, ILTR_Flags, si zeof ( ILTR TRANSL )) ; 
■ TI Flogsz (sz ) ; 

TIFlogszul3 ( "TI FVersion=0x% lx , SourceSST=% Id, TargetSST=% Id" , 

T I F_CURRENT_FILE_ FORMATTERS I ON, 

(UINT32) ILTR_SourceSST, (UINT32) ILTR_TargetSST ); 

IL_PSTR psz; 
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switch { ILTR_nSynchronize) 
{ 

case ILXTR_SYNC_NO: 
case I LXTR_SYNC_STANDARD : 
case I LXTR_SYNC_FROM_S CRATCH: 

default: ILJ5PRINTF (sz, "Sync Type %d", ILTR_nSynchronize) ; psz = 



TIFlogszsz ("\r\n Requested Service is %s", psz); 

Jfifdef ILWIN 

rc = LogCodeVersion (pstTIF) ; // rc is ignored 
#else 

TIFlogsz(" " ); 
flendif 

} 

if ( ILLOG_VERBOSE_ENOUGH ( TI FLOG, 85) ) 
{ 

rc = LoglLTRFieidList { tr ) ; 
if (rc != SUCCESS) 

return ILERROR ( rc, TIF ERR INIT FAILURE); 

} 

TIF_phase = TI F_PHASE_SETTING_THINGS_UP; 
TIF_PreviousILTRPhase = 0; 
TIF_TotalRecordCount = TI F_FIRST_ITEMNO; 

// Zero out the Distinguished Field indices 



TIF 


_AlarmFlagFieldNum 




TIF 


_NOTSET 


TIF" 


_AlarmTimeFieldNum 




tif" 


"notset 


tif" 


_AlarmDateFieldNum 




tif" 


NOTSET 


tif" 


_DoneFlagFieldNum 




tif" 


"notset 


tif" 


"Start Da teFieldNum 




tif" 


"notset 


tif" 


_EndDateFieldNum 




tif" 


"notset 


tif" 


_StartTimeFieldNum 




tif" 


"notset 


tif" 


_EndTimeFieldNum 




tif" 


"notset 


tif" 


ViewFieldNum 




tif" 


"notset 


tif" 


SourcelDFieldNum 




tif" 


"notset 


TIF 


[TargetlDFieldNum 




tif" 


"notset 


tif" 


SourceDeltaFieldNum 




tif" 


"notset 


TIF 


TargetDeltaFieldNum 




tif" 


"notset 


TIF 


RepBasicFieldNum 




tif" 


[notset 


TIF~ 


"RepExclFieldNum 




tif" 


[notset 


TIF~ 


SubTypeFieldNum 




tif" 


"notset 


TIF 


SourceSubTypeFieldNum 




tif 


"notset 


TIF 


KeyDateFieldNum 




tif 


"notset 



* By default use Field Zero as the "View Field", which is used 

* to tell the user what field we're talking about, in conflict 

* resolution dialog. Typically a field in the field list will 

* have the ViewField attribute set, in which case the default 
+ value of TIF_ViewField will be overridden. 

* #/ 

TIF_ViewFieldNum = 0; 

/* 

* Set policy for Appointment Overlap Detection. 

* This should be set to FALSE if section is 

* not appointments, or for Synchronization, or if desired 

* conflict resolution policy is to not bother doing overlap 

* detection. 

* + / 

TIF_bCheckForOverlap = 

( ( ILTR_nFunction == ILTR_APPT) 
&& t (TIF_CRPolicy & ILXTR_CR_POLICY_DETECT_APPT_OVERLAPS ) != 0) ); 

// Tell TIF whether or not to exclude completed todos from sync 

if ( ILTR_nSynchronize && ILTR_n Funct ion == ILTR_TODO) 

TIF_bDontSyncDoneTodos = ( ILTR_nSchOpt == ILTB_TODO_NOTDONE ) ; 
else 

TIF_bDontSyncDoneTodos = FALSE; 
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// Allocate the field info structures 

rc =» FieldListAlloc ( pstTIF, &TIF_pFieldList, 

&TIF_hFieldList, FieldCount ); 

if ( rc == SUCCESS) 

rc = FieldListAlloc { pstTIF, &TI F_pSourceFieldList , 

&TIF_hSourceFieldList, FieldCount ); 

if (rc != SUCCESS) 

return ILERROR ( rc, TIF_ERR_INIT_FAILURE ) ; 

// get pseudo-fieldnames to use in ILCR display 

rc2 = ILSTMakeString { fihXlatorlnst , TIF_STR_REPSTART_PSEUDO_FLDNAME, 

TIF_szRepStartPseudoFldName, ILTR_MAX_FLDNAME ); 

rc2 = ILSTMakeString { ShXlatorlnst , TI F_STR_REPSTOP_PSEUDO_FLDNAME, 

TIF_szRepStopPseudoFldName, ILTR_MAX_FLDNAME ); 

rc2 = ILSTMakeString { ShXlatorlnst , TI F_STR_REPEX_PSEUDO_FLDNAME, 

TIF_szRepExPseudoFldName, ILTR_MAX_FLDNAME ); 

rc2 = ILSTMakeString ( shXlatorlnst , TI F_STR_TRUE, 

TIF_szTrue, si zeof (TI F_szTrue } ); 

rc2 = ILSTMakeString ( ShXlatorlnst , TI F_STR_ FALSE, 

TIF_sz False, si zeof {TI F_szFa lse ) ); 

TI F_bReconcileRepBasic = TRUE; 
TIF_bReconcileExclusions = TRUE; 

// generate unique filename for TIF file 

IL_PSTR p; p =» ILTR_TempFileName ( ILTR_nFunct ion , TIF szWorkFile); 
if (p =« NULL) 

return ILERROR ( 0, TI F_ERR_INIT_FAILURE ) ; 

// for ILX_V4 mode put workfile name into "tr" structure too 

if (ILTR_phase !« ILTR_PHASE_ILX_V3_M0DE ) 

IL_STRCPY {ILTR_szWorkFile, T I F_s z Wo r k Fi 1 e ) ; 

rc = ILDFX_CreateFile ( TI F_szWorkFile, 

200, // initial size of index 

TI F_EXDATA_PER_RECORD ); 

if (rc SUCCESS) 

return ILERROR (rc, TI F_ERR_INIT_FAI LURE ) ; 

// For Appts & Todos, define TIF-internal instance list field 

if { (ILTR_nFunction -= ILTR_APPT) || ( I LTR_n Function == ILTRJTODO) ) 

INT32 extraAttributes=TIFEA_ISNT_MAPPED; 

rc = TI FDefineOne Field ( pstTIF, 

TIF_pFieldList, // put in primary list 

TI F_INST_LIST_ FIELD, // fieldname 

0/ // size (unlimited) 

I LX_T Y PE_B I NARY , // type (binary) 

// format 



fi ii 



// relative field 



I LTB_ATT_NO_RECONCI LE I ILTB_ATT_HI DDEN__FIELD, 
&ext raAt tributes , 

TRUE, // positive (irrelevant) 

nn t // default value 

TIF_NOTSET ); // ILTR fieldnum — none!! 

if (rc != SUCCESS) 
{ 

IL_REMOVE (TIF_szWorkFile, info, rc2); 
return ILERROR ( rc, TIF ERR INIT FAILURE); 

} 



} 



// Open the workfile for writing 

rc = ILDFX_OpenFile {TI F_szWorkFile, TIF_hFile, ILDFX MODE UPDATE); 
if (rc == SUCCESS) 

{ 

TIF_bWorkFileIsOpen = TRUE; 

TIF_FileFormatVersion = TIF CURRENT FILE FORMAT VERSION; 
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/* 

* Supply EX DATA values as eye-catchers and bug-catchers 

* / 

INT32 exdata [TIF_EXDATA_PER_RECORD] ; 
int i; 

for (1^0; i < TI F_E X DAT A_PER_RE CORD; 

exdatafi] = 0x7FFFFF00 + (16 * i) + TI F_RECORD_TWO; // eye-catchers 

// Write out the TI F_KSTRUCT as Record TWO, to versionStamp the file 
rc = ILDFX_AddRecord ( TIF_hFile, 

TIF_RECORD_TWO, 

& ( (*pstTIF) ->K) , 

(INT32) sizeof ( TI F_KSTRUCT > , 

exdata ) ; 

} 

else 
{ 

IL_REMOVE (TIF_szWorkFile, info, rc2); 
return ILERROR ( rc, TIF ERR INIT FAILURE); 
} " " 

return rc; 
} // Firstlnit 



/* 

+ Name: Secondlnit 

* Called from TIFInit on a re-init. This is done for ILX_V4 mode 

* only, and only when a 16-bit translator is running under a 

* 32-bit engine. 



static int Secondlnit ( ILTR_PTRANSL tr, PSTTIF_TYPE pstTIF) 

int rc, rc2; 
INT32 len; 

ILDFX_PHNDL phFile = TIF_hFile; 

// Copy workfile name from "tr" structure into TIF structure 
IL_STRCPY {TIF_szWorkFile, ILTR_szWorkFile) ; . 

// Open the workfile for reading & writing 

rc = ILDFXjDpenFile (TIF_szWorkFile, phFile, ILDFX MODE UPDATE); 
if (rc != SUCCESS) 

return ILERROR (rc, TI F_ERR_INIT_FAILURE ) ; 

TIF_bWorkFileIsOpen = TRUE; 
TIF_PreviousILTRPhase = ILTR_phase; 

rc = ILDFX_GetRecordCount (phFile, &TI F_TotalRecordCount ) ; 
if (rc != SUCCESS) 

LOG_ERR_AND_EXIT( rc, TI F_ERR_INIT_FAILURE ) ; 

/ + 

* Target Field List comes from Record ZERO of TIF File 
* v 

rc = ILDFX_GetRecordLength (phFile, TI F_RECORD ZERO, &len); 
if (rc != SUCCESS) 

LOG_ERR_AND_EXIT( rc, TI F_ERR_INIT_FAILURE ) ; 

TIF_pFieldList = (TI F_FIELDLIST_PTR) IL_ALLOC (len, TIF hFieldList); 
if (TIF_pFieldList == NULL) ~ 
LOG_ERR_AND_EXIT( 0, TI F_ERR_MEM ) ; 

rc = ILDFX_GetRecord ( phFile, 

TIF_RECORD_ZERO, 
NULL, 

TIF_pFieldList, 
len , 

NULL ); // — no ExData for this record 

if (rc != SUCCESS) 

LOG_ERR_AND_EXIT ( rc, TIF ERR INIT FAILURE); 



Copyright ©1996 Puma Technology, Inc. All Rights Reserved. 



Tif.cpp 



Page 15 of 53 



/* 

* Source Field List comes from Record ONE of TIF File 



rc = ILDFX_GetRecordLength (phFile, TIF_RECORD_ONE, filen); 
if (rc != SUCCESS) 

LOG_ERR_AND_EXIT { rc, TI F_ERR_IN I T_ FAILURE ) ; 

TIF_pSourceFieldList = (TIF_FIELDLIST_PTR) 

IL_ALLOC (len, TIF_hSourceFieldList ) ; 
if (TIF_pSourceFieldList NULL) 

LOG_ERR_AND_EXIT(0, TI F_ERR_MEM) ; 

rc = ILDFX_GetRecord ( phFile, 

TIF_RECORD_ONE, 
NULL, 

TIF_pSourceFieldList, 
len, 

NULL ); // — no ExData for this record 

if {rc != SUCCESS) 

LOG_ERR_AND_EXIT ( rc , TI F_ERR_INIT_FAILURE ) ; 

/* 

* TI F_KSTRUCT (misc params) comes from TIF RECORD TWO of TIF File 
+■ ~ — 

rc = TIFLoadKStruct (phFile, & ( { *pstTI F) ->K) ) ; 
if (rc == SUCCESS) 
return SUCCESS; 

Exit : 

// note: caller must free field lists if they are allocated 

rc2 = ILDFX_CloseFile (phFile, ILDFX_DONT_UPDATE) ; 
return rc; 

} // Secondlnit 



/* 

* Name: TIFInit 

* Called from: ILTIFInit and ILTI FReopenFi le 

* Input: FieldCount: Number of fields, or -1 for RE-INIT 

Re-init is done in ILX_V4 mode operation only, 

and only when a 16-bit translator running under 

a 32-bit engine calls ILTI FReopenFile . 
ir/ 

int TIFInit ( PSTTI F_TYPE pstTIF, 

ILTR_PTRANSL tr, 
int FieldCount ) 

{ 

I L_HANDLE hstTIF; // Temp handle to global memory 
int rc; 

BOOLEAN bRelnit = (FieldCount == -1); 
BOOLEAN bLogFileOpened = FALSE; 

// Allocate an initial global info record 

*pstTIF = (ILT_PTIF) IL_ALLOC ( si zeof ( ILT_TI F) , hstTIF); 

if ( + pstTIF == NULL) 

return ILERROR_L ((INT32) sizeof ( ILT_TIF) , TI F_ERR_MEM ) ; 

IL_MEMSET (*pstTIF, 0, si zeof ( ILT_TI F) ) ; 

// begin Debug Log 

if (bRelnit | | (ILTR_Flags & I LTR_FLAG_APPEND_TO_LOGS ) ) 

rc = ILLOG_resume ( "tif . log", ILTR_h Log, & T I FLOG ) ; 
else 

rc = ILLOG_begin("tif .log", ILTR_hLog, &TIFLOG); 

if (rc != SUCCESS) 

LOG_ERR_AND_EXIT( rc, TI F_ERR_INIT_FAILURE ) ; 

ILTI FLOG = TIFLOG; // for ILTIF-level logging 

ILDFXLOG (TI F_hFile ) - TIFLOG; // to allow debug-logging from ILDFX handle 
bLogFileOpened = TRUE; 



* NOTE: 
+ 
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TIFlogszul ("TIFInit (%ld)", (UINT32) FieldCount } ; 

TIF_hstTIF = hstTIF; // handle to self 

TIF_pILTIF = ILTR_pILTIF; 

TIF_tr = tr; _ // old granddad 

TIF_nSynchronize = ILTR_nSynchroni ze; 
TIF_RecordHasBeenPutSinceLastGet - FALSE; 
TIF_CurrentRecordNumber » TI F_POSITION_BELOW_BOTTOM; 
TI F_CurrentRecordOutcome ~ 0; 
TIF_PertinentRecordCount = 0L; 
TIF_bWorkFileIsOpen = FALSE; 
TIF_bNeedPriming = TRUE; 
TIF_bPleaseSaveFanoutMaxima = FALSE; 

// set TIF Reconciliation Option (for SmartMerge AND Synchronization) 

TI F_ReconciliationOption = ILTR_nUpdOpt ; 

/* 

* Copy and adjust synchronization outcomes table. The table is 

* copied from STATIC storage into STACK storage, to allow for 

* conflict-free use by multiple concurrent users and to make sure 

* the adjusted table is common to all execution loci, including 

* various Macintosh code resources. 



if { ILTR_nSynchronize ) 
( 

rc » TIFTableCopyAndAdjust {pstTIF) ; 
if {rc != SUCCESS) 

return ILERROR (rc, rc) ; 

} 



// clear FastSync flags. But TI FStartNext Phase may set them... 

TIF_bFastSyncLoad = FALSE; 
TIF_bFastSyncUnload = FALSE; 
TIF_bFastSyncSourceLoad = FALSE; 
TIF_bFastSyncTargetLoad = FALSE; 

// turn off USER-VISIBLE logging. This is turned on for UNLOADING 

TIF_bCurrentlyLoggingAndCountingRecords = FALSE; 

// don't count outcomes except during 'TIFComputePertinentRecordCount ' 

TIF_bCountingOutcomes = FALSE; 

/ + _ 

v Set TIF_CRPolicy. Don't try to get value from ILTR if we're running 
* under an old version app that didn't know about this... 



if (ILTR_VERSION_IS_AT_LEAST(8) && ( ILTR_CRPol icy != 0)) 

TIF_CRPolicy = ILTR_CRPolicy; 
else 

TIF_CRPolicy = ILXTR_CR_POLICY_DEFAULT; 

/* 

* Initialize reusable buffers used for Records and Fields 
+ _ 

rc = ILUT_InitBuf fer ( &TI F_CurrentRecord , 0, 

TIF BUF INC, TIF MAX RECORD SI2E+1 }; 



TIF_BUF_INC, TIF_MAX_RECORD_SIZE+l ) 



/ 



7 



if 


(rc 


== SUCCESS) 




rc = 


ILUT_InitBuf fer 


if 


( rc 


== SUCCESS) 




rc 


ILUT_InitBuf fer 


if 


(rc 


SUCCESS) 




rc = 


ILUT_InitBuf fer 


if 


( rc 


== SUCCESS) 


« 


rc = 


ILUT_InitBuffer 


if 


( rc 


== SUCCESS) 




rc = 


ILUT_InitBuf fer 


if 


( rc 


== SUCCESS) 




rc = 


ILUT InitBuffer 



TIF_BUF_INC, TIF_MAX_RECORD_SIZE+l ) 



TIF_BUF_INC, TIF_MAX_RECORD_SI2E+l ); 



TIF_BUF_INC, TIF_MAX_RECORD_SI2E+l ); 



TIF_BUF_INC, ILTR_MAX_FIELDLENGTH+1 ); 
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TIF_BUF_INC, ILTR_MAX_FIELDLENGTH+1 ) ; 

if (re == SUCCESS) 

rc = ILUT_InitBuf fer { &TI F_Extra Field, TI F_INITIAL_FIELD_BUF_SIZE, 

TIF_BUF_INC, ILTR_MAX_FIELDLENGTH+1 } ; 

if (rc != SUCCESS) 

LOG_ERR_AND_EXIT(rc, TIF_ERR_MEM) ; 

// Init the date and time formats 
IL_InitStdTimeFormat ( ) ; 
IL_InitStdDateFormat { ); 

// Sanitize ILTR Date Range if invalid {only relevant for Appts and Todos ) 
if ( ILTR_lDateRangeStart == -1) 
ILTR_lDateRangeStart = 0; 

if ( ILTR_lDateRangeEnd == -1) 
ILTR_lDateRangeEnd - 0; 

if (bRelnit) 

rc - Secondlnit (tr, pstTIF); 
else 

rc = Firstlnit (tr, pstTIF, FieldCount); 

// Register Reconciliation Callback Function (separately for ILX32 & ILX16) 
ILRegisterReconCB ( t r, TIFReconciliationCallback) ; 

if ( rc == SUCCESS) 
return SUCCESS; 

Exit : 

TIFFreeBuf fers (tr, pstTIF); 

if ( bLogFileOpened ) 

ILLOG_end (&TIFLOG) ; 

IL_FREE_AND_ZERO (hstTIF, *pstTIF); 

return rc; 

} // TIFInit 



/* 

* TI FLoadKSt ruct -- load misc params from Record TWO of workfile 

* Called from: Secondlnit and ILTI FReopenFile 

* and TI FSyncCheckOld Parameters and ReadOldKSt ruct 

* returns SUCCESS 

* or TIF_ERR_BAD_HISTORY_FILE 

* or TI F_ERR_WRONG_FI LE_FORMAT_VERSION 

* or TIF ERR KSTRUCT SIZE MISMATCH 



int TIFLoadKStruct ( I LDFX_PHNDL phFile, TIF_KSTRUCT *pK) 
{ 

int rc; 

INT32 len, readlen, ver; 

rc = ILDFX_GetRecordLength (phFile, TI F_RECORD_TWO, &len); 
if ( rc != SUCCESS) 

return ILERROR (rc, TI F_ERR_BAD_HISTORY_FILE ) ; 

if (len < sizeof ( TI F_KSTRUCT ) - 20) 

return ILERR0R_L (len, TIF_ERR_BAD_HISTORY_FILE ) ; 

readlen = min (len, si zeof (TI F_KSTRUCT ) ) ; 

rc = ILDFX_GetRecord ( phFile, 

TIF_RECORD_TWO, 

NULL, 

pK, 

readlen, 

NULL ); // — no ExData for this record 

if (rc != SUCCESS } 

return ILERROR (rc, TIF ERR BAD HISTORY FILE); 
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// verify that file format versionff is current 

ver = (INT32) (pK->FileFormatVersion ) ; 

if (ver != TIF_CURRENT_FILE_FORMAT_VERSION ) 

return ILERROR_L (ver, TI F_ERR_WRONG_FILE_FORMAT_VERSION ) ; 

if Uen != si ze*of ( TI F_KSTRUCT ) ) 

return ILERROR_L ( len, TI F_ERR_KSTRUCT_SIZE_MISMATCH ) ; 

return SUCCESS; 
} // TIFLoadKStruct 



/* 

* Name : WrapUpSetUp 

* Context: called by TI FSt a rt Next Phase 

* Purpose: complete setup. store FieldList in TIF File, etc. 



static int WrapUpSetUp ( ILTR_PTRANSL tr, PSTTIF TYPE pstTIF) 
( 

int rc; 

// calculate where we'll start storing data in 

// record value structs, relative to BYTE ZERO of the record struct 

TIF_FirstOf fset (pstTIF) = sizeof (TI FREC_FIXED_PART ) 

+ (TIF_FieldCount (pstTIF) * sizeof (TIF_FIELD_VALUE ) ) ; 

TIF_FirstOf fset 2 (TI F_pSource FieldList ) = sizeof (TIFREC_FIXED_PART) 

+ (TIF_FieldCount2 ( TI F_pSource FieldList ) * si zeof ( TI F_FIELD_VALUE ) ) ; 

// copy ILTR Date Range Limits into TIF KSTRUCT 

TIF_RangeOfSync . IStartDate = ILTR_lDateRangeStart ; 
TIF_RangeOfSync. lEndDate = ILTR_lDateRangeEnd; 

/* 

* If synchronizing, NOT FROM SCRATCH, make sure that's OK. If not, 

* we may bail out, or may switch to doing a SYNC FROM SCRATCH. 

* + / 

if ( ILTR_nSynchronize == ILXTR SYNC STANDARD) 
{ 

char szPath [MAX_PATH ] ; 

IL_MAKE PATH ( szPath, NULL, ILTI F_szHistoryDi r, ILTI F_szHistoryName, 

ILSYNC_EXT_ISH ); 
ILDFX_HNDL hHistory; // Handle to open history file 

rc = ILDFX_OpenFile (szPath, ShHistory, ILDFX_MODE_READ) ; 
if ( rc != SUCCESS) 
return rc; 

rc = TIFSyncCheckOldParameters (pstTIF, &hHistory) ; 
int rc2; 

rc2 = ILDFX_CloseFile (ShHistory, ILDFX_DONT_UPDATE ) ; // rc2 is ignored 

if (rc SUCCESS} 
{ 

TIFlogszul ( "TIFSyncCheckOldParameters rc=%ld", ( UINT32 } rc); 

/* 

* Put up OK-or-CANCEL dialog to let user choose between cancelling 

* this synchronization run or deleting the current history file 

* and re-synchronizing from scratch. (see ILSYNC2 . CPP ) 



rc = ILTIFSyncShouldWeZapIt (tr ) ; 
if { rc == SUCCESS) 

// user said OK; zap history and re-sync 

// the 'Zaplt' function has set 

// ILTR_nSynchronize == ILXTR_SYNC_FROM_SCRATCH 

; // . . . continue . . . 
else 

// user said CANCEL, or an abnormal error has occurred... 

return rc; 

} 

} 
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/* 

* For SYNC FROM SCRATCH, keep Date Range stuff as simple as possible. 

* Avoid triggering any logic that worries about differences between 

* past and present Date Ranges or past & present Dates of Sync. 

if (ILTR_nSynct*ronize == ILXTR_SYNC_FROM_SCRATCH) 

TIF_RangeOf PreviousSync = TI F_RangeOf Sync; 
TIF_lDateOf PreviousSync = ILTR nDate; 

} 



rc = Identi f yDistinguishedFields (pstTIFJ ; 
if (rc != SUCCESS) 
return rc; 

rc = IdentifyDef aultFields ( tr, pstTIF); 
if (rc != SUCCESS) 
return rc; 



if (TIF_bCheckForOverlap> 
{ 

if ( (TIF_StartDateFieldNum == 
I I (TIF_StartTimeFieldNum == 
// I I (TIF_EndDateFieldNum 
I I (TIF EndTimeFieldNum 



/ 



TIF_NOTSET) 
TIF_NOTSET) 
TIF_NOTSET) 
TIF NOTSET) 



) 



} 

else 
{ 



to check for appointment overlap, we require that 

Start Date&Time Fields and EndTime Fields be defined. We do 

not require EndDate field. 

But rather than returning an error code, we'll just turn off 
overlap detection. 

v 

TIFlogsz ( "Shutting off overlap detection for lack of DTTMs" ); 
TIF_bCheckForOverlap = FALSE; 

// do not return TIF_ERR_MISSING_OVERLAP_FIELD; 



if (TIF_RelatedFieldNum(pstTIF, TI F_St a rt DateFieldNum) !^ TIF NOTSET) 

// overlap detector can't handle relative start date ~~ 

return TI F_ERR_RELATIVE_START_DATE; 

if (TIF_RelatedFieldNum(pstTIF, TI F_StartTimeFieldNum) != TI F_NOTSET ) 

// overlap detector can't handle relative start time 

return TIF ERR RELATIVE START TIME; 



if ( ILTR_nSynchronize === I LXT R_S YNC_ST AN DAR D } 

// don't waste effort on current workfile; it'll soon be overwritten 

return SUCCESS; 
else 
{ 

/ + 

*■ Supply EX DATA values for new records — these values are designed 

* to be eye-catchers and bug-catchers, with no other real function 

* v 

INT32 exdata [TI F_EXDATA_PER_RECORD] ; 
int i; 

TIF_FileFormatVersion = TI F_CURRENT_FI LE_FORMAT_VERSION; 

// Write out the Target Field List as Record ZERO of Work File 
INT32 IRecSize = sizeof ( TI F_FI ELDLIST ) + 

(sizeof (TIF_FIELD_DESC) * TI F_FieldCount (pstTIF) ) ; 

for (i=0; i < TI F_E X DAT A_PER_RE CORD; 

exdata[i] = 0x7FFFFF00 + (16 * i) + TI F_RECORD_ZERO; // eye-catchers 

rc = I LDFX_Add Record { TIF_hFile, 

TI F_RECORD_ZERO, 

TIF_pFieldList, 

IRecSize, 
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exdata ) ; 

if (rc == SUCCESS) 
{ 

// Write out the Source Field List as Record ONE of Work File 
IRecSize j= sizeof (TIF_FIELDLIST) + 

(sizeof {TIF_FIELD_DESC) * TI F_FieldCount2 ( TI F_pSourceFieldList ) J; 

for (i=0; i < TI F_EXDATA_PER_RECORD; i + +) 

exdata [i] = Ox7FFFFFO0 + (16 * i) + TI F_RECORD_ONE; // eye-catchers 

rc = ILDFX_AddRecord ( TIF_hFile, 

TI F_RECORD_ONE, 
TIF_pSourceFieldList, 
IRecSize, 
exdata ) ; 



if (rc == SUCCESS) 
{ 

// Write out the updated TI F_KSTRUCT as Record TWO of Work File 

IRecSize = si zeo f ( TI F_KSTRUCT ) ; 

rc = ILDFXJJpdateRecord ( TIF_hFile, 

TIF_RECORD_TWO, 

& ( (*pstTIF) ->K) , 

IRecSize, 

NULL ); //-- no ExData for this record 



if (rc == SUCCESS) 

rc = ILDFX_GetRecordCount (TIF_hFile, &TI F_TotalRecordCount } ; 

if (rc != SUCCESS) 

return ILERROR (rc, TIF_ERR_INIT_FAILURE ) ; 

if (TIF_TotalRecordCount != TI F_FIRST_ITEMNO) 

return ILERROR_L (TI FJTotalRecordCount , TI F_ERR_INIT_FAILURE ) ; 

TIFlogszulul ( 

"First %ld records in TIF file are CONTROL records; first data item will be Hid", 

TIF_FIRST_ITEMNO, TI F_FIRST_ITEMNO ); 

return SUCCESS; 



} // WrapUpSetUp 



static 
{ 



Name: PhaseName -- for debuglogging only 
IL_PSTR PhaseName (int phasenum) 



/ 



switch (phasenum) 
{ 



case 
case 
case 
case 
case 
case 
case 
case 
case 
case 
case 
case 
case 
case 



TIF 
TIF" 

tif" 
tif" 
tif" 
tif" 
tif" 
tif" 
tif" 
tif" 
tif" 
tif" 
tif" 
tif" 



PHASE 

'phase" 
"phase" 
"phase" 
"phase" 
"phase" 
"phase" 
'phase* 
"phase" 
'phase* 
phase* 
phase" 
phase* 
phase" 



PREVIOUS: 
"NEXT: 

_ SETTING_THINGS_UP: 
"DONE_SETTING_THINGS_UP: 
"LOADING_PREVIOUS_RECORDS : 
"LOADING_TARGET_RECORDS : 
"LOADING_SOURCE_RECORDS : 
'SAN IT I Z I NG_SOURCE_RECORDS 
"CHOOSING_RECORDS : 
"C0NFLICT_RES0LUTI0N 
*UNLOADING_TO_TARGET 
"UNLOADING_TO_SOURCE 
UNLOADING_TO_HISTORY 
UNLOADING FOR EXPORT 



default : 
i 



static char szBuf[20]; 
IL_SPRINTF (szBuf, "?? 
return szBuf; 



return 
return 
return 
return 
return 
return 
return 



"previous" ; 



"next"; 
"Setup"; 
"Done Setup"; 
"Load Previous History"; 
"Load From Target"; 
"Load From Source"; 
return "Sanitizing Source Records"; 
return "Chooser"; 
return "Conflict Analysis & 
return "Unload To Target"; 
return "Unload To Source"; 
return "Unload To History"; 
return "Unload For Export"; 



Resolution" ; 



#%d", phasenum); 
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} // PhaseName 



/* 

* Name: SetLoadingRange - set ILTR Date Range for LOADING from System 
* 

* Called from TIFStartNextPhase 

★ _ 

static void SetLoadingRange ( ILTR_PTRANSL 'tr, 

PSTTI F_TYPE pstTIF, 
INT16 phase } 



/ 



{ 



if {ILTR_nAttribs & I LTB_ATT_TOTAL_REBUI LD ) 
{ 

// For TOTAL REBUILD systems load ALL records 

ILTR_lDateRangeStart = 0; 
ILTR_lDateRangeEnd = 0; 

} 

else if ( ( phase == TI F_PHASE_LOADING_TARGET_RECORDS 

&& TIF_bTargetIsFastSyncAble ) 
I | ( phase =*= TIF_PHASE_LOADING_SOURCE_RECORDS 
&& TIF_bSourceIsFastSyncAble ) ) 

{ 

// For a FastSync-capable system load ALL records 

ILTR_lDateRangeStart =» 0; 
ILTR_lDateRangeEnd = 0; 

) 

else 
( 

/* 

* For incrementally updateable systems 

* make Loading Range SPAN both Previous & Current Sync Ranges, Normally 

* this gives us the UNION of the 2 ranges, but if Previous & Current 

* Ranges are DISJOINT, we also load from the "gap" in between. 



ILTR_lDateRangeStart = min ( TI F_RangeOf Sync . ISta rt Date, 

TIF_RangeOf PreviousSync . IStartDate ) ; 

ILTR_lDateRangeEnd = max ( TI F_RangeOf Sync . lEndDate, 

TIF_RangeOf PreviousSync. lEndDate ) ; 

} 

if ( ILLOG_VERBOSE_ENOUGH (TI FLOG, 55)) 
{ 

char szl[30], sz2[30]; 

TIFlogsz3 ( "Loading from DateRange %s — %s", 

IL_CodeDateToStdDisplay { ILTR_1 Dat eRangeSta rt , szl) , 
IL_CodeDateToStdDisplay ( ILTR_1 DateRangeEnd , sz2) ); 

} 

} // SetLoadingRange 



/* - 

* Name: ComputeSourceOutcomeCounts 

* Called from TIFStartNextPhase to gather input for OKToProceed. 



7 



static int ComputeSourceOutcomeCounts 

{ PSTTI F_TYPE pstTIF, 

TIF OUTCOME COUNTS *pSourceOutcomeCounts ) 



7 



{ 



ILTR_PTRANSL tr = TIF_tr; 

// for SmartMerge simply set all the counts to zero 

if (ILTR_nSynchronize == ILXTR_SYNC_NO) 
{ 

IL_MEMSET (pSourceOutcomeCounts, 0, si zeof ( TI F_OUTCOME_COUNTS ) ) ; 
return SUCCESS; 

} 

// p- or Synchronization we have some real work to do 



Copyright ©1996 Puma Technology, Inc. All Rights Reserved. 



Tif.cpp 



Page 22 of 53 



// Set Date Range to ALL 

ILTR_lDateRangeStart = 0; 
ILTR_lDateRangeEnd = 0; 

// do a temporary phase swap for the sake of counting 

INT16 savedPhase; savedPhase ~ TIF_phase; 
TIF_phase = TI F_PHASE_UNLOADING_TO_SOURCE; 
TIF_CurrentRecordNumber ~ T I F_ 90S I T I ON_ABOVE_TO P ; 

// count outcomes and copy counts into caller's structure 

int rc; 

rc = TIFComputePertinentRecordCount (pstTIF) ; 
if (rc == SUCCESS) 

IL_MEMCPY ( pSourceOutcomeCounts, &TI F_OutcomeCounts , 

sizeof (TIF_OUTCOME_COUNTS) }; 

// restore phase to what it was 

TIF_phase = savedPhase; 

return rc; 

} // ComputeSourceOutcomeCounts 



/* 

* Name: TIFStartNext Phase 

* Signals beginning of a new phase and indicates end of previous phase 

* Author: David Boothby, Copyright (c) IntelliLink Corporation, 1995 

* NOTE: this function may be called via two different paths, with some 
+ possible overlap, hence redundant calls. Users may call 

* ILTI FStartNext Phase directly, and various other calls, such as 
+ ILTIFEndLoad, result in calls to TIFStartNextPhase. 

* Redundant calls to this function are NO-OPs ! ! 

+■ *■ i 

int TIFStartNextPhase ( ILTR_PTRANSL tr, INT16 phase) 
{ 

TIF_OUTCOME_COUNTS SourceOutcomeCounts ; 
PSTTI F_TYPE pstTIF = & ILTR_pI LTI F->pstTI F; 
ILTRJTif Phase = phase; 

/ + 

* Postpone phase change if workfile isn't open. 

* Phase change will occur when ILTI FReopenFi le is called. 

* v 

if (TIF_bWorkFileIsOpen == FALSE) 
return SUCCESS; 

if (phase == TIF_phase) 

return SUCCESS; // redundant call — NO-OP. 

if ( ILLOG_VERBOSE_ENOUGH ( TI FLOG, 35)) 
{ 

TIFlogsz3 { "\r\n Ending %s phase; starting %s phase\r\n M , 

PhaseName ( TI F_phase ) , PhaseName ( phase ) ); 

) 

int rc; 

/* 

* First do any special processing required before EXITING CURRENT PHASE 

* — 1 

switch (TIF_phase) 
{ 

case TIF_PHASE_SETTING_THINGS_UP: 

// finish up the setting-up phase... 

rc = WrapUpSetUp ( tr, pstTIF); 
if (rc != SUCCESS) 

return rc; 
break; 

case TIF_PHASE_PREVIOUS: 

case TIF PHASE DONE SETTING THINGS UP: 
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case TI F_PHASE_LOADING_PREVIOUS_RECORDS : 
break; 

case TIF_PHASE_LOADING_SOURCE_RECORDS: 

/* 

* The "load-f rom-source phase that is now ending may or may not 

* have been a "Fast Sync Load". If it was, we normally defer 

* digesting the fast-sync-loaded records until we * re done 

* sanitizing them. But if we plan to SKIP the sanitizing step 
v then we need to digest them now. 

■if 

* NOTE: deferring digestion until AFTER sanitization may lead 

* to problems. I hope not. But it makes the assumption that 

* all P-items are fully sanitized as far as the Target xlator 

* is concerned. This is because one of the things the 

* "digestion" process does is to supply "missing" Source Items 

* by "cloning" P-Items. So if the case ever arises that a P-item 

* is NOT already fully sanitized, we've got trouble. 

* V 

if ( ( ILTR_Flags & ILTR_FLAGS_SKI P_SANITIZING_STEP) == 0) 

// Not skipping sanitizing step, so defer digestion,,, 

break; 
else 

; // Fall through into next case to digest the FastLoad now!! 

case TI F_PHASE_LOADING_TARGET_RECORDS : 
case TI F_PHASE_SANITIZING_SOURCE_RECORDS : 

if (TIF_bFastSyncLoad) 
{ 

/* 

* The "Fast Sync" flag is ON during Fast Sync Load, but must 

* be OFF while we "Digest" the loaded records. That enables 

* the "Digestion" process to make "normal" PutRecord calls. 

* V 

TIF_bFastSyncLoad = FALSE; 
rc = TIFSyncDigest FastLoad (tr|; 
if (rc !=* SUCCESS) 
return rc; 

} 

' break; 

case TIF_PHASE_NEXT: 
case TIF_PHASE_CHOOSING_RECORDS: 
case TI F_PHASE_CON FLICT_RESOLUTION : 
case TI F_PHASE_UNLOADING_TO_TARGET : 
case TI F_PHASE_UNLOADING_TO_SOURCE : 
case TIF_PHASE_UNLOADING_TO_HISTORY: 
case TI F_PHASE_UNLOADING_FOR_EXPORT : 
break; 

default: return TIF ERR BAD CURRENT PHASE; 



// For every phase assume FastSync is NOT used, unless changed below. . . 

TIF_bFastSyncLoad = FALSE; 
TIF_bFastSyncUnload = FALSE; 

// We don't skip "LeaveAlone" items unless decided otherwise below... 

TIF_bSkipLeaveAlones = FALSE; 

/* 

* Save Fanout Maxima that apply to the phase we're now exiting, 

* if required and not already done by ' ILTIFCloseFileTemporarily ' . 

* +• i 

if (TIF_bPleaseSaveFanoutMaxima ) 
{ 

TIF_bPleaseSaveFanoutMaxima = FALSE; 
rc = TI FSaveFanoutMaxima (tr); 
if (rc != SUCCESS) 
return rc; 

} 
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/*- 

* Now do any special processing required at outset of NEW PHASE 

* . v 

switch (phase) 
{ 

case TIF_PHASE_DONE_SETTING_THINGSJJP: 
break; 

case TIF_PHASE_LOADING_PREVIOUS_RECORDS: 

TIF_origin = TI F_FROM_PREVIOUS; 
TIF_phase - phase; 

// for this phase set Date Range to ALL 

ILTR_lDateRangeStart = 0; 
ILTR_lDateRangeEnd = 0; 

rc = TIFSyncReadHistoryFile ( tr ) ; 
return rc; 

case TI F_PHASE_LOADING_TARGET_RECORDS : 

TIF_origin = T I F_FROM_TARGET ; 

if ( ILTR_nSynchronize ) 
{ 

/* 

* Set or Clear the FastSync flag for this phase. Flag is only set 

* when we're doing "standard" sync (not sync from scratch) and 

* _Delta field is defined in field list. 

* Note that what we set here is overruled if xlator subsequently 

* calls ILTIFFeatureSet to DISABLE FastSync. 

+ * J 

TIFJoFastSyncLoad = ( ( ILTR_nSynchroni ze == ILXTR_SYNC_STAN DARD) 

&& TIF_bTargetIsFastSyncAble ); 

// Make copy of ' FastSyncLoad 1 flag in K-struct 

TIF_bFastSyncTargetLoad = TI F_bFastSyncLoad; 

// Set Date-related params for Appts & ToDos only 

if (ILTR_nFunction == ILTR_APPT I I ILTR_nFunction == ILTR_TODO) 
{ 

// set Date Range for LOADING from TARGET System 

SetLoadingRange (tr, pstTIF, phase); 

// signal that fanout limits should be saved at end of phase 

TIF_bPleaseSaveFanoutMaxima = TRUE; 

} 

/* 

* Update Record TWO of Work File, to permanently record the 

* FastSync option used for loading from Target. 

•*- _ + 1 

rc = ILDFXJJpdateRecord ( TIF_hFile, 

TI F_RECORD_TWO f 

&( (*pstTIF)->K), 

si zeof ( TI F_KSTRUCT ) , 

NULL ); // — no ExData for this record 

if (rc != ILDFX_OK) 
return rc; 

} 

break; 

case TI F_PHASE_LOADING_SOURCE_RECORDS : 

TIF_origin = TIF_FROM_SOURCE; 

if ( ILTR_nSynchronize ) 
{ 

/ + 

* Set or Clear the FastSync flag for this phase. Flag is only set 

* when we're doing "standard" sync (not sync from scratch) and 

* _Delta field is defined in field list. 

* Note that what we set here is overruled if xlator subsequently 

* calls ILTIFFeatureSet to DISABLE FastSync. 
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z 

TIF_bFastSyncLoad « ( ( I LTR_nSynchroni ze == I LXTR_S YNC_STANDARD ) 

&& TIF_bSourceIsFastSyncAble ); 

// Make copy of 1 Fas tSyncLoad ' flag in K-struct 

TIF_bFastSyncSourceLoad = TIF bFastSyncLoad; 

// Set Date-related params for Appts & ToDos only 

if (ILTR_nFunction ILTR_APPT I I ILTR nFunction == ILTR TODO) 
{ 

// set Date Range for LOADING from SOURCE System 

SetLoadingRange (tr, pstTIF, phase); 

// also record SourceLoad Range in KStruct so that it may be 

// known to the 'Sanitizing Source Records* phase. 

TIF_RangeOf SourceLoad. IStartDate = ILTR_1 Da teRangeStart ; 
TIF_RangeOf SourceLoad . lEndDate = ILTR_lDateRangeEnd; 

// signal that fanout limits should be saved at end of phase 

TIF_bPleaseSaveFanoutMaxima = TRUE; 

} 

/* 

* Update Record TWO of Work File. This ensures that the FastSync 

* Flag and Range of Source Load will be available when Target 

* Translator starts Sanitizing Source Records. (In case TIF file 

* has to be closed and re-opened between times.) 

* f 

rc = ILDFX_UpdateRecord ( TIF_hFile, 

TIF_RECORD_TWO, 

& { { *pstTIF) ->K) , 

s i zeo f ( TI F_KSTRUCT ) , 

NULL ); // — no ExData for this record 

if (rc != ILDFX_OK) 
return rc; 

} 

break; 

case TI F_PHASE_CONFLICT_RESOLUTION : 

TIF_origin = TIF_FROM_SOURCE; 
break; 

case TI F_PHASE JJNLOADING_TO_TARGET : 

/* 

* If we may need to call OKToProceed, compute the source unload count 

* before computing the target unload count. The order isn't critical 

* but we try to avoid confusion and effort wasted counting. 



if (ILTR_VERSION_IS_AT_LEAST(28) && ILTR OKTP Threshold != 0) 
{ 

rc = ComputeSourceOutcomeCounts (pstTIF, SSourceOutcomeCounts ) ; 
if (rc != SUCCESS) 
return rc; 

} 

// fall through into next case... 

case TI F_PHASE_UNLOADING_TO_SOURCE : 

/ + 

* We choose to do Fast Sync Unload based on the unloader's ABILITY 

* to handle Fast Sync. Doesn't matter whether the LOAD phase was 

* done with FastSync feature enabled or not. When a FastSync-capable 

* translator does a SlowSync LOAD (e.g. to sync from scratch), it 

* must get itself ready for the NEXT sync job to use FastSync. This 

* implies that the consumption of inputs supplied in the SlowSync 

* must be recorded so that we know which if any inputs need to be 

* re-supplied in a subsequent FastSync. So we turn on FastSync- 

* Unload, which causes DeltaAcks to be delivered to the unloader. 



if (phase == TI F_PHASE_UNLOADING_TO_TARGET ) 

TIF_bFastSyncUnload = (BOOLEAN) TI F_bTargetIs FastSyncAble; 
else 
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TIF_bFastSyncUnload = ( BOOLEAN } TI F_bSourceIsFastSyncAble; 

/* 

* When unloading to a system that does TOTAL REBUILD, we must unload 

* LEAVE_ALONE records as well as ADDs, CHANGES, DELETES, etc. But 

* if system is NOT a TOTAL REBUILD system, we don't let the unloader 

* see the LEAVE_ALONEs, cuz we know they're not needed. 



TIF_bSkipLeaveAlones = ( ( ILTR_nAttribs & ILTB_ATT_TOTAL_REBUILD) ==0 ) ; 

/* 

* Turn on USER-VISIBLE logging... (note that EXPORT logging 

* is done in ILTR EXPORT. C, but IMPORT logging that used to 

* be done in ILTR IMPORT. C is now done by ILTIF. ) 

* V 

TI FJoCurrentlyLoggingAndCountingRecords = TRUE; 
// fall through into next case... 

case TI F_PHASE_UNLOADING_FOR_EXPORT : 
case TIF_PHASE_UNLOADING_TO_HISTORY: 
case TI F_PHASE_SANITIZING_SOURCE_RECORDS : 

if ( ILTR_nSynchronize) 
{ 

// for these phases, when synchronizing, set Date Range to ALL 

ILTR_lDateRangeStart = 0; 
ILTR_lDateRangeEnd = 0; 

} 

if (phase == TIF_PHASE_SANITIZING_SOURCE_RECORDS) 
{ 

// use same FastSyncLoad flag setting as for source load 

TIF_bFastSyncLoad = (BOOLEAN) TI F_b Fast SyncSource Load; 
TIF_origin = TI F_FROM_SOURCE; 

} 

// fall through into next case... 

case TIF_PHASE_CHOOSING_RECORDS: 
TIF_phase = phase; 

TIF_CurrentRecordNumber = TI F_POSITION_AB0VE_T0P; 
rc = TIFComputePertinentRecordCount (pstTIF) ; 
if (rc != SUCCESS) 
return rc; 

/* 

* Before unloading anything call OKToProceed callback if it exists. 
* v 

if ( (phase == TIF_PHASE_UNLOADING_TO_TARGET ) 

&& ILTR_VERSION_IS_AT_LEAST(28) && ILTR_OKTP_Threshold != 0) 
rc = TI F_OKTo Proceed ( tr, SSourceOutcomeCounts , &TI F_OutcomeCounts ) ; 

return rc; // ILTR_ERR_CANCEL if user says no 

case TIF_PHASE_NEXT: // entering unspecified "next" phase is a NO-OP 
break; 

case TI F_PHASE_SETTING_THINGS_U P : 

default: return TIF ERR BAD NEW PHASE; 

} 

TIF_phase = phase; 
return SUCCESS; 

) // TIFStartNewphase 



/ 



Name: TI FSaveFanoutMaxima 

Purpose: Copy the Max Fanning Count limits for current phase into KStruct 
secure the updates on disk, in TIF_RECORDJTWO of the workfile. 

NOTE: we save these parameters at the END of a phase, rather than 
doing it earlier, to allow for the possibility that a 
translator will change these parameters when it's DataStore 
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* Open function is called. (That's the only LEGAL opportunity 

* that a translator has to override the defaults; has to be done 

* before any records are loaded.) 
+ 

* Callers: TIFStartNext Phase and ILTI FCloseFileTemporarily 

* v 

int TIFSaveFanoutWaxima ( ILTR_PTRANSL tr) 
{ 

int rc; 

PSTTI F_TYPE pstTIF = & ILTI F_pstTI F; 
ILDFX_PHNDL phFile = TIF_hFile; 

if (TIF_phase TIF_PHASE_LOADING_TARGET_RECORDS ) 
TIF_TargetFanoutMaxima = ILTR_FanoutMaxima ; 

else if (TIF_phase == TI F_PHASE_LOADING_SOURCE_RECORDS ) 
TIF_SourceFanoutMaxima = ILTR_FanoutMaxima ; 

else 

return ILERROR ((int) TIF_phase, TI F_ERR_WRONG_PHASE } ; 

/* 

* Update Record TWO of Work File, to permanently record the 

* Fanout Maxima that pertain to the current phase 

* V 

rc = ILDFXJJpdateRecord ( TIF_hFile, 

TIF_RECORD_TWO, 
& ( (*pstTIF) ->K) , 
sizeof (TIF_KSTRUCT) , 

NULL ); // — no ExData for this record 

return rc; 
} // TIFSaveFanoutMaxima 



/* 

* Name: TIFTerminate 

* Purpose: Shutdown TIF and ILLOG 

* and if we're NOT doing synchronization, DELETE the TIF File!! 

* * / 

int TIFTerminate ( PSTTI F_TYPE pstTIF, ILTR_PTRANSL tr) 
{ 

int rc =» SUCCESS; 
int rc2; 

if (*pstTIF == NULL) 

return TI F_PSTTI F_IS_NULL; 

TIFlogsz ( "TI FTerminate" ) ; 

TIFFreeBuf fers (tr, pstTIF); 

// determine whether we want to KEEP the TIF file. 

// if we're going to keep it, we should update it first. 

BOOLEAN bUpdateAndKeepFile; 

bUpdateAndKeepFile = ILTR_VERSION_IS_AT_LEAST ( 1 3 ) 

&& (ILTR_Flags & I LTR_FLAG_KEEPFILES ) ; 

if (TIF_bWorkFileIsOpen) 
{ 

rc = ILDFX_CloseFile (TIF_hFile, bUpdateAndKeepFile); 
if (rc != ILDFX_OK) 

TIFlogszul ("ILDFX_CloseFile failed, rc=%ld", (UINT32) rc ) ; 

} 

if (! bUpdateAndKeepFile) 
{ 

// delete the TIF file 

IL_FILEINFO info; // struct needed to remove file 

IL_REMOVE (TIF_szWorkFile, info, rc2); 
if (rc2 != SUCCESS) 
{ 

TIFlogszul ( "IL_REMOVE failed, rc=*%ld" f (UINT32) rc2); 
if ( rc == SUCCESS) 

// no previous error, so remember this error 
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rc = TIF_ERR_CANT_DELETE_FILE; 

} 

} 

/* 

* Close the Debug Logfile 

* v 

if ( T I FLOG != NULL) 

ILLOG_end ( &TI FLOG ) ; 

IL_FREE { TI F_hstTI F, *pstTIF); 
*pstTIF = NULL; 

// don't zero TIF_hstTIF cuz it lives inside **pstTIF 

return rc; 
} // TIFTerminate 



/ 



Name : 



TIFFreeBuf fers 



void TIFFreeBuf fers ( ILTR_PTRANSL tr, PSTTI F_TYPE pstTIF) 



/ 



// Free Reusable buffers if allocated 
ILUT_FreeBuf fer ( &TI F_CurrentRecord ) ; 
ILUT_FreeBuf fer ( &TI F_OriginalRecord ) ; 
ILUT_FreeBuf fer ( &TI F_Fi rstRecord ) ; 
ILUT_FreeBuf fer ( &TI F_SecondRecord ) ; 
ILUT_FreeBuf fer { &TIF_Source Record J ; 

ILUT_FreeBuf fer ( &TI F_Current Field ) ; 
ILUT_FreeBuf fer ( &TI F_Original Field ) ; 
ILUT_FreeBuf fer ( &TI F_Ext ra Field ) ; 

// Free fanning buffer if allocated 

if ( TI F_pFanBuf NULL) 

{ 

ILUT_FreeBuf fer ( TI F_pFanBuf ) ; 

IL_FREE (TIF_pFanBuf->hBuf ferHeader, TI F_pFanBuf ) ; 



// Free Fieid Lists if allocated 
if (TIF_pFieldList != NULL) 

IL_FREE (TIF_hFieldList, TI F_pFieldList ) ; 

if (TIF_pSourceFieldList != NULL) 

IL_FREE (TIF_hSourceFieldList , TI F_pSourceFieldList ) ; 

} // TIFFreeBuf fers 



/* 

* Name: TI FInit Record 

* Purpose: Initialize the TIF structure representing an ILDFX record buffer 
* +■ i 

int TI FInitRecord ( PSTTI F_TYPE pstTIF, 

TI F_FIELDLIST_PTR pFL, 
ILUT_PBUFFER pRecord ) 

( 

int rc; 

ILTR_PTRANSL tr = TIF_tr; 
TIF_RECORD_VALUE_PTR pRecStruct; 
int fieldcount = TI F_FieldCount2 (pFL) ; 
INTI6 fieldnum; 

// Calculate specified length according to number of fields 
INT32 ISize = si zeof ( TI F_R E CO RD_ VALUE ) + 

(sizeof (TIF_FIELD_VALUE) * fieldcount); 

/* 

* Allocate record buffer, if not already allocated. 

* Once allocated, record buffer may grow but it never shrinks. 

* v 

if (pRecord->pBuf fer == NULL) 



Copyright ©1996 Puma Technology, Inc. All Rights Reserved. 



Tif.cpp 



Page 29 of 53 



rc = ILUT_GetBuf fer (pRecord, lSize); 
if (rc != SUCCESS) 

return ILERROR_L (lSize, TI F_ERR_MEM ) ; 

} 

pRecStruct = (TIF_RECORD_VALUE_PTR) ( pRecord->pBuf f er ) ; 
IL_MEMSET (pRecStruct, 0, (size_t) lSize); 

// the MEMSET sets all Field Lengths to ZERO 

// initialize all field offsets to NOTSET 

for (fieldnum = 0; fieldnum < fieldcount; fieldnum++ } 
TI F_FieldOf f set ( pRecStruct , fieldnum) = TIF_NOTSET; 

TIFREC_SIZE (pRecStruct) = lSize; 
TI FREC_COMMAND (pRecStruct) = 0; 

/* 

* If running under an App that's new enough to use SST stuff r 

* and SST Tagging mechanism is enabled, 

* initialize record subtype to match source section subtype. 

* NOTE: for ILX_V3 mode this is done by ILTR\ export . c\ExportWhile . 
+ v 

if ( ILTR_VERSI0N_IS_AT_LEAST(21 ) 

&& ( ( ILTR_Flags & ILTR_DISABLE_SST_TAGGING ) == 0) ) 

{ 

If Get fieldnum needed to initialize the _subType field 

if (pFL TIF_pSourceFieldList ) 

fieldnum = TI F_SourceSubTypeFieldNum; 
else 

fieldnum = TI F_SubTypeFieldNum; 

// Initialize record subtype according to where it is coming from 

char szTemp [ 10] ; 
int subtype; 

if ( (ILTR_phase == ILTR_PHASE_I LX_V3_M0D£ > 

&& (TIF_phase TI F_PHASE_LOADING_TARGET_RECORDS ) ) 
subtype - (int) ILTR_TargetSST; 
else 

subtype = (int) ILTR_SourceSST; 

IL_SPRINTF {szTemp, M %d", subtype); 

rc = TIFRecordAddFieldValue 
( pstTIF, pFL, 

fieldnum, // specify field by number 
szTemp, 

0, // length {ignored for all non-binary fields) 

FALSE , // don't map chars 
pRecord ) ; 

if (rc != SUCCESS) 

return ILERROR ( rc, TI F_ERR_ABNORMAL ) ; 

} // end if ( ILTR_VERSION_IS_AT_LEAST ( 21 ) ) 

return SUCCESS; 

} // TIFInitRecord 



/* 

* Name: 

* Purpose 

* Input: 



* Return: 



* Author: 

* Notes: 



TIFHowManyField 

Returns how many fields are currently defined in TIF 
pstTIF 

Pointer to global information 
INumOf Fids 

Pointer to number of fields defined 
SUCCESS - If all went well. 

TI F_ERR_MEM - If there is no global structure 

INumFields filled in 

Ken Dobson, Copyright (c) IntelliLink Corporation, 1994 
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* v 

int TIFHowManyField ( PSTTI F_TYPE pstTIF, 

INT32 *lNumOfFlds ) 

{ 

*lNumOfFlds = (INT32) TI F_FieldCount (pstTI F) ; 
return SUCCESS; 

} // TIFHowManyField 



/ 



* Name : 

* Purpose 



Input : 



* Return: 



* Author: 

* Notes : 



TIFGetFieldName 

Returns field name given an index 
pstTIF 

Pointer to global information 
lFldNdx 

Field index 
szFldName 

Buffer for name of field 
SUCCESS - If all went well. 

TIF_ERR_MEM - If there is no global structure 

szFieldName filled in 

Ken Dobson f Copyright (c) IntelliLink Corporation, 1994 



/ 



int TIFGetFieldName ( PSTTI F_TYPE pstTIF, 

INT16 fieldnum, 
IL PSTR szFldName } 



{ 



if ( (pstTIF == NULL) || (*pstTIF == NULL) ) 
return TI F_ERR_PILTI F_IS_NULL; 

// Copy the field name into the buffer 

IL_STRCPY (szFldName, TI F_FieldName ( pstTI F, fieldnum) ) ; 
return ( SUCCESS ); 



} // TIFGetFieldName 



* Ref lectSourceAttribs — only caller is TI FDef ineOneField 

* this function does special stuff for Mapped Target Fields for Sync Only. 

* ir I 

static int Ref lectSourceAtt ribs ( ILTR_PTRANSL tr, 

PSTTI F_TYPE pstTIF, 
int tifFieldnum, 
ILTR_NDX iltrFieldnum ) 

{ 

// G et FieldNum of Source Field that is mapped to this Target Field 

ILTR_PFLDMAP pMap = &ILTR_pTableInfo->sFieldMap; 
I LTR_FLDPTR pFld = &pMap->pTa rget ( iltrFieldnum] ; 
I LTR_N DX nSrcFld = pFld->MapField ; 
ILTR_FLDPTR pSrcFld; 

ILTB_ATTRIB attribs = TI F_FieldAtt ributes (pstTIF, tifFieldnum); 

ILTB_ATTRIB a2add = 0; // attributes to "reflect across" (i.e. add) 

INT32 ea2add = 0; // Extra Attributes to add 

// carry over the NO-RECONCILE 

// and INSENSITIVE and STRIPPED COMPARE attributes 

ff define CARRYMASK ( I LTB_ATT_NO_RECONCI LE \ 

I ILTB_ATT_INSENSITIVE \ 

I I LT B_ATT_COM PAR E_ST R I P P E D ) 

/ + 

* First consider top-level fields that are truly mapped; not pseudo-mapped 

* (this first section doesn't see cases where a combined field is mapped 

* by virtue of some of its sub-items being mapped.) 



if (nSrcFld != ILTR_UNMAPPED && nSrcFld != ILTRJJNMAPPED BUT TAGGED) 
{ 

// Get Ptr to ILTR descriptor for Source Field 

pSrcFld = &pMap->pSource [nSrcFld] ; 
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// copy MaxLength of Source Fid into MaxMappedLength for Target Fid 

TIF_FieldMaxMappedLength (pstTIF, t i f Fieldnum) = pSrcFld->Width; 

// carry over the NO-RECONCILE and INSENSITIVE attributes 

a2add |= pSrcFld->Att ribs & CARRYMASK; 

} 

/* 

* Next consider combined fields where the top-level combined field is NOT 

* mapped directly. Need to see if any sub-items are mapped. 

+ _ v 

else if {attribs & I LTB_ATT_COMBINED) 
{ 

int i; 

int UnmappedSubltemCount - 0; 

BOOLEAN bLIMapped; // variable used to check for '1st line mapped' case 

/* 

* The first requirement for '1st line mapped* is that the 

* combined field must be a multi-line field. 



bLIMapped = ({attribs & I LT B_ATT_MU LT L I N E ) 0); 

// don't run off the end of the fieldmap 

if (iltrFieldnum+1 > pMap->nTarget ) 
return SUCCESS; 

// take a look at the 1st sub-item of the combined field 

pFld = SpMap->pTarget [ iltrFieldnum+1 ] ; 

/* 

* Nix '1st line mapped' if first sub-item doesn't have 

* terminator=END-OF-LINE. 



if (pFld->ItemNo != 2 | I pFld->Term != ILX_TERM_EOL} 
bLIMapped = FALSE; 

// Nix '1st line mapped' if first sub-item isn't mapped 

nSrcFld = pFld->MapField; 

if (nSrcFld == I LTRJJNMAPPED | | nSrcFld == ILTR_UNMAPPED_BUT_TAGGED ) 
bLIMapped = FALSE; 

// else carry over the NO-RECONCILE and INSENSITIVE attributes 

else 

{ 

pSrcFld = &pMap->pSource [nSrcFld] ; 
a2add |= pSrcFld->Att ribs & CARRYMASK; 

} 

// check mapping of subsequent sub-items 

for {i = ilt rFieldnum+2; i < pMap->nTarget; i++) 
{ 

pFld = &pMap->pTarget [ i ] ; 

// stop scanning when we run out of sub-items 

if (pFld->ItemNo == 1) 
break; 

// Nix '1st line mapped' if we find another mapped sub-item 

nSrcFld = pFld->MapField; 

if (nSrcFld != ILTRJJNMAPPED && nSrcFld != ILTR UNMAPPED BUT TAGGED) 
{ " " 

bLIMapped = FALSE; 

// carry over the NO-RECONCILE and INSENSITIVE attributes 

pSrcFld = &pMap->pSource [nSrcFld] ; 
a2add |= pSrcFld->Att ribs & CARRYMASK; 

} 

// count unmapped sub-items 

UnmappedSubItemCount++; 

} 

// if the 1 mapped sub-item is followed by 1 or more unmapped 

// sub-items, set bit saying field has only first line mapped 

if (bLIMapped && UnmappedSubltemCount > 0) 
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ea2add |= TI FEA_FIRST_LINE_MAPPED; 

} 

// If any attributes need tweaking, do it now 

if (a2add != 0 | | ea2add ! = 0) 

TIFlog2ints (40, " +%lx.%081x", ea2add, a2add); 

TIF_FieldAttributes {pstTIF, tifFieldnum) |= a2add; 

TIF_ExtraAttributes (pstTIF, tifFieldnum) |= ea2add; 

} 

return SUCCESS; 
} // Ref lectSourceAttribs 



/* 

* Name: TI FDefineOne Field 

* Purpose: Define a field in the TIF 

* Called from ILTIF.CPP \ ILTI FDef FieldEx 

* NOTE: currently we use only 1 INT32 worth of Ext raAtt ributes, but 

* if more are needed just modify this function and the TI F_FIELD_DESC 

* structure definition in TIF.H. 

* v 

int TI FDe f ineOne Field ( PSTTI F_TYPE pstTIF, 

TIF_FIELDLIST_PTR pFL, 
IL_PSTR szFldName, 
LONG lFldSize, 
int nFldType, 
IL_PSTR szFormat, 
IL_PSTR szRelFldName, 
ILTB_ATTRIB FieldAtt ributes, 
INT32 *pExtraAttributes, 
BOOLEAN bPositive, 
IL_PSTR szDefault, 
ILTR_NDX iltrFieldnum ) 

{ 

INT32 ExtraAttributes = + pExtraAttributes; 
ILTR_PTRANSL tr = TIF_tr; 
int rc; 

if (szFldName == NULL) 

return TI F_ERR_BAD_FLDNAME; 

// Increment the actual number of fields. We fill up the fieldlist 

// from bottom to top. Get zero-based index into array of fields. 

int fieldnum; 

fieldnum = TI F_FieldCount 2 ( pFL ) ++ ; 

if ( TI F_FieidCount2 (pFL) > pFL->Al located FieldCount ) 
{ 

if ( pFL == TIF_pFieldList) 

{ 

rc = EnlargeFieldList (pstTIF, &TI F_pFieldList , &TI F_hFieldList ) ; 
pFL = TIF_pFieldList; // may be relocated!!! 

} 

else 
{ 

rc = EnlargeFieldList ( pstTIF, 

&TIF_pSourceFieldList , 

&TIF_hSourceFieldList } ; 
pFL = TIF_pSourceFieldList; // may be relocated!! 

} 

if (rc != SUCCESS) 
return rc; 



/ + 

* Caller may say he wants to use a Date Field as a Key Field, but 

* when Synchronizing Appts or ToDos we relegate Key Date Fields to 

* a slightly inferior status. Keeping DATEs out of the list of 

* bona fide Key Fields, allows SKGs (Same Keyfield Groups) to gather 

* up Fanned Instances and Recurring Masters^ 
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* When it comes down to pairing up non-recurring SKG members as 

* INEXACT matches, we will refuse to pair up items with different 

* • KeyDateField * values. 

* See TIFSYNC.CPP - EngageFi rstAvailablelnSKG and PickFi rst InSKG . 

* NOTE: it is~a mistake to designate more than one Date Field as a Key 

* Field. The first MAPPED Key Date Field will be treated by TIF 

* as the ONLY Key Date Field. 

* v 

if ( TIF_nSynchronize 

&& { FieldAttributes & I LTB_ATT_KE Y_FI ELD) 
&& {nFldType == ILX_TYPE_DATE) 

&& ( ILTR_nFunction == ILTR APPT || ILTR nFunction == ILTR TODO) ) 

{ 

FieldAttributes &= ~ILTB_ATT_KEY_FIELD; 
ExtraAttributes |= TIFEA_KEY_DATE_FIELD; 

if { pFL == TIF_pFieldList && (ExtraAttributes & TIFEA ISNT MAPPED } == 0) 
{ 

if (TIF_KeyDateFieldNum == TIF NOTSET) 
{ 

TIF_KeyDateFieldNum = fieldnum; 

TIFlogszszul ( "Field 'Is 1 recognized as KeyDateField ( f ieldnum=%ld ) " , 

szFldName, fieldnum ); 

} 

else 

TIFlogs'z3 ( "Keeping KeyDateField 'Is*, ignoring %s", 

TIF_FieldName (pstTIF, TIF KeyDateFieldNum) , szFldName); 

} 

) 

/* 

* Caller may say he doesn't want the Exclusion List for recurring 

* items reconciled, but TIF may decide to override that choice. 

* Likewise for RepBasic field. 



if { TI F_bReconcileExclusions 

&& IL_STRINGS_EQUAL ( szFldName, ILTR_REP_X DATE ) ) 
FieldAttributes &= ~ILTB_ATT_NO_R£CONCILE; 

/ + 

* Unless filtering by Section SubType is DISABLED, we treat the 

* _subType field as a KEY FIELD. 

* + / 

if (IL_STRINGS_EQUAL (szFldName, ILTR SUB TYPE)) 
{ " " 

FieldAttributes &= - 1 LTB_ATT_NO_RECONCI LE ; 

FieldAttributes |= ILTB_ATT_KEY_FIELD; 

if (pFL == TIF_pSourceFieldList) 

TIF_SourceSubTypeFieldNum = fieldnum; 
else 

TIF_SubTypeFieldNum = fieldnum; 

} 

if ( TI F_bReconcileRepBasic 

&& IL_STRINGS_EQUAL{ szFldName, ILTR_REP_BASIC ) } 
FieldAttributes &= - 1 LTB_ATT_NO__RECONCI LE ; 

IL_STRCPY {TIF_FieldName2(pFL, fieldnum), szFldName); 
IL_STRCPY (TIF_RelatedFieldName2(pFL, fieldnum), szRel FldName ) ; 

TI F_FieldMaxLength2 (pFL, fieldnum) = lFldSize; 
TIF_FieldType2 (pFL, fieldnum) = nFldType; 
TI F_FieldNum2 ( pFL, fieldnum) = fieldnum; 

if (szFormat === NULL) 

IL_MAKE_STRING_NULL(TIF_FieldFormat2 (pFL, fieldnum) ) ; 
else 

IL_STRCPY (TIF_FieldFormat2 (pFL, fieldnum), szFormat); 

/* 

* Here we simply copy the default value string supplied by the caller. 

* Later Identif yDef aultFields will interpret the default value, in 

* case it identifies another field to get the default value from. 
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if (szDefault »= NULL) 

IL_MAKE_STRING_NULL(TIF_FieldDefaultValue2 (pFL, fieldnum) ) ; 
else 

IL_STRCPY{TIF_FieldDefaultValue2(pFL, fieldnum) , szDefault) ; 

TIF_FieldAttriSutes2 (pFL, fieldnum) = FieldAttributes; 
TIF_ExtraAttributes2 {pFL, fieldnum) « Ext raAtt ributes ; 
TIF_FieldIsAdded2 (pFL, fieldnum) = (B00L16) bPositive; 

/* 

* For Synchronization Only, for Mapped Target Fields, pay attention 

* to characteristics of the Source Fields to which the Target Fields 

* are mapped. 



if ( ILTR_nSynchronize 

&& ILTR_phase == ILTR_PHASE10 
&& iltrFieldnum != TIF_NOTSET 
&& TIF_FieldIsMapped(pstTIF, fieldnum) ) 

{ 

rc = ReflectSourceAttribs (tr, pstTIF, fieldnum, iltrFieldnum); 
if (rc != SUCCESS) return rc; 



if (ILTR_phase == ILTR_PHASE05 ) 
{ 

/* 

* We currently have some serious deficiencies in field-handling for 

* SOURCE FIELDS . This should only affect Phase 40 of Synchronization. 

* We don't support ValueRequi red fields, and may have some problems with 

* use of Related Fields. So here we shut these things off. 

* When some fields are mapped, but others aren't, complications may 

* arise. But a basic approach to removing these restrictions is this: 

* 1. TIF should be told about ALL source fields (or TIF can just 

* look at the Field Info on its own) 

* 2. When TIF is told that SourceField F gets default value from 

* SourceField G, it should do the following: 

* a. determine whether SourceField G is mapped to a 

* TargetField (TG) . 



*■ 
+ 

+ 



+ 



+ 



* 



b. if mapped, we get default value from Target field TG . 

c. otherwise get default value from Source Field G (with 
USFN decorated name!!). Of course if field G is not 
set up in TIF, then default value will come straight 
from TIF default, not from any field. 

NOTE that all of a,b,c will be done by TI FIdenti f yDef ault- 
Fields, which is called after ALL ILTI FDef Field calls have 



* been made. 

* 



3. Note that there is no TI FFi UDef aults equivalent for Phase40. 
Default values must be looked up on the fly by the code 

that implements I LTI FGet Field . This is actually quite a 
complicated thing to do, since ILTI FGet Field calls invoke 
Field Mapping in Phase40. A possible RESTRICTED approach 
might be this (inside I LTI FGet Field implementation): 

a. call ILFldGet to invoke field mapping. 

b. if result of (a) is a null value, and if the Source Field 
we're trying to get has the ValueRequired attribute, then 
try to get default value using whatever rules are set, 
such as trying to get value from another field or using 

a constant or TIF default. 

4. Concerning Related Fields, ILTR\ ILFldGet support for them 
should work fine in Phase40, but any TIF-specific code for 
dealing with related fields is disabled. This is probably 
no great loss. 



if (TIF_FieldAttributes2 (pFL, fieldnum) & ILTB ATT VAL REQUIRED) 
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{ 

TIFlogszsz ( "WARNING : turning off ValueRequi red attrib for source field '%s*", 
szFldName ) ; 

TIF_FieldAttributes2 (pFL, fieldnum) &= -ILTB ATT VAL REQUIRED; 

} 

if ( IL_STRltfG_ISNT_NULL(TIF_RelatedFieldName2 (pFL, fieldnum) } ) 
{ 

// don't bother warning anyone; it's not worth mentioning cuz it really has 

// no impact. Nothing that TIF does during Phase40 depends on TIF's 

understanding 

// of Related Fields. 

// TIFlogsz3 { "WARNING : disabling use, by source field %s, of Related Field %s", 
// szRelFldName, szFldName }; 

IL_MAKE_STRING_NULL(TIF_RelatedFieldName2 (pFL, fieldnum) ) ; 

} 

} 

return SUCCESS; 
} // TIFDefineOneField 



/ + 

* Name: TI FLookUpFieldDef inition 

* Purpose: Locate the definition of a field that TIF knows about 

+ Author: David Boothby, Copyright (c) IntelliLink Corporation, 1995 



int TI FLookUpFieldDef inition 
( PSTTIF_TYPE pstTIF, 

IL_PSTR szFldName, // IN: Field name 

TI F_FIELD_DESC_PTR IL_DIST *ppDef ini t ion ) // OUT: ptr to Definition 

{ 

// Loop through the fields until we find the one we are looking for 

int fieldnum = TIF_NOTSET; 

int fieldcount = TIF_FieldCount (pstTIF) ; 

for {int i = 0; i < fieldcount; i++) 

{ 

if (IL_STRINGS_EQUAL( szFldName, TI F_FieldName (pstTIF, i))) 
{ fieldnum = i; break; } 

} 

if (fieldnum == TIF_NOTSET) 

return TI F_ERR_BAD_FLDNAME ; 
else 

{ 

*ppDef inition = &TI F_FieldDesc (pstTIF, fieldnum); 
return SUCCESS; 

} 

} // TIFLookUpFieldDef inition 



/* 

* Name: TI FPut FieldBylndex — put field w/o doing any character mapping 

* Author: David Boothby, Copyright (c) IntelliLink Corporation, 1995 

* v 

int TIFPutFieldBylndex 

( PSTTI F_TYPE pstTIF, 
INT16 fieldnum, 
I L_PANY pFldData, 

INT32 len } // len is only relevant for BINARY fields 

{ 

int rc = TIFRecordAddFieldValue ( pstTIF, 

TIF_pFieldList, 

nn f // field name not specified... 

fieldnum, //...specify field by number 
(IL_PSTR) pFldData, 
len, 

FALSE, // do not do character mapping 
&TIF_Current Record ); 

return rc; 
} // TIFPutFieldBylndex 
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/ 



* Name: 

* Purpose 



Use Factory Default 

Fill in a TIF default value based on field type, 
called from TIFFi 11 Defaults 



* Author 

* Notes : 



+ 



Ken Dobson, Copyright (c) IntelliLink Corporation, 1994 
This routine is called when a value is required for a field 
and all other attempts at filling this field with a value 
has failed such as using a supplied default value, and using 
an associated field default value .( either of which are supplied 
in the tables . ) 



static int Use FactoryDef aul t (PSTTIF TYPE pstTIF, INT16 fieldnum) 



/ 



{ 



int rc; 

char szDate [ 9] ; 

IL_PSTR IpszDef aultValue; 

int nFldType = TIF_FieldType (pstTIF, fieldnum); 

switch { nFldType ) 
{ 

case ILX_TYPE_TEXT: 

IpszDefaultValue = ""; 
break; 

case ILX_TYPE_BOOL: 

IpszDefaultValue = TI F_BOOL_DE FAULT; 
brea k; 

case I LX_TY PE_NUMBER : 

IpszDefaultValue = TI F_NUMBER_DEFAULT; 
break; 



case ILX_TYPE_TIME: 
IpszDefaultValue 
break; 



^ TIF TIME DEFAULT; 



} 



case ILX_TYPE_DATE: 
( 

int nMonth; 
int nDay; 
int nYear; 

LONG CurrentDate = IL_GetCurrentDate ( ); 
IL_DateDecode { CurrentDate, inMonth, SnDay, &nYear }; 
IL_DateToAlpha { nMonth, nDay, nYear, szDate ); 
IpszDefaultValue = szDate; 
break; 



default: return TIF ERR BAD FIELD TYPE; 



rc = TIFRecordAddFieldValue { pstTIF, TI F_pFieldList , fieldnum, 

IpszDefaultValue, 
0, // "length" (ignored) 
FALSE, // do not do character mapping 
&TIF_CurrentRecord ); 

return rc; 



} // UseFactoryDefault 



/* 

* Name: 

* Purpose: 



* Input: 



TIFFillDefaults 

Make sure that all fields that are supposed to have a value 
are filled in with either a user supplied default, or if there 
is no user supplied default then a TIF default value based on 
the type 
pstTIF 

Pointer to global information 
tr struct 
hRecord 
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* Handle to the buffer to place the record in 

* pRecord 

* The record buffer 

* Return: SUCCESS - If all went well. 

* Author: Ken Dobson, Copyright (c) IntelliLink Corporation, 1994 

* WARNING: uses~the TI F_Current Field buffer 

+ + / 

int TIFFillDefaults ( PSTTI F_TYPE pstTIF, 

ILTR_PTRANSL tr, 
ILUT_PBUFFER pRecord } 

{ 

int rc = SUCCESS; 

LONG lField; // Length of field data 

^define pRecData ( { TIF_RECORD_VALUE_PTR ) (pRecord->pBuffer) ) 
// For each of the fields 

for {int fieldnum = 0; fieldnum < TIF FieldCount (pstTI F) ; fieldnum++) 
{ 

ILTB_ATTRIB FieldAtt ributes = T I F_FieldAt tributes ( pstTI F, fieldnum); 
if { ( FieldAttributes & I LTB_ATT_VAL_REQUI RED ) 0) 

// we don't supply defaults for fields w/o ValueRequired flag 

continue; 

// Retrieve the data for the current field from the current record 
rc = TI FRetrieveFieldBylndex 

(pstTIF, fieldnum, &lField, &TI F_Cur rent Field, pRecData); 
if (rc != SUCCESS} break; 

if (IL_STRING_ISNT_NULL ((IL_PSTR) TI F_pCur rent Field ) ) 

// we don't supply defaults for fields that already have values 

continue; 

int nFromField; 

nFromField = (int) TIF_FieldToGetDefaultValueFrom(pstTIF, fieldnum); 
IL_PSTR szDefault; szDefault = TIF_FieldDef aultValue (pstTIF, fieldnum); 

if ((nFromField == TIF_NOTSET) &S, I L_STRING ISNT NULL ( szDefault ) } 
{ 

// simply plug in constant default value from table 

rc = TIFRecordAddFieldValue 
( pstTIF, 

TIF_pFieldList, 

// field name not specified... 

fieldnum, //...specify field by number 

szDefault, 0, // NOTE: length (0) is ignored 

FALSE, // do not do character mapping 

pRecord ) ; 
if (rc != SUCCESS) break; 

} 

else 
{ 

if (nFromField != TIF_NOTSET) 
{ 

// get default value from another field 

// NOTE that this may still leave us with a NULL value 

rc =» TIFRetrieveFieldBylndex 

(pstTIF, nFromField, SlField, &TI F_Current Fi eld , pRecData); 
if (rc != SUCCESS) break; 

) 

if (IL_STRING_IS_NULL ((IL_PSTR) TI F_pCurrent Field ) ) 
{ 

rc = UseFactoryDefault (pstTIF, fieldnum); 
if (rc != SUCCESS) break; 

) 

else 
{ 

rc = TIFRecordAddFieldValue 
( pstTIF, 

TIF_pFieldList, 

// field name not specified... 
fieldnum, //...specify field by number 
(IL_PSTR) TIF pCurrentField, lField, 
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FALSE, // do not do character mapping 
pRecord ) ; 
if (rc !« SUCCESS) break; 

) 

) 

} // end for ( f ieldnum. . . ) 
return rc; 
} // TIFFillDefaults 



/* 

* Name: TI FRet rieveRecord 

* Purpose: Get specified record from TIF 

* Pass in record** and ptr, handle pair for a reusable/ resi zable buffer. 

* This routine will update the buffer ptr, handle. 



int TIFRetrieveRecord ( PSTTI F_TYPE pstTIF, 

LONG IRecNum, 
ILUT_PBUFFER pRecord ) 

{ 

ILDFX_EC ec; 

INT32 IRecordLength; 

//TIFlogszul ("TIFRetrieveRecord[%ld] ", (UINT32) IRecNum); 

if (IRecNum < TI F_FIRST_ITEMNO) 

return ILERROR_L (IRecNum, TI F_ERR_ABNORMAL ) ; 

ec = ILDFX_GetRecordLength (TIF_hFile, IRecNum, &!RecordLength ) ; 

if (ec != ILDFX_OK) 

{ 

char sz [ 40] ; 

IL_SPRINTF(sz, M recnum=%ld;ec=%d", IRecNum, ec); 
return ILERROR_S (sz, TI F_ERR ABNORMAL); 

} 



// make sure buffer is big enough; expand if necessary 

ec = ILUT_GetBuf f er (pRecord, IRecordLength); 
if (ec != SUCCESS) 

return ILERROR_L (IRecordLength, TI F_ERR_MEM) ; 

ec = ILDFX_GetRecord (TIF_hFile, IRecNum, 

NULL, // don't want ExData 

pRecord->pBuf f er, 

IRecordLength, 

NULL); // don't want bytecount 

return ec; 



} // TIFRetrieveRecord 



/* 

* Name: TI FBui IdSPT 

* Purpose: Build itty bitty "cig" and "spt" arrays from CIG members. 

* The resulting arrays are useful for picking out CIG members 
+ by ORIGIN. 

* +/ 

int TI FBui IdSPT { ILDFX_PHNDL phFile, 

INT32 Item, 
INT32 *cig, 
INT32 *spt } 

{ 

int i; 



cig[0] = TI F_NOTSET; 
cig[l] = TI F_NOTSET; 
cig [2] = TIF NOTSET; 



spt[TIF_SPT_S] 
spt [TIF_SPT_P] 
spt [TIF_SPT_T] 



TIFJMOTSET; 
TI F_N0TSET; 
TIF NOTSET; 
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cig[0] = Item; 

cigfl] = TIFGetNextInCIG(phFile, Item); 
if (cig{lj < 0) 

return (int) cig[l]; // abnormal error 

cig[2J = TIFGetNextlnCIGtphFile, cig[l]}; 
if (cig[2) < Of 

return (int) cig[2J; // abnormal error 

// Now figure things out for Synchronization 

for (i=0; i < 3; i++) 
{ 

switch{TIFX_ORIGIN(phFile, cigti] ) ) 
< 

case TIF_FROM_PREVIOUS: spt [TIF_SPT_P] = cig[i]; break; 
case TIF_FROM_TARGET: spt [TIF_SPT_T] = cig[i]; break; 
case TIF_FROM_SOURCE: spt [TIF SPT S] = cig[i]; break; 

} 

} 

return SUCCESS; 
) // TIFBuildSPT 



/* 

* Name: TI FSetRecordNumbers 

* Purpose: For a given CIG, figure out which item is "current" and which 

* item is "original". 

* Called from: TIFGetRecord and TIFSyncGetOutcome 
+ NOTE that Current & Original may be identical!! 

*• +y 

int TIFSetRecordNumbers ( PSTTIFJTYPE pstTIF, 

INT32 Item, 

INT32 IL_DIST *pCurrent, 
INT32 IL DIST *pOriginal ) 



{ 



INT32 cig[3] ; 
INT32 spt [3] ; 

int rc « TIFBuildSPT (TIF_hFile, Item, cig, spt); 
if {rc != SUCCESS) 
return rc; 



if (TIF_phase == TI F_PHASE_SANITIZING_SOURCE_RECORDS ) 
{ 

/* 

* For both SmartMerge and Synchronization, when we're sanitizing source 

* records, all the CIGs we read from are singletons, because we only 

* read un-analyzed records in that phase. In this phase user reads 

* from ORIGINAL and writes to CURRENT . 

* * / 

*pCurrent = TI F_NOTSET; // **xref001** 
v pOriginal = cig[0J; 



else if (TIF_nSynchronize ILXTR_SYNC_NO) 
{ 

/ + 

* For SmartMerge, the choice is simple, cuz at this point in SmartMerge 

* there are only two cig types to consider: either a doubleton 

* consisting of a cig [ 0] =SourceItem and cig [ 1 ] =ObsoletedTargetItem, or 

* a singleton. The singleton may be a Sourceltem to add, or a 

* Targetltem to leave alone. 

+ v 

*pCurrent - cig[0]; 
*pOriginal = cig[l]; 



else if (cig[0] == cig[l] cigtl] == cig[2]) 
{ 

// for a singleton CIG things we don't have much choice 

♦pCurrent = cig[0]; 
*pOriginai = cig[0]; 
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) 

else 

rc = TIFTablePickRecordsForSync ( pstTIF, Item, 

TIF_phase f spt, 
pCurrent, pOriginal ); 

return rc; 
} // TIFSetRecordNumbers 



* Name: 



Purpose 



* NOTE: 
+ 



T I FCopyUnmapped Fields 

copy unmapped fields from Original record to Current record. 
This is done when sanitizing source records. 

In addition to unmapped fields, we also copy the _subType field. 
This ensures that the _subType field value will not be corrupted 
by the "sanitizing" process. (If someone comes up with a case 
where a sanitizer needs to be able to modify the subType, we 
will frustrate that person until this is changed. 7.} 



int T I FCopyUnmapped Fie Ids ( PSTTI F_TYPE pstTIF) 
{ 

int rc = SUCCESS; 

int fldcount « TI F_FieldCount (pstTIF) ; 

for (int fldnum=0; fldnum < fldcount; fldnum++) 



/ 



{ 



if ( TIF_FieldIsntMapped(pstTIF, fldnum) 
II (fldnum == TIF_SubTypeFieldNum) ) 

{ 

INT32 len = TI F_FieldLength ( TI F_pOrigina IRecord, fldnum); 
if (len > 0) 

{ 

IL_PSTR pData = TI F_FieldData ( TI F_pOriginal Record, fldnum); 
rc = TIFRecordAddFieldValue ( pstTIF, 

TIF pFieldList, 



fldnum, 
pData, 
len , 

FALSE, // don't do character mapping 
&TIF CurrentRecord ); 



if (rc != SUCCESS) break; 



} 

return rc; 



} // TIFCopyUnmappedFields 



/* 

* Name: TIFGetRecord 

* Purpose: Read "current" record into 'CurrentRecord' buffer, 

* and read the original record into the ' OriginalRecord ' buffer. 

* NOTE: the RecordNumber passed in by the caller simply points to the CIG; 

* we call ' SetRecordNumbers 1 to determine actual Current and 

* Original record numbers. 



* NOTE that Current & Original may be identical!! 



int TIFGetRecord ( PSTTI F_TYPE pstTIF, INT32 RecordNumber ) 
{ 

ILDFX_PHNDL phFile = TIF_hFile; 

int rc ~ TIFSetRecordNumbers ( pstTIF, RecordNumber, 

&TIF_lCurrentRecNum, 
&TIF_10riginalRecNum ); 

if (rc != SUCCESS) 

goto TIF_GET_RECORD_EXIT; 

// note: if Current Record belongs to a singleton CIG, then 

// CurrentRecordNumber — OriginalRecordNumber at this point 

rc = TIFRetrieveRecord ( pstTIF, 



/ 
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TI F_10riginalRecNum, 
&TIF_OriginalRecord ); 

if (rc != SUCCESS) 

goto TIF GET RECORD EXIT; 



if (TIF_iCurreiTtRecNum == TIF_10riginalRecNum) 
{ 

// need 2 copies of same record. Instead of reading twice, 

// just copy from one buffer into the other. 

rc » TIFCloneRecord (pstTIF); 

} 

else if (TIF_iCurrentRecNum == TIF NOTSET) 
{ 

// call TIFInitRecord when Sanitizing Source Records **xref001+* 

rc = TIFInitRecord (pstTIF, TIF pFieldList, &TIF CurrentRecord ) ; 

} 

else 
{ 

rc = TIFRetrieveRecord ( pstTIF, 

TIF_lCurrentRecNum, 
&TIF_CurrentRecord ); 

} 



TI F_GET_RECORD_EXIT : 
// 

if (rc != SUCCESS) 

TIFlogszulul ( "TI FGet Record ( % Id ) rc=%ld", 

(UINT32) RecordNumber, (UINT32) rc ); 

return rc; 
} // TIFGetRecord 



/* 

* Name: TIFRetrieveFieldBylndex 

* Purpose: Get specified field data from specified buffer 

* Author: David Boothby, Copyright (c) IntelliLink Corporation, 1995 

* Notes: returns TI F_ERR_BAD_FLDNAME when called with f ieldnum==TI F NOTSET. 

* NOTE: returned LENGTH includes the NULL terminator for non-binary fields. 

* Always make sure a buffer is allocated, and return buffer pointer. 

* We have to allow for callers who disregard a nonzero return code 

* & de-reference the pointer (3/31/95). 



int TIFRetrieveFieldBylndex ( PSTTI F_TYPE pstTIF, 

INT16 fieldNumber, 

INT32 IL_DIST *pl FieldLength, // OUT 

ILUT_PBUFFER pField, 

TI F_RECORD VALUE PTR pRecord ) 

{ 

int rc = RetrieveFieldValue ( pstTIF, 

TIF_pFieldList, 

pRecord, 

fieldNumber, 

pi FieldLength, pField ); 

return rc; 
} // TIFRetrieveFieldBylndex 

/* 

* Name: RetrieveFieldValue 
■*■ 

* Lowest level FieldValue Retrieval function. 

* Called by TIFRetrieveFieldBylndex (usually) 

* and by TIFGetField for special case of reading from Source Cache. 



static int RetrieveFieldValue ( PSTTI F_TYPE pstTIF, 

TIF_FIELDLIST_PTR pFL, 

TI F_RECORD_VALUE PTR pRecord, 
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INT16 fieldNumber, 

INT32 IL_DIST +pl FieldLengt h f // OUT 
ILUT_PBUFFER pField ) 

int re, rc2; 

INT32 RequiredBuf ferSize; 
BOOLEAN bZeroLengthString; 
INT32 FieldOffset; 
INT32 FieldLength; 

// f ieldlength=zero until successful retrieval of non-null field 

*plFieldLength = 0; 

if (pRecord == NULL) 

rc = T I F_E RR_CANT_R E AD_ FROM_N U L L_R ECOR D ; 

else if (fieldNumber == TIF_NOTSET) 
rc = TIF_ERR_BAD_FLDNAME; 

else 
{ 

FieldOffset = TI F_FieldOff set ( pRecord, fieldNumber); 
if (FieldOffset == TI F_NOTSET J 

rc = SUCCESS; // zero-length field value is OK 

else if (FieldOffset < TI F_NOTSET ) 

rc = ILERROR_L (FieldOffset, TI F_ERR_ABSURD_FIELD_OFFSET ) ; 

else 
{ 

FieldLength = TI F_FieldLength (pRecord, fieldNumber); 
if ((FieldLength < 0) | I (FieldLength > I LTR_MAX_ FIELDLENGTH ) ) 
rc = ILERROR_L (FieldLength, TI F_ERR_ABSURD_FIELD_LENGTH ) ; 

else 
{ 

if (FieldOffset + FieldLength > TIFREC SIZE (pRecord ) ) 
{ 

char sz [80] ; 

IL_SPRINTF ( sz, "[%ld + %id > %ld]", 

FieldOffset, FieldLength, TI FREC_SIZE (pRecord ) }; 
rc = ILERROR_S (sz, TI F_ERR_FIELD_EXTENDS_BEYOND_RECORD_END) ; 

else 
( 

*plFieldLength = FieldLength; 
rc « SUCCESS; 

} 

} 

} 

} 



// NOTE: for text fields 1 TI F_FieldLength ' includes the null terminator 

if (*plFieldLength == 0) 
{ 

/* 

* Even though result is zero length, we set minimum buffer size==l 

* to ensure that we always generate a non-null buffer pointer, 

* even for zero-length binary field values. 

* v 

RequiredBuf ferSize = 1; 

bZeroLengthString = TRUE; 

if ( (fieldNumber != TI F_N0TSET ) 

&& (TIF_FieldType2 (pFL, fieldNumber) != ILX TYPE BINARY) ) 
/* z Z 

* For a zero-length non-binary data value, we actually 

* return a one-byte value: a null-terminated NULL STRING. 



*plFieldLength = 1; 

> 

else 
{ 

RequiredBuf ferSize = *pl FieldLength; 
bZeroLengthString = FALSE; 
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} 

rc2 = ILUT_GetBuf fer (pField, Requi redBu f f erSize ) ; 
if (rc2 != SUCCESS) 

return ILERROR_L ( RequiredBuff erSize, TI F_ERR_MEM ) ; 

if (bZeroLength~String ) 

I L_MAKE_ST R I NG_NU L L ( (IL_PSTR) { pField->pBuf f er ) ) ; 
else 

( 

IL_PSTR IpszFieldData = TI F_FieldData (pRecord, fieldNumber) ; 
IL_MEMCPY (pField->pBuf fer, IpszFieldData, (UINT) *pl FieldLength } ; 



return rc; 
} // RetrieveFieldVaiue 

/* 

* Name: TI FFieidChanged 

* Purpose: Determine whether Specified field changed in CURRENT record 
+ 

* WARNING: uses the TIF_Current Field and TIF OriginalField buffers 



int TIFFieldChanged ( PSTTI F_TYPE pstTIF, IL_PSTR IpszFieldName ) 

// Loop through the fields until we find the one we are looking for 

int fieldnum = TIFJMOTSET; 

int fieldcount = TIF_FieldCount (pstTIF) ; 

for (int i = 0; i < fieldcount; i++) 

if ( IL_STRINGS_EQUAL ( IpszFieldName, TI F_FieldName ( pstTI F, i)J) 

fieldnum = i; 
break; 

} 

if (fieldnum == TI F_NOTSET ) 

return TI F_ERR_BAD_FLDNAME; 

else if (TIF_FieldIsntMapped (pstTIF, fieldnum)) 

// we don't record history for unmapped fields, so for unmapped 

// fields we always say NO, this field value hasn't changed. 

return FALSE; 

else 
( 

BOOLEAN bChanged; 

INT32 CurrentLength, OriginalLength; 

int rc = GetFieldBylndex ( pstTIF, fieldnum, TI F_CURRENT, 

fiCurrentLength, &TI F_Current Field ); 

if {rc != SUCCESS) 
return rc; 

rc = GetFieldBylndex ( pstTIF, fieldnum, TI F_ORIGINAL, 

&OriginalLength, &TI F_Original Field ); 

if (rc != SUCCESS) 
return rc; 

bChanged = TI FFie Id Values Di f f er ( pstTIF, 

(IL_PSTR) TIF_pCurrentField, 
(IL_PSTR) TIF_pOriginalField, 
CurrentLength, 
OriginalLength, 
fieldnum ); 

return bChanged; 

} 

) // TIFFieldChanged 



/* 

* Name: TIFGetField — get value of named field 
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* NOTE: returned LENGTH includes the NULL terminator for non-binary fields. 



int TIFGetField ( PSTTI F_TYPE pstTIF, 

IL_PSTR IpszFieldName, 
int nWhich, 
^LONG *plFieldLength, 

^ ILUT_PBUFFER pField ) 

TIF_FIELDLIST PTR pFL; 



// original, current, or auto 
// OUT: length of field value 
// ptr to buffer header 



/* 

* First, decide which field list to use for fieldname lookup. 

* +/ 

if (nWhich == TI F_SOURCE_CACHE ) 

pFL « TIF_pSourceFieldList; 
else 

pFL = TIF_pFieldList; 

// Loop through the fields until we find the one we are looking for 

int fieldnum = TIF_NOTSET; 

int fieldcount = TIF_FieldCount2 (pFL) ; 

for (int i = 0; i < fieldcount; 

{ 

if ( IL_STRINGS_EQUAL ( IpszFieldName, TI F_FieldName2 ( pFL, i))J 
{ fieldnum = i; break; } 

} 

// Keep going even if fieldnum is still NOT SET. 

// This does lead to a failure code further down the line 

int rc = GetFieldBylndex (pstTIF, fieldnum, nWhich, pi FieldLength, pField); 
return rc; 

} // TIFGetField 



* Name: GetFieldBylndex — get value of numbered field 

* NOTE: returned LENGTH includes the NULL terminator for non-binary fields 

v 

static mt GetFieldBylndex 
( PSTTI F_TYPE pstTIF, 
int fieldnum, 

int nWhich, // original, current, or auto 

LONG *plFieldLength, // OUT: length of field value 
ILUT_PBUFFER pField ) // ptr to buffer header 

{ 

int rc; 

int nSelect; 

TI F_RECORD_VALUE_PTR pRecord; 

/* 

* The 'bMexCurrent' flag is only TRUE when caller asks for a CURRENT 

* field value during a 1 MEX ONLY ' update operation. 
+ 

+ / 

BOOLEAN bMexCurrent = FALSE; 

if (nWhich == TIF_SOURCE CACHE) 
{ 

/* 

* Special Case: read from Source Cache Record 



rc = RetrieveFieldValue ( pstTIF, 

TIF_pSourceFieldList, 

TIF_pSourceRecord, 

fieldnum, 

plFieldLength, pField ); 

return rc; 

) 

/ + 

* Mainstream code continues, for reading from anything but the Source Cache 
+■ 

* Next, adjust the selector that tells use 
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* which record to read the field value from. . . 



if {fieldnum TIF_NOTSET) 

// keep going, even though we know the field name is bad... 

nSelect = TIF_CURRENT; 

else if (TIF_pfcase == TIF_PHASE_SANITIZING SOURCE RECORDS) 

/* 

* when sanitizing source records we always read from ORIGINAL record, 

* regardless of what 'nWhich* the caller asked for. 



nSelect » TI F_ORIGINAL; 

else 
{ 

rc = SelectRecord (pstTIF, fieldnum, nWhich, SnSelect, SbMexCurrent ) ; 
if (rc != SUCCESS) 
return rc; 

} 

// Set pointer to selected record 

if (nSelect TI FjDRIGINAL) 

pRecord = TIF_pOriginalRecord; 
else 

pRecord = TI F_pCurrentRecord; 

/* 

* Finally, retrieve the field value. 

* even if we know that fieldname is bad, go ahead and call the 

* 'Bylndex* retrieve. We do this so that all handling of null 

* results is centralized in a single place. The 'Bylndex* 

* retrieve function returns TI F_ERR_BAD_FLDNAME when called 

* with f ieldnum==TIF NOTSET. 



rc = TIFRetrieveFieldBylndex ( pstTIF, fieldnum, 

plFieldLength, pField, pRecord ); 

/* 

* When we're doing a special exclusion list merge, we adjust the CURRENT 

* exclusion count (in _repBasic) on the fly, right here. 

v 

if ( rc SUCCESS && bMexCurrent && fieldnum — TIF_RepBasicFieldNum 
&& *plFieldLength sizeof(ILTR REPEAT) ) 

{ 

ILTR_PREPEAT pRepeat = ( ILTR_PREPEAT ) ( pField->pBuf f er ) ; 

INT32 L = TIF_FieldLength (TIF_pCurrentRecord, TI F_RepExcl FieldNum) ; 

pRepeat->numExDates = (INT16) L / si zeof ( long ) ; 



return rc; 
} // GetFieldBylndex 



/ 



* SelectRecord -- called by GetFieldBylndex 



static int SelectRecord ( PSTTI F_TYPE pstTIF, 

int fieldnum, 
int nWhich, 
int *pnSelect, 
BOOLEAN *pbMexCurrent ) 



/ 



{ 



int nSelect; 

switch (nWhich) 
{ 

case TIF ORIGINAL: 



nSelect = TI F_ORIGINAL; 
break; 



case TIF AUTO: 
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if { TIF_phase TI F_PHASE_UNLOADING_TO_TARGET 

I I TIFjphase == TI F_PHASE_UNLOADING_TO_SOURCE 

\ I TIF_phase == TI F_PHASE UNLOADING TO HISTORY ) 
{ - - - 

BOOLEAN FieldlsHidden = ( ( TI F_FieldAtt ributes ( pstTI F, fieldnum) 

& ILTB_ATT_HIDDEN_FIELD) ! = 0); 

BOOLEAN OutcomelsUpdate = ( ( TI F_CurrentRecordOutcome 

& ILTIF OUTCOME UPDATE) != 0); 
/ * z 

* The TIF_AUTO rules for getting field values during UNLOAD 

* are as follows: 

* When the current record outcome is UPDATE, all UNMAPPED 

* fields come from the ORIGINAL record. 

* No matter what the current record outcome may be, 

* all UNMAPPED HIDDEN fields come from the ORIGINAL record. 
+ 

* All MAPPED fields, and all other UNMAPPED fields, 

* come from the CURRENT record. 



if ( TIF_FieldIsntMapped(pstTIF, fieldnum) 
&& (OutcomelsUpdate I | FieldlsHidden) ) 
nSelect = TI F_ORIGINAL; 
else 

nSelect = TI F_CURRENT; 
break; 



// •*•* else fall through into next case... 

case TI F_FANNING_ADJ: 
case TI F_CURRENT : 

nSelect = TI F_CURRENT; 
break; 

default : 

return TI F_ERR_BAD_GETFIELD_NWHICH; 
) // switch (nWhich) 

/* 

* Adjust selector for special MergeExclusions ONLY case. 

* For this situation we get all fields from the ORIGINAL record 

* except for two things: the _repExcl field, whose current value 

* is in the current record, and the ExclusionCount value in the 

* _repBasic field, which is set according to the current _repExcl . 



if ( TIF_phase == TI F_PHASE_UNLOADING_TO_TARGET 
I I TIF_phase == TI F_PHASE_UNLOADING_TO_SOURCE 

t I TIF_phase TIF PHASE UNLOADING TO HISTORY } 
{ - _ _ 

INT32 Flags - TI FX_FLAGS (TIF_hFile, TIF_lCurrentRecNum) ; 
*pbMexCurrent = (nSelect == TI F_CURRENT && (Flags & TI F_MEX_ONLY ) ) ; 
if ( *pbMexCurrent && fieldnum != TI F_RepExcl FieldNum) 
nSelect = TI F_ORIGINAL; 

} 

*pnSelect = nSelect; 
return SUCCESS; 

} // SelectRecord 



/* 

* TIFGetViewField 
+ 

* Get pointer to the value of the view field — for logging 

* return NULL ptr if view field is null 
* 

int TIFGetViewField (PSTTIF TYPE pstTIF, IL PSTR IL DIST *ppData) 
{ " " 

// note: we're getting CURRENT value of view field. If preferred, 
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// we could just as well get ORIGINAL value instead. 

// assume that TI F_ViewField is ALWAYS SET. By default it 

// is Field Number Zero. 

int fieldnum = TIF ViewFieldNum; 

if {TIF_FieldLength(TIF_pCurrentRecord, fieldnum) == 0) 
{ 

if (TIF_FieldLength(TIF_pOriginalRecord, fieldnum) == 0) 

*ppData = NULL; 
else 

*ppData == TIF_FieldData(TIF pOriginalRecord, fieldnum); 

} 

else 

*ppData = TIF_FieldData(TIF_pCurrentRecord, fieldnum); 
return SUCCESS; 
} // TIFGetViewField 



* Name: ConsiderSmartMergeltem - called by ConsiderThisItem 
+ 

static int ConsiderSmartMergeltem { PSTTI F_TYPE pstTIF, 

^ INT32 Origin, INT32 Flags ) 

// ignore zombies, garbage, and bystanders 

if {Flags & TI F_IGNORE ) 

return TI F_SKI P_AND_DONT_LOG_THIS_RECORD; 

if (TIF_phase == TI F_PHASE CHOOSING RECORDS } 
{ 

// for Chooser we want all Source Records. Never count outcomes here. 

if (Origin == TIF_FROM_SOURCE) 

return SUCCESS; 
else 

return TIF_SKIP AND DONT LOG THIS RECORD; 



else if (TIF_phase !== TI F_PHASE_UNLOADING_TO_TARGET ) 
return TI F_E RR_BAD_SMARTM ERG E_ PHASE ; 

// If record is from Target, decide what to do with it 

else if (Origin == TI F_FROM TARGET) 
{ 

/* 

* If obsoleted (i.e. bumped off by an incoming UPDATE or REPLACE) 

* then skip it; don't even log it. 

* . + / 

if (Flags & TIFjDUTCOME OBSOLETED ITEM) 
{ 

if (TIF_bCountingOutcomes) TIF_DeleteCount++; 
return TI F_SKI P_AND_DONT LOG THIS RECORD; 

} 

// if LEAVE_ALONE, we may or may not skip it... 

else if ((Flags & TIFjDUTCOME MASK) ===== 0) 
( 

if (TIF_bCountingOutcomes ) TIF LeaveAloneCount++; 

/* 7 

* When unloading to a non-total-rebuild system, skip LEAVE ALONEs 

* 3 + 

if (TIF_bSkipLeaveAlones) 

return TI F_SKI P_AND_DONT_LOG_THIS_RECORD; 
else 

return SUCCESS; 

} 

/ + 

* The only remaining Target Record possibility is 

* the obsolete DELETE outcome that was used for Achates sync. 

* - — V 

else 
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( 

if (TIF_bCountingOutcomes ) TIF_DeleteCount++; 
return SUCCESS; 

} 

} 

// Record i5 from SOURCE system. Is it to be ignored? 

else if (Flags & ( TI F_OUTCOME_OBSOLETED ITEM | TIF OUTCOME IGNORED MASK) ) 
{ ~ 
if (TIF_bCountingOutcomes) TI F_IgnoreCount++; 

// give ILTIF a chance to log ignored & obsoleted source records 

return TI F_SKI P_THIS_RECORD; 

> 

// else source record will be ADDED to Target System or will be used 

// to UPDATE or REPLACE a Record in the Target System. 

else 

{ 

if (TIF_bCountingOutcomes ) 
{ 

if (Flags & TIF_OUTCOME_ADD_ITEM_TO_TARGET) 

TIF_AddCount++; 
else if (Flags & TI F_OUTCOME_REPLACE_ITEM_IN_TARGET ) 

TIF_ReplaceCount++; 
else if (Flags & TI F_OUTCOME_UPDATE_ITEM_IN_TARGET ) 

TIF_UpdateCount++; 

} 

return SUCCESS; 



} // ConsiderSmartMergeltem 



/* 

* Name: ConsiderThisItem 

Purpose: Determine whether item is worth processing or logging 

result depends on whether we're doing synchronization or 
smartmerge, what phase we're in, and where the item came from 



* Called by: TIFPositionToNextRecord, 

* TIFComputePertinentRecordCount, 

* TIFValidateRecord 

* Returns: SUCCESS for items that are truly noteworthy 

* or TIF_SKIP_THIS_RECORD for items that are worth logging 

* or TIF_SKIP_AND_DONT_LOG_THIS_RECORD 

* or an abnormal error codes, if something is awry. 

* _ , 

static int ConsiderThisItem( PSTTIF TYPE pstTIF, INT32 Item) 
{ 

ILDFX_PHNDL phFile = TIF_hFile; 

// validate item; complain if invalid item is encountered 

int rc = TIFGroup_ValidateItem(phFile, Item); 
if (rc !« SUCCESS) 
return rc; 



INT32 Flags; Flags = T I FX_FLAGS (phFile, Item); 
INT32 Origin; Origin = Flags & TI F_ORIGIN_MASK; 

// when we are unloading for export, ALL other items are noteworthy 

if (TIF_phase == TI F_PHASE_UNLOADING_FOR_EXPORT ) 
return SUCCESS; 

// when sanitizing source records, use all unanalyzed source records 

if (TIF_phase == TIF_PHASE_SANITIZING SOURCE RECORDS) 
{ 

■ if ((Origin == TI F_FROM_SOURCE ) && (Flags & TI F_IS_UNANALYZED) } 
return SUCCESS; 
else 

return TI F_SKI P_AND_DONT_L0G_THIS RECORD; 

} 

// Ignore garbage. (NOTE: same bit used for GARBAGE and UNANALYZED) 
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if (Flags & T I F_I S_GARBAGE ) 

return TIF_SKIP_AND_DONT_LOG_THIS_RECORD; 

if (TIF_nSynchronize == ILXTR_SYNC NO) 
{ 

// Decide what is noteworthy for SmartMerge 

rc = ConsidSrSmartMergeltem (pstTIF, Origin, Flags); 
return rc; 

} 

/* 

* Decide what is noteworthy for Synchronization depends on cig type. 
* v 

INT32 Outcome; . 

rc = TIFSyncGetOutcome (pstTIF, Item, TIF_phase, fiOutcome); 
if (rc != SUCCESS) 

return ILERROR_L (Item, rc); 

// count outcomes, needed for OKToProceed 

if (TIF_bCountingOutcomes && Outcome != TIF SKIP AND DONT LOG THIS RECORD) 
{ ----- 

if (Outcome == TI F_SKI P_FAIL_RANGE ) 
TIF IgnoreCount++; 



else switch (Outcome & ILTIF_FIRST_TIER OUTCOME MASK) 
{ 

case ILTI F_OUTCOME_LEAVE_ALONE 
case ILTI F_OUTCOME_ADD 
case ILTI F_OUTCOME_DELETE 
case ILTI F_OUTCOME_RE PLACE 
case ILTI F_OUTCOME_UP DATE 
case ILTIF OUTCOME IGNORE 



TIF_LeaveAloneCount++; break; 

TIF_AddCount++; break; 

TIF_DeleteCount++; break; 

TIF_ReplaceCount++; break; 

TIF_UpdateCount++; break; 

TIF IgnoreCount++; break; 



case ILTI F_OUTCOME_LEAVE_DELETED: // don't count these 
default: // impossible!! 

break; 



} 



/* 

* Nobody ever wants to deal with records that they're supposed 

* to Leave Deleted, so we never count them or log them or let anyone 

* see them. 

* Also, skip LEAVE_ALONEs when unloading to a non-total -rebui Id system. 

* Note that LEAVE_DELETED and LEAVE_ALONE outcomes are NOT ignored 

* when OR'd together with the ILTI F_OUTCOME_DELTA_ACK bit. 

+ + / 

if ( (Outcome == ILTI F_OUTCOME_LEAVE_DELETED| 

I t (Outcome TI F_SKI P_AND_DONT_LOG_THIS_RECORD) 

I I (Outcome == ILTI F_OUTCOME_LEAVE_ALONE && TI F_bSkipLeaveAlones ) ) 
return TI F_SKI P_AND_DONT_LOG_THIS_RECORD; 

else if (Outcome == TI F_SKI P_FAIL_RANGE ) 
return TI F_SKI P_FAI L_RANGE; 

else 

return SUCCESS; 

} // ConsiderThisItem 



/ + 

* Name: TIFComputePertinentRecordCount 

* Purpose: Compute the number of records that pertain to the current 

* UNLOADING PHASE . 

* Called by: TIFStartNextPhase, for start of any UNLOADING PHASE 

* NOTE: this function does NOT return the count; just computes it!! 

* v 

int TIFComputePertinentRecordCount ( PSTTIF TYPE pstTIF) 
{ 

INT32 TotalRecordCount = TI F_TotalRecordCount ; 
INT32 Pert inentRecordCount ; 
int rc; 
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see TIF.H for commentary on 'TIFJTotalRecordCount ' + * 

if (TIF_phase == TI F_PHASE_UNLOADING_FOR_EXPORT } 

TIF_PertinentRecordCount ~ TotalRecordCount - TI F_FIRST_ITEMNO; 

else 
( 

// unloading to TARGET, SOURCE, or HISTORY file. 

PertinentRecordCount = 0; 

// reset all Outcome Counts to zero 

I L_MEMSET { &TIF_OutcomeCounts, 0, sizeof ( TI F_OutcomeCounts ) J ; 

// tell everyone to count outcomes 

TIFJoCountingOutcomes = TRUE; 

/ / TIF/ILDFX/IndexScanningLoop 

for (INT32 i=TI F_FIRST_ITEMNO; i < TotalRecordCount; i++} 
{ 

rc = ConsiderThisItem{pstTIF, i); 
switch (rc) 

{ 

case T I F_S KI P_AN D_DONT_LOG_T H I S_REC0R D : 
case TIF_SKIP_THIS_RECORD: 
case TIF_SKIP_FAIL_RANGE: 

continue; // don't count records that we will skip 
case SUCCESS: 

PertinentRecordCount += 1; 
break; 

default: 

TIF_bCountingOutcomes = FALSE; 
return ILERROR ( rc, TI F_ERR_ABNORMAL ) ; 

} 

} 

// tell everyone to stop counting outcomes 

TIF_bCountingOutcomes = FALSE; 

TI F_Pert inentRecordCount = PertinentRecordCount; 
} // if (TIF_phase == TIF PHASE UNLOADING FOR EXPORT) else 



/ + 

* Set Goal Posts for THIS pass and NEXT pass. We set both Goal Posts 

* to accommodate users who don't call ILTI FHowManyRecords . If there is 

* any record-creating activity in THIS pass then the Goal Post for the 

* NEXT pass will be incremented. 
+ 

* NOTE: the Goal Post MUST be set as far out as possible to make sure 

* that the unloading process can LOG everything that it needs to log. 

* Bear in mind that TIF_TotalRecordCount is the count of records in 

+ the ILDFX file, including the TIF "control" records, whether or not 

* the TIF control records have been written out to the ILDFX file. 

* For example, assuming that there are 2 control records (record #0 

* and record #1) and 3 data records (numbered 2, 3, and 4), then 

* TIF_TotalRecordCount=5. 

* The Goal Posts are set to be the zero-based record number of the 

* last record in the file, so that an unloader looks all the up to and 

* including the last record, but not beyond, where newly created 

* records might be found. 

* Without goalposts we could have a "cannibalism" problem, where an 

* unloader might try to unload records that it created by fanning. 
v 

TIF_GoalPost = TI F_Goa 1 Post ForNext Pass = TIF_TotalRecordCount - 1; 
return SUCCESS; 
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} // TIFComputePertinentRecordCount 



/ 



+ 

* 

+ 



Name : 
Purpose : 



TIFPositionToNext Record 

position to next record that pertains to the current UNLOADING PHASE 
(returns TIF_EOF when we run out of pertinent records) 
{returns TI F_SKI P_THIS_RECORD for source records that are obsoleted 
or ignored, so that ILTIF can log them...) 

NOTE: When EOF is encountered, we turn off the logging of IGNORES. All 

TIF-assigned IGNORES are logged by TIF during the first pass of the 
unload. All other outcomes, including cases where TIF suggests 
ADD but the translator decides to IGNORE, are logged when the 
translator calls ILTI FAcceptOutcome or ILTI FRe j ect Out come . 

TIF_EOF determination depends on ' TI F_Goal Post ' which is set by 
TIFComputePertinentRecordCount and ILTI FHowManyRecords . 



int TI FPositionToNextRecord { PSTTI F_TYPE pstTIF) 
{ 

ILDFX_PHNDL phFile - TIF_hFile; 
INT32 GoalPost = TI F_GoalPost ; 

if (TIF_CurrentRecordNumber != TI F_POSITION_BELOW BOTTOM) 
{ 



7 



/ 



* scan down until we find something worth processing or at least worth 

* logging, or until we reach GoalPost or end of index. 



for (INT32 i = TI F_CurrentRecordNumber + 1; i <= GoalPost; i++) 



/ 



{ 



int rc = ConsiderThisItemfpstTIF, i); 



IL PSTR szrc; 



switch (rc) 
{ 

case SUCCESS: szrc 
case TIF_SKIP_AND_D0NT_LOG_THIS_REC0RD: szrc 
case TIF_SKIP_THIS_RECORD: szrc 
case TI F_SKI P_FAIL_RANGE : szrc 
default: szrc 
} 

if (ILLOG_VERBOSE_ENOUGH (TIFLOG, 65) ) 
{ 

char szBuf [80] ; 

IL_SPRINTF ( szBuf, "Seek Record Hid ( 0x%081x . %031x ) 

i, TIFX_FLAGS(TIF_hFile, i), 
TIFX_FLAGS2 (TIF_hFile, i), 
szrc, rc ) ; 

TIFlogsz (szBuf ) ; 

} 



"OK"; break; 

"Skips Dont Log"; break; 

"Skip"; break; 

"FailRange"; break; 

"Error"; break; 



==> %s (%d) ", 



if (rc != TI F_SKI P_AND_DONT_L0G_THIS_REC0RD) 
( 

// Return when we find a noteworthy record. 

// Reasons for noteworthiness are Abnormal Error or record is 
// worth processing or at least worth logging. 
TIF_CurrentRecordNumber = i; 
return rc; 

} 



} 



} 



// couldn't find any more pertinent items... 

TIF CurrentRecordNumber = TIF POSITION BELOW BOTTOM; 



// First Pass of current unload phase completed, 

// so turn off logging of IGNORES 

TI F_bCur rent lyLoggingAndCount ingRecords = FALSE; 
return TIF EOF; 
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} // TIFPositionToNextRecord 

/* 

* Name: TI FValidateRecord 

* Purpose: verify that given Record Number identifies a pertinent record, 

* for the current UNLOADING PHASE. 



int TIFValidateRecord( PSTTIF TYPE pstTIF, INT32 RecordNumber ) 
{ 

if ( (RecordNumber < TI F_FIRST_ITEMNO ) 

I I (RecordNumber >= TI FJTotalRecordCount ) ) 
return TI F_ERR_BAD_RECORD_NUMBER; 

if (TIF_phase == TI F_PHASEJJNLOADING_FOR_EXPORT ) 
return SUCCESS; 

int rc; 

rc = ConsiderThisItem(pstTIF, RecordNumber); 
switch ( rc ) 

{ 

case T I F_S KI P_AN D_DONT_LOG_T H I S_R ECOR D : 

case TIF_SKIP_THIS_RECORD: 

case TIF_SKIP_FAIL_RANGE: 

return TI F_ERR_IMPERTINENT_RECORD; 
default : 

return rc; // SUCCESS or abnormal error 

} 

} // TI FValidateRecord 

/* . 

* Name: TI FGet Out come 

* Purpose: Determine whether current record is to be Replaced, Updated, 

* Deleted, Added, or Just Left Alone. 



int TIFGetOutcome ( PSTTI F_TYPE pstTIF, INT32 Item, 

INT32 IL DIST *pOutcome) 

{ 

ILDFX_PHNDL phFile = TIF_hFile; 
int rc = SUCCESS; 

if ( (TIF_phase != TIF_PHASE_UNLOADING_TO_TARGET ) 
&& (TIF_phase != TI F_PHASE_UNLOADING_TO_SOURCE ) 
&& (TIF_phase != TI F_PHASE UNLOADING TO HISTORY) ) 

( ~ " 

/* 

* When we're not in an UNLOADING phase, we don't have an outcome 

* to brag about. Just set it to zero and don't log this call. 



*pOutcome = 0; 
return SUCCESS; 

} 

else if (TIF_nSynchronize) 

// set Synchronization outcome for record 

rc = TIFSyncGetOutcome(pstTIF, Item, TIF_phase, pOutcome); 

else 
{ 

// set SmartMerge outcome for record 

INT32 OutcomeBits = TI FX_OUTCOME (phFile, Item); 

if (TIFX_ORIGIN (phFile, Item) == TIF FROM TARGET) 
{ 

if (OutcomeBits 0) 

* pOutcome = ILTI F_OUTCOME_LEAVE_ALONE; 
else if (OutcomeBits & TI F_OUTCOME_DELETE_ITEM_FROM_TARGET ) 

*pOutcome = ILTI F_OUTCOME_DELETE; ~ 
else if (OutcomeBits & TI F_OUTCOME_OBSOLETED_ITEM ) 

* pOutcome = ILTI F_OUTCOME_OBSOLETED; 
else 

rc = TIF ERR IMPOSSIBLE OUTCOME; 
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I 

else 

// else record must be from PREVIOUS or from SOURCE... 

{ 

if (OutcomeBits & TIF_OUTCOME_OBSOLETED_ITEM) 

*pOutcome = ILTI F_OUTCOME_OBSOLETED; 
else if TOutcomeBits & TIF_OUTCOME_ADD_ITEM_TO_TARGET J 

*pOutcome = ILTI F_OUTCOME_ADD; 
else if (OutcomeBits & TI F__OUTCOME_REPLACE_ITEM_IN_TARGET ) 

*pOutcome = ILTI F_OUTCOME_RE PLACE; 
else if {OutcomeBits & TI F_OUTCOME_UPDATE_ITEM_IN_TARGET ) 

*pOutcome = ILTI F_OUTCOME_UP DATE; 
else if (OutcomeBits & TI FJDUT COM E_ IGNORE D_MASK) 

+pOutcome = ILTI F_OUTC0ME_ IGNORE; 
else 

rc = TIF_ERR_IMPOSSIBLE_OUTCOME; 

} 

} 

if (rc != SUCCESS) 

TIFlogszul ( "TIFGetOutcome rc=%ld", (UINT32) rc); 

return rc; 
} // TIFGetOutcome 



/* 

* Name: LoglLTRFieldList 

* Called from Firstlnit, which is called from TIFInit 

* Purpose: for DEBUG use only; validate assumptions about ILTR field lists 

* v 

static int LoglLTRFieldList ( ILTR_PTRANSL tr) 
{ 

ILTR_PFLDMAP pMap; 
ILTR_FLDPTR p; 
char szBuf [150] ; 

ILTIFlogsz ("Target Field Map:"}; 

if (ILTR_phase == ILTR_PHASE_ILX_V3_MODE ) 

pMap = &ILTR_map; 
else 

pMap = &ILTR_pTableInfo->sFieldMap; 

for {int i=0; i < pMap->nTarget ; i++) 
{ 

p = &pMap->pTarget [i ] ; 

IL_SPRINTF(szBuf , "#%d.%d: %s %s (%c, %s, %d}*\ 

i, p->ItemNo, p->IntName, p->ExtName, 

p->Type, p->TypeDesc, p->MapField ) ; 
ILTIFlogsz ( szBuf) ; 

} 

if (ILTR_VERSION_IS_AT_LEAST(14 ) ) 
{ 

ILTIFlogsz ("Extra Special Fields:"); 
int SpecialBase = pMap->nTa rget ; 

int SpecialLimit = pMap->nTa rget + ILTR_pTableInfo->nExtraFields; 

for (int i=SpecialBase; i < SpecialLimit; i++) 

{ 

p = &pMap->pTarget [ i ] ; 

IL_SPRINTF(szBuf , "#%d.%d: %s %s (%c, %s, %d)", 

i, p->ItemNo, p->IntName, p->ExtName, 

p->Type, p->TypeDesc, p->MapField } ; 
ILTIFlogsz (szBuf) ; 

■ } 

} 

return SUCCESS; 
} // LoglLTRFieldList 
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/ + 

* Name: TIFDUMP.CPP 

* Purpose: for debugging, produced formatted dump of TIF contents 

* Function (iocal functions indented): 



+ 
+ 



tTf DumpGetRecordName 
dump_a nd_unma rk_cig 
dump_a nd_unmark_skg 
TIFDump 

AddToXiateLog 

* dump2_and_unmark_cig 

* TIFDump2 

TIFCigName 

* Author: David Boothby, Copyright (c) InteliiLink Corporation, 1995-1996 

* v 

^include "iltr.h" 

ffdefine TI FDUMP_MAXNAME 30 

typedef struct 
{ 

INT32 ClashCount; 
INT32 ChgCount; 
INT32 DelCount; 
INT32 AddCount; 
INT32 NoChgCount; 

} 

TIF_SUMS; 

/* 

+ Name: t i f DumpGetRecordName 

* V 

static int tif DumpGetRecordName ( PSTTI F_TY PE pstTIF, INT32 recnum, 

IL_PSTR szRecordName ) 

{ 

int rc « TIFRetrieveRecord (pstTIF, recnum, &TI F_CurrentRecord ) ; 
if { rc != SUCCESS) 
return rc; 

// Retrieve the view field from the current record 

INT32 fieldlen; 

rc = TIFRetrieveFieldBylndex ( pstTIF, TIF_ViewFieldNum, 

& fieldlen, 
&TIF_Cur rent Field, 
TIF_pCurrentRecord ); 

if { rc != SUCCESS) return rc; 

IL_SAFE_STRINGCOPYN ( szRecordName , 

(IL_PSTR) TIF_pCurrentField, 
TI FDUM P_MAXNAME ); 

return SUCCESS; 
} // ti f DumpGetRecordName 



/ + 

* Name: dump_and_unma rk_cig 

+■ — +. 1 

int dump_and_unmark_cig (PSTTIF_TYP£ pstTIF, INT32 groupNumber , INT32 anchor) 
{ 

ILDFX_PHNDL phFile = TIF_hFile; 
INT32 j=anchor; 
int i ; 

for (i=l; i <= TI F_MAX_CIG_SIZE; i++) // catch infinite loops 
( 

INT32 lFlags; 
INT32 lFlags2; 
INT32 ISourcelDHash; 
INT32 ITargetlDHash; 
INT32 IKeyFieldsHash; 
INT32 INonKeyFieldsHash; 
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INT32 IDescHash; 
INT32 lNextlnFIG; 

TIFX_FLAGS2 (phFile, j) &= -TI F2_MARK_DUMP1 ; 

lFlags = TI FX_FLAGS ( ph File, j); 
lFlags2 = TiFX_FLAGS2 (phFile, j); 

INT32 next = TI FGetNext InCIG (phFile, j); 
if (next < 0) 

return (int) next; // next node failed sanity check!! 

if (next == j ) 

break; // this is a singular CIG; don f t dump it 

ISourcelDHash = TI FX_SOURCEID_HASH (phFile, j); 
ITargetlDHash = TI FX_TARGETID_HASH (phFile, j); 
IKeyFieldsHash = TIFX_KEYFIELDS_HASH (phFile, j); 
lNonKeyFieldsHash = TI FX_NKFIELDS_HASH ( ph Fi le, j } ; 
IDescHash = TI FX_DESC_HASH ( phFile, j}; 

lNextlnFIG = TI FX_NEXT_IN_FIG ( phFile, j); 

char szName [TI FDUMP_MAXNAME ] ; 

if ( ILLOG_VERBOSE_ENOUGH ( TI FLOG, 70}} 

{ 

int rc = tif DumpGetRecordName (pstTIF, j, szName); 
if (rc != SUCCESS) return rc; 

} 

else 

IL_MAKE_STRING_NULL{ szName) ; 

char szBuf [ 140] ; 

if (TIF_nSynchronize) 
IL_SPRINTF(szBuf , 

M CIG#%31d i=%31d SIH=%81x TIH=%81x KFH=%81x NKH=%81x NIF=%31d F=%81x.%041x %s", 

groupNumber, j, ISourcelDHash, ITargetlDHash, 
IKeyFieldsHash, lNonKeyFieldsHash, lNextlnFIG, 
lFlags, lFlags2, szName); 

else 

IL_SPRINTF(szBuf , 

"CIG#%31d i=%31d SIH-%81x TIH=%81x KFH=%81x NKH=%81x DH=%81x F=%81x.%031x %s", 

groupNumber, j, ISourcelDHash, ITargetlDHash, 
IKeyFieldsHash, lNonKeyFieldsHash, IDescHash, 
lFlags, lFlags2, szName); 
TIFlogsz (szBuf ) ; 

j = next; 

if (j =- anchor} 

break; // have come full circle. 

} 

if (i > TIF_MAX_CIG_SIZE) // catch infinite loops 
return TI F_ERR_BROKEN_CIG; 

return SUCCESS; 

} // dump_and_unmark_cig 



* Name: dump_and_unmark_skg 



int dump_and_unmark_skg ( PSTTI F_TYPE pstTIF, INT32 groupNumber, INT32 anchor) 
{ 

ILDFX_PHNDL phFile = TIF_hFile; 
INT32 j=anchor; 
int i ; 

for (i=l; i <= TIF_MAX_SKG_SIZE; // catch infinite loops 

{ 

INT32 lFlags; 
INT32 lFlags2; 
INT32 ISourcelDHash; 
INT32 ITargetlDHash; 
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INT32 IKeyFieldsHash; 
INT32 INonKeyFieldsHash; 
INT32 IDescHash; 
INT32 INextlnFIG; 

TIFX_FLAGS2 (phFile, j) 4= -TI F2_MARK_DUMP2 ; 

lFlags = TI FX_FLAGS { phFi le, j); 
lFlags2 - TI FX_FLAGS2 (phFile, j); 

lSourcelDHash = TIFX_SOURCEID_HASH (phFile, j); 
ITargetlDHash « TI FX_TARGETI D_HASH ( phFi le, j); 
IKeyFieldsHash = TI FX_KEYFIELDS_HASH [ phFi le, j); 
INonKeyFieldsHash = TI FX_NKFIELDS_HASH (phFile, j); 
IDescHash = TI FX_DESC_HASH ( phFi le, j); 

INextlnFIG = TI FX_NEXT_IN_FIG ( ph Fi le, j); 

char szName [TI FDUMP_MAXNAME ] ; 

if ( ILLOG_VERBOSE_ENOUGH ( TI FLOG, 70)) 

( 

int rc = ti f DumpGetRecordName (pstTIF, j, szName); 
if (rc SUCCESS) 
return rc; 

} 

else 

IL_MAKE_STRING_NULL (szName ) ; 

char szBuf [ 1 4 0 J ; 

if ( TI F_nSynchroni ze ) 
IL_SPRINTF(szBuf , 

"SKG#%31d i = %31d SIH=%81x TIH=%81x KFH=%81x NKH=%81x NIF=%31d F=%81x.%041x %s", 

groupNumber, j, lSourcelDHash, ITargetlDHash, 
IKeyFieldsHash, INonKeyFieldsHash, INextlnFIG, 
lFlags, lFlags2, szName); 

else 

IL_SPRINTF(szBuf , 

M SKG#%31d i=%31d SIH=%81x TIH=%81x KFH=%81x NKH=%81x DH=%81x F=%81x.%031x %s", 

groupNumber, j, lSourcelDHash, ITargetlDHash, 
IKeyFieldsHash, INonKeyFieldsHash, IDescHash, 
lFlags, lFlags2, szName); 

TIFlogsz (szBuf ) ; 

j = TIFGetNextlnSKGtphFile, j); 
if (j < 0) 

return (int) j; // next node failed sanity check!! 

if ( j == anchor ) 

break; // we have come full circle 

} 

if (i > TIF_MAX_SKG_SI2E) // catch infinite loops 
return TI F_ERR_BROKEN_SKG; 

return SUCCESS; 

} // dump_and_unmark_skg 



/* 

* Name: TIFDump 

* For Debugging, create formatted dump of 

* the CURRENTLY OPEN TIF file 



int TIFDump ( PSTTI F_TY PE pstTIF) 
{ 

ILDFX_PHNDL phFile = TIF_hFile; 
ILDFX_EC ec; 
INT32 lCount; 

TIFlogsz ( "\r\n TIF DUMP \r\n"); 

TIFlogsz ( "Corresponding Item Groups : \ r\n" ) ; 

ec = ILDFX_GetRecordCount (phFile, SlCount); 
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TIFlogszulul ( " ILDFX_GetRecordCount ==> count=%ld, ec=%ld'\ 

(UINT32) ICount, (UINT32) ec); 
if (ec != ILDFX_OK) 
return ec; 

INT32 i; 

INT32 lFlags; * 

INT32 lFlags2; 

// mark ALL records (we unmark as we dump) 

for ( i=TIF_FIRST_ITEMNO; i < ICount; i++) 

TIFX_FLAGS2 (phFile, i) |= (TI F2_MARK_DUMP1 | TI F2_MARK_DUMP2 ) ; 

// now dump all CIGs 

INT32 lGroup; 
lGroup = 0; 

// TIF/ILDFX/IndexScanningLoop 

for (i=TIF^FIRST_ITEMNO; i < ICount; 
{ 

lFlags = TIFX_FLAGS (phFile, i); 
lFlags2 = TIFX_FLAGS2 (phFile, i); 

// don't log zombies or garbage or totally out-of-range stuff here 

if ( (lFlags2 & TI F2_MARK_DUMP1 ) 

&& ((lFlags & TIF_IGNORE) == 0) 

&& ((lFlags2 & TI F2_WAS_0UTRANGE_1 OX ) == 0) ) 

{ 

lGroup += 1; 

ec = dump_and_unmark_cig (pstTIF, lGroup, i); 
if (ec != ILDFX_0K) 
return ec; 

} 

} 

TIFlogsz ( "\ r\nSame Keyfield Groups : \ r\ n" ) ; 

// now dump all SKGs 

lGroup = 0; 
BOOLEAN bSingleton; 
bSingleton = FALSE; 

// TIF/ILDFX/IndexScanningLoop 

for (i=TIF_FIRST_ITEMNO; i < ICount; i++) 
{ 

!Flags2 = TI FX_FLAGS2 ( phFi le, i); 
if (lFlags2 & TI F2_MARK__DUMP2 J 
{ 

// don't log zombies if verbosity level is less than 88 

lFlags = TIFX_FLAGS( phFile, i); 

if ( ((lFlags & TI F_IGN0RE ) || (lFlags2 & TI F2_WAS_OUTRANGE_10X ) ) 
&& ! ILLOG_VERBOSE_ENOUGH ( TI FLOG, 88) ) 
continue; 

if ( TI FX_NEXT_IN_SKG ( phFi le, i) == i) 

bSingleton = TRUE; 
else 
( 

if (bSingleton) 

TIFlogsz (" "); // double space between singleton and non-s. 
bSingleton = FALSE; 

} 

lGroup += 1; 

ec = dump_and_unmark_skg (pstTIF, lGroup, i); 
if (ec != ILDFX_OK) 

return ec; 
if ( ! bSingleton) 

TIFlogsz (" " ) ; // double space after non-singleton 

} 

} 

return SUCCESS; 
} // TIFDump 
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/* 

* Name: dump2_and_unmark_cig 

* */ 

static int AddToXlateLog ( PSTTI F_TYPE pstTIF, INT32 Item, int nMsgld) 
{ 

ILTR_PTRANSL tr = TIF_tr; 
char szName [TIPDUMP_MAXNAME] ; 
char szAnalysis [ 100] ; 
char szLogEntry [ 150] ; 

// get "name" of record 

int rc ~ ti f DumpGetRecordName (pstTIF, Item, szName}; 
if (rc !*= SUCCESS) return rc; 

// Truncate multi-line names at end of first line. 

IL_PSTR lpMatch; 

lpMatch = IL_STRCHR (szName, I LTR_EOS_CHAR ) ; 
if (lpMatch != NULL) 
*lpMatch = 0; 

// g e t string that says what we know about this record 

rc = ILSTMakeString ( fihXlatorlnst , nMsgld, szAnalysis, sizeof (szAnalysis)); 

// p U t record name and record analysis together 

IL_SPRINTF (szLogEntry, " %-30.30s - %s", szName, szAnalysis); 
IL_WRITE (ILTR_hLog, szLogEntry, I L_STRLEN ( szLogEntry ) , rc); 

// ignore difficulties writing to log file (bad idea?) 

return SUCCESS; 

) II AddToXlateLog 



* Name: dump2_and_unmark_cig 

+ *■ / 

static int dump2_and_unmark_cig ( PSTTI F_TYPE pstTIF, INT32 groupNumber, 

INT32 First, TIF_SUMS& Sums ) 

( 

int rc = SUCCESS; 
INT32 cigType; 
INT32 mexType = 0; 
INT32 Second; 
INT32 Third; 
INT32 Sanity; 

ILDFX_PHNDL phFile = TIF_hFile; 
int nMsgld; 

TIFX_FLAGS2 (phFile, First) &= -TI F2_MARK_DUMP1 ; 
cigType = TI FX_CIG_TYPE ( phFi le, First); 

Second = TI FGetNext InCIG ( phFi le, First); 
if (Second < 0) 

return (int) Second; // next node failed sanity check!! 

if (Second != First) 
{ 

TIFX_FLAGS2 (phFile, Second) &= -TI F2_MARK_DUMP1 ; 
if (TIFX_CIG_TYPE (phFile, Second) != cigType) 

return ILERR0R_L (Second, TI F_ERR_HETEROGENEOUS_CIG ) ; 

Third = TIFGetNextlnCIG ( phFi le, Second); 
if (Third < 0) 

return (int) Third; // next node failed sanity check!! 

if (Third ==» First) 
{ 

// need to get ordering of 2-item CIGs into PTS order 

// re-ordering is only required when Source data is Loaded 

// before Target data. Previous data, if any, is ALWAYS loaded first. 

if (TIFX_ORIGIN(phFile, First) == TI F_FROM_SOURCE ) 
{ 

INT32 tmp = First; // swap Target & Source items 

First = Second; 
Second = tmp; 



Copyright ©1996 Puma Technology, Inc. All Rights Reserved. 



tifdump.cpp 



Page 6 of 10 



} 

) 

else 
{ 

TIFX_FLAGS2 (phFile, Third) ~TI F2_MARK_DUMP1 ; 
if (TIFX_CIG_TYPE( phFile, Third) !- cigType) 

return ILERROR_L (Third, TI F_ERR_HETEROGENEOUS_CIG ) ; 
Sanity = TI FGetNextlnCIG (phFile, Third); 
if (Sanity < 0) 

return tint) Sanity; // next node failed sanity check!! 

if (Sanity != First) 

return TI F_ERR_BROKEN_CIG; // failed to circle back to 1st item 

1 

) 

/* 

* If CIG type has been altered to Merge Exclusion Lists, log the original 

* CIG type, {NOTE: in TIF. LOG we log both.) 

* V 

if (TI FX_FLAGS (phFile, First) & TIF_MEX_CIG) 

{ 

mexType = cigType; 

cigType => TI FX_FLAGS2 ( phFile, First) & TI F2_0RIGINAL_CIG_TY PEJ4ASK; 

} 

/* 

* Now decide how to count and log this CIG. The counting we do here is 

* only for display in the user-visible logfile. We do two different 

* types of logging here: DEBUG-logging and user-visible logging. 

* When conflicts that start out as CIG types 102 and 213 are resolved 

* by the ADD-ACROSS option, the workfile at this point contains fragments 

* of the original CIGs. A "102" breaks down into a "100" and a "001". 

* A "213" breaks down into a "100" and a "010" and a "001". 

* The TI F2_WAS_CIGTYPE_xxx flag bits tell us how we got here, so we can 

* accurately reflect the original reality in the user-visible logfile. 

* For each group of fragments we only log the "100" fragment. 

* */ 

switch (cigType) 
{ 

case TIF_CIG_TYPE_010: 

// don't user-visibly count or log internally generated 010 CIGs 

if (TIFX_FLAGS2 (phFile, First) & TI F2_WAS_CIGTYPE_213 ) 
{ 

TIFloglint ( 25, 

" %31d <213:010> Source+Ta rget DELETE" , First ); 

nMsgld = TI F_NOTSET; 

} 

else 
{ 

Sums . DelCount++; 

TIFloglint (25, " %31d <010> Source+Target DELETE", First); 

nMsgld = TI F_STR_CIG010; 

} 

break; 

case TIF_CIG_TYPE_001 : 

// don't user-visibly count or log internally generated 001 CIGs 

if (TIFX_FLAGS2 (phFile, First) & TI F2_WAS_CIGTYPE_21 3 ) 
{ 

TIFloglint (25, " %31d <213:001> Target ADD", First); 

nMsgld = TI F_NOTSET; 

I 

else if (TIFX_FLAGS2 (phFile, First) & TI F2_WAS_CIGTYPE_1 02 } 
{ 

TIFloglint (25, " %31d <102:001> Target ADD", First); 

nMsgld = TI F_NOTSET; 

} 

else 
{ 

Sums . AddCount++ ; 
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TIFloglint {25, --- %31d <001> Target ADD" , First); 

nMsgld = TI F_STR_CIG001 ; 

} 

break; 



case TIF_CIG_TYPE_100: 

// special counting & logging for internally generated 100 CIGs 

if (TIFX_FLAGS2 (phFile, First} & TIF2 WAS CIGTYPE 213) 
( ~ ~ 

Sums . ClashCount++; 

TIFloglint (25, "%31d <213:100> Source ADD" , First); 

nMsgld TI F_STR_CIG213; 

} 

else if (TIFX_FLAGS2 (phFile, First) & TIF2 WAS CIGTYPE 102) 
{ _ _ _ 

Sums . CI as hCount++; 

TIFloglint (25, "%31d <102:100> Source ADD", First); 

nMsgld = TI F_STR_CIG102 ; 

} 

else 
{ 

Sums . AddCount++; 

TIFloglint (25, "%31d <100> Source ADD" , First); 

nMsgld - TI F_STR_CIG100; 

} 

break; 



case TIF_CIG_TYPE_011 : 
Sums . DelCount++; 

TIFlog2ints { 25, "--- %31d %31d <011> Source DELETE", 

First , Second ) ; 
nMsgld = TIF_STR_CIG011 ; 
break; 



case TIF_CIG_TYPE_012: 

// count this as a DELETE. Some day that may change!! 

Sums . DelCount++; 

TIFlog2ints ( 25, " %31d %31d <012> CONFLICT: DELETE vs CHANGE", 

Fi rst , Second } ; 
nMsgld = TI F_STR_CIG012 ; 
break; 



case TIF_CIG_TYPE_110: 
Sums . Del Count ++ ; 

TIFlog2ints ( 25, "%31d %31d <110> Target DELETE", 

Second, Fi rst ) ; 
nMsgld = TI F_STR_CIG1 10; 
brea k; 



case TIF_CIG_TYPE_210: 

// count this as a DELETE. Some day that may change!! 

Sums . DelCount++; 

TIFlog2ints ( 25, "%31d %31d <210> CONFLICT: CHANGE vs DELETE" , 

Second, First ) ; 
nMsgld = TIF_STR_CIG210; 
break; 

case TIF_CIG_TYPE_101 : 
Sums . NoChgCount++ ; 

TIFlog2ints ( 25, "%31d 

Second, First 
nMsgld = TI F_STR_CIG1 01 ; 
break; 



%31d <101> Source+Target ADD", 

); 



case TIF_CIG_TYPE_102: 
Sums . ClashCount++; 

TIFlog2ints ( 25, "%31d %31d <102> CONFLICT: differing ADDs", 

Second, Fi rst ) ; 
nMsgld = TI F_STR_CIG102; 
break; 



case TIF_CIG_TYPE_111 : 
Sums . NoChgCount++; 

TIFlog3ints ( 25, "%31d %31d %31d <111> Source+Target UNCHANGED", 
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Third, First, Second ); 
nMsgld = TI F_STR_CIG111 ; 
break; 

case TIF_CIG_TYPE_112: 
Sums . ChgCount++; 

TIFlogJints ( 25, "%31d %31d %3id <112> Target CHG" , 

Third, First, Second ); 
nMsgld = TI F_STR_CIG112; 
break; 

case TIF_CIG_TYPE_211 : 
Sums . ChgCount++; 

TIFlog3ints { 25, "%31d %31d %31d <211> Source CHG" , 

Third, First, Second ) ; 
nMsgld = TIF_STR_CIG211 ; 
break; 

case TIF_CIG_TYPE_212: 
Sums . ChgCount++; 

TIFlog3ints { 25, "%31d %31d %3id <212> identical SRC+TAR CHG" , 

Third, First, Second ); 
nMsgld = TIF_STR_CIG212; 
break; 

case TIF_CIG_TYPE_213: 
Sums . ClashCount++; 

TIFlog3ints ( 25, "%31d %31d %3id <213> conflicting SRC+TAR CHG", 

Third, First, Second ); 
nMsgld = TIF_STR_CIG213; 
break; 

case TIF_CIG_TYPE_132: 
Sums . ClashCount++; 

TIFlog3ints { 25, "%31d %31d %31d <132> ADDs or CHGs compromised", 

Third, First, Second ); 
nMsgld =* TI F_STR_CIG1 32 ; 
break; 



// Never see 13F cuz we dump cig types before fanning starts!! 

// case TIF_CIG_TYPE_13F: 

// Sums . ClashCount++; 

// TIFlog3ints { 25, "%31d %31d %31d <13F> 132 Fanned to Target", 

// Third, First, Second ); 

// nMsgld = TI F_STR_CIG1 3 F; 

// break; 



default : 

TIFlog3ints ( 25, "CIG at %ld — >%ld has bad type %ld", 

First, Second, cigType ) ; 
rc = TIF_ERR_BAD_CIG_TYPE; 

} 

if (mexType != 0) 
{ 

TIFloglstr ( 25, " Changed to %s to Merge Exclusion Lists", 

TIFCigName (mexType} ); 

// adjust resource ID used for logging to XLATE.LOG 

nMsgld +=» TI F_MEX_COUSIN_ADDEND; 

} 

if (rc != SUCCESS ) 
return rc; 

// Put entry in user-visible log, unless "muted" 

if (nMsgld == TI F_NOTSET ) 

return SUCCESS; 
else 

{ 

rc - AddToXlateLog (pstTIF, First, nMsgld}; 
return rc; 

} 

} // dump2 and unmark cig 
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/* 

* Name: TIFDump2 

* For all the world to see, log results of synchronization analysis in 

* the user-visibre XLATE.LOG file. 
* 

* And for Debugging, put formatted dump of SYNCPORT conflicts in TIF. LOG. 



int TIFDump2 ( PSTTI F_TYPE pstTIF) 
{ 

I LTR_PTRANSL tr = TIF_tr; 
ILDFX_PHNDL phFile = TIF_hFile; 
ILDFX_EC ec; 
INT32 UtemCount; 
INT32 i; 

INT32 lGroup = 0; 
char szCount[12]; 



TIF_SUMS Sums; 

Sums . ClashCount = 0; 

Sums . ChgCount = 0; 

Sums . DelCount = 0; 

Sums . AddCount = 0; 

Sums . NoChgCount = 0; 



TIFlogO (25, 

TIFlogO {25, 

TIFlogO {25, 

TIFlogO {25, 

TIFlogO (25, 



, \r\n==========-=====================^^=================" ) ; 

'=== Intellisync Analysis of Corresponding Items ==="); 



SRC PRV TRG" ) ; 

III Hff <spt>"); 



ec ~ ILDFX_GetRecordCount (phFile, & 1 1 temCount ) ; 
if (ec != ILDFX_OK) 
return ec; 

// Write header in user-visible XLATE.LOG 

ILAppendLog (ILTR_hLog, hXlatorlnst, TIF_STR_EOL, NULL, NULL}; 

ILAppendLog { ILTR_hLog, hXlatorlnst, TIF_STR_EOL, NULL, NULL) ; 

ILAppendLog (ILTR_hLog, hXlatorlnst, TI F_STR_DIVIDER, NULL, NULL); 

ILAppendLog (ILTR_hLog, hXlatorlnst, TI F_STR_SUMMARY, NULL, NULL); 

/ / mark ALL records (we unmark as we dump) 

for ( i=TIF_FIRST_ITEMNO; i < UtemCount; i + +) 
TIFX_FLAGS2 (phFile, i) |= ( TI F2_MARK_DUMP1 ) ; 

// now dump all CIGs 

// TI F/ILDFX/ IndexScanningLoop 

for ( i=TIF_FIRST_ITEMNO; i < UtemCount; i++} 
{ 

INT32 lFlags = TI FX_FLAGS ( ph Fi le, i); 
INT32 !Flags2 = TIFX_FLAGS2 (phFile, i); 

// don't log zombies or wholly out-of-range items 

// or gobbled-up instances here 

if { {(lFlags & (TIF_IS_GOBBLED_UP_INSTANCE | TI F_IGNORE ) ) =*= 0) 
&& ((lFlags2 & TI F2_WAS_OUTRANGE_l OX ) == 0) 
&& {lFlags2 & TI F2_MARK_DUMP1 ) ) 



{ 



lGroup += 1; 

ec = dump2_and_unmark_cig (pstTIF, lGroup, i, Sums); 
if {ec != ILDFX_OK) 
return ec; 



// Write summary counts in user-visible XLATE.LOG 

ILAppendLog (ILTR_hLog, hXlatorlnst, TIF_STR_EOL, NULL, NULL); 

IL_SPRINTF (szCount, "%ld M , Sums . ClashCount ) ; 

ILAppendLog { ILTR_hLog, hXlatorlnst, TI F_STR_CLASH_COUNT, szCount, NULL); 
IL_SPRINTF (szCount, "%ld M , Sums . AddCount ) ; 
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ILAppendLog (ILTR_hLog, hXlatorlnst, TI F_STR_ADD_COUNT, szCount, NULL); 
IL_SPRINTF (szCount, "%ld", Sums . ChgCount ) ; 

ILAppendLog (ILTR_hLog, hXlatorlnst, TIF_STR_CHG_COUNT, szCount, NULL J ; 
IL_SPRINTF (szCount, "%ld", Sums , DelCount ) ; 

ILAppendLog (IETR_hLog, hXlatorlnst, TI F_STR_DEL_COUNT, szCount, NULL}; 
IL_SPRINTF (szCount, "%ld", Sums . NoChgCount ) ; 

ILAppendLog (ILTR_hLog, hXlatorlnst, TI F_STR_NOCHG_COUNT, szCount, NULL); 
ILAppendLog ( I LTR_hLog, hXlatorlnst, TI F_STR_DIVIDER, NULL, NULL); 
return SUCCESS; 
} // TIFDump2 



/* 

* TIFCigName 

+ * / 

IL_PSTR TIFCigName (INT32 cigType) 
{ 

switch (cigType) 
{ 

case TIF_CIG_TYPE 
case TIF_CIG_TYPE 
case TIF_CIG_TYPE 
case TIF_CIG_TYPE 
case TIF_CIG_TYPE 
case TIF_CIG_TYPE 
case TIF_CIG_TYPE 
case TIF_CIG_TYPE 
case TIF_CIG_TYPE 
case TIF_CIG_TYPE 
case TIF_CIG_TYPE 
case TIF_CIG_TYPE 
case TIF_CIG_TYPE 
case TIF_CIG_TYPE 
case TIF_CIG_TYPE 
case TIF_CIG_TYPE 
default : 
{ 

static char szName[20]; 

IL_SPRINTF (szName, "BAD_ct%lx M , cigType); 
return szName; 

} 

} 

} // TIFCigName 



001 


: return 


("ctOOl 


100 


: return 


("ctlOO 


101 


: return 


("ctlOl 


102 


: return 


{"ctl02 


111 


: return 


("ctlll 


112: 


: return 


( ,, ctll2 


110: 


: return 


("ctllO 


211: 


return 


("ct211 


212: 


return 


("ct212 


213: 


return 


( M ct213 


210: 


return 


( M ct210 


011: 


return 


("ctOll 


012: 


return 


("ct012 


010: 


return 


( M ct010 


132: 


return 


("ctl32 


13F: 


return 


("ctl3F 
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/ 



* Name: TIFMEX.CPP 

* Part of: the IntelliLink Synchronization Kernel ("TIF") 



+ 
+ 
+ 



+ 



Purpose: mechanism for merging exclusion lists during synchronization 
Not used at all for SmartMerge. 

Tables: EMT1 

EMT102 
EMT213 

Functions (local functions indented): 

TI FMergeExclus ion Lists 

GetExclMergelnstructions 
ExclMergeP 

Author: David Boothby, Copyright (c) IntelliLink Corporation, 1996 



/ 



ffinclude "iltr.h" 



static int GetExclMergelnstructions ( 



PSTTI F_TYPE pstTIF, 
INT32 SItem, 
int ExclDelta, 
INT32 *pNewCigType, 
INT32 *pNewOutcome, 
int *pHowBits ) ; 



static int ExclMergeP { 



PSTTI F_TYPE pstTIF, 
int HowBits, 
INT32 *MexList, 
INT32 MexLen, 
INT32 *pSItem, 
INT32 *pTItem, 
INT32 *pPItem ); 



// row numbers within a 

ffdefine EXCL_DELTA_ONLY_T 0 
#define EXCL_DELTA_ONLY_S 1 
ffdefine EXCL DELTA BOTH 2 



3x3 table block 



// column numbers within a 3x3 table block 

ffdefine EXCL_NEWCIG_IDX 0 
ffdefine EXCL_NEWOUT_IDX 1 
ffdefine EXCL_HOW_IDX 2 

// macros used to get entries from a row of an EMT table 

ffdefine EMT_NEWCIG ( pRow ) pRow [ EXCL_NEWCIG_I DX] 
#define EMT_NEWOUT ( pRow) pRow [ EXCL_NEWOUT_I DX] 
ffdefine EMT_HOW (pRow) pRow [ EXCL_HOW_I DX] 

// ERROR codes in tables defined with following macro 

ffdefine EMT ERR(n) n 



/ 



The 'PMEX' instructions tells us whether to create or modify the P-Item to 
contain the Merged Exclusion List and any other most current field values. 
We only do this when an UpdateBoth outcome is desired. CIG Type 132 is 
assigned to request UPDATE_BOTH. 

V 



ffdef ine 


EXCL 


HOW 


PMEX NO 


0x00 






ffdef ine 


EXCL 


HOW 


"PMEX YES 


0x01 






ffdef ine 


EXCL 


"how 


"PMEX T ONLY 


0x02 






ffdefine 


EXCL~ 


"how" 


"PMEX S ONLY 


0x04 






ffdefine 


excl" 


"how" 


"PMEX TARG 


(EXCL 


HOW 


PMEX T ONLY 


ffdefine 


EXCL_ 


HOW_ 


>MEX_SOUR 


(EXCL_ 


HOW_ 


PMEX_S_ONLY 


ffdef i ne 


EXCL 


HOW 


MEX ONLY 


0x08 






ffdefine 


EXCL 


'how" 


"error 


0x10 






ffdefine 


EXCL 


HOW 


WRONG TABLE 


0x20 







EXCL_HOW_PMEX_YES ) 
EXCL HOW PMEX YES) 



/ 



EMT1 -- Excl Merge Table ffl 
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* This table contains 9 entries per CIG type: 3 Rows X 3 Columns 

* The columns are NewCigType, NewOutcome, and 'How 1 

* The rows are used as follows: 

+ row #0: when a*ll unilateral exclusion ADDs are on the Target Side 

* row #1: when all unilateral exclusion ADDs are on the Source Side 

* row #2: when new exclusions are added on BOTH sides 



static UINT8 EMT1 [TI FCIG_MAX+1 ] [3] [3J = 
{ 

// TIFCIG 000 (0) // no CIG type assigned 



EMT_ERR<11), 0, 
EMT_ERR ( 12 ) , 0, 
EMT ERRU3) , 0, 



EXCL_HOW_ERROR, 
EXCL_HOW_ERROR, 
EXCL HOW ERROR, 



// TIFCIG 001 (1) // item is present in target only ("new in target") 



EMT_ERR( 14 ) , 0, 
EMT_ERR ( 15 ) , 0, 
EMT ERR(16) , 0, 



EXCL_HOW_ERROR, 
EXCL_HOW_ERROR, 
EXCL HOW ERROR, 



// TIFCIG 100 (2) // item is present in source only ("new in source") 



EMT_ERR(17), 0, 
EMT_ERR (18) , 0, 
EMT ERR(19) , 0, 



EXCL_HOW_ERROR, 
EXCL_HOW_ERROR, 
EXCL HOW ERROR, 



// TIFCIG_101 (3) // item is identical in Source and Target 

TIFCIG_102, TIFSYNC_TARGET_WINS, EXCL_HOW_PMEX_NO, 
TIFCIG_102, TIFSYNC_SOURCE_WINS, EXCL_HOW_PMEX_NO, 
TIFCIG_132, 0 /* UpdateBoth */, EXCL_HOW_PMEX_YES, 

// TIFCIG 102 (4) if NEW SOURCE ITEM <> NEW TARGET ITEM 



EMT_ERR ( 20 } , 0, 
EMT_ERR ( 21 ) , 0, 
EMT ERR (22) , 0, 



EXCL_HOW_WRONG_TABLE, 
EXCL_HOW_WRONG_TABLE, 
EXCL HOW WRONG TABLE, 



// TIFCIG 111 (5) // item is unchanged across the board 



TIFCIG_213, TI FSYNC_TARGET_WINS, EXCL_HOW_PMEX_NO, 
TIFCIG 213, TIFSYNC SOURCE WINS, EXCL HOW PMEX NO, 



TIFCIG 112, 0, 



TIFCIG 211, 0, 



0 


/* 


UpdateBoth */, 


EXCL_HOW_PMEX_YES , 






(6) 


// item CHANGED 


in Target since last 


sync 


o, 






EXCL HOW PMEX NO, 




0 


/* 


UpdateBoth */, 


EXCL HOW PMEX TARG, 




0 


/* 


UpdateBoth +/, 


EXCL HOW PMEX TARG, 






(1) 


// item DELETED 


from Target since last sync 


o, 






EXCL HOW ERROR, 




o, 






EXCL HOW ERROR, 




0, 






EXCL_HOW_ERROR, 






(8) 


// item CHANGED 


in Source since last 


sync 


0 


/* 


UpdateBoth */, 


EXCL HOW PMEX SOUR, 




o, 






EXCL HOW PMEX NO, 




0 


/* 


UpdateBoth V, 


EXCL_HOW_PMEX_SOUR, 






(9) 


// item CHANGED 


IDENTICALLY in Src & 


Target 


TIFSYNC TARGET WINS, 


EXCL HOW PMEX NO, 




TIFSYNC SOURCE WINS, 


EXCL HOW PMEX NO, 




0 


/* 


UpdateBoth +/, 


EXCL HOW PMEX SOUR, 






(10) 


// item CHANGED DIFFERENTLY in Src 


& Target 
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EMT_ERR (29), 0, EXCL_HOW_WRONG_TABLE, 
EMT_ERR ( 30 } , 0, EXCL_HOW_WRONG_TABLE , 

EMT_ERR ( 31 ) , 0, EXCL_HOW_WRONG_TABLE, 

// TIFCIG_210 (11) // item CHANGED in Source, DELETED from Target 

EMT_ERR ( 32 ) , 0, EXCL_HOW_ERROR, 
EMT_ERR { 33 ) , 0, EXCL_HOW_£RROR, 
EMT_ERR { 34 ) , 0, EXCL_HOW_ERROR, 

// TIFCIG_011 (12) // item DELETED from Source since last sync 

EMT_ERR { 35 ) , 0, EXCL_HOW_ERROR, 
EMT_ERR(36}, 0, EXCL_HOW_ERROR, 
EMT_ERR ( 37 ) , 0, EXCL_HOW_ERROR, 

// TIFCIG_012 (13) // item DELETED from Source, CHANGED in Target, 

EMT_ERR ( 38 ) , 0, EXCL_H0W_ERR0R, 
EMT_ERR ( 39 ) , 0, EXCL_HOW_ERROR, 
EMT_ERR ( 40 ) , 0, EXCL_HOW_ERROR, 

// TIFCIG_010 (14) // item DELETED from both Source & Target 

EMT_ERR (41), 0, EXCL_H0W_ERR0R, 
EMT_ERR (42) , 0, EXCL_HOW_ERROR, 
EMT_ERR (43), 0, EXCL_HOW_ERROR, 

// TIFCIG_132 (15) // 102 conflict resolved interactively 

// to a "compromise" value stored in P-item 

TIFCIG_132, 0 /+ UpdateBoth +/, EXCL_HOW_PMEX_YES, 
TIFCIG_132, 0 /+ UpdateBoth */, EXCL_HOW_PMEX_YES, 
TIFCIG_132, 0 /* UpdateBoth */, EXCL_HOW_PMEX_YES 

}; // EMT1 



/* 

* EMT102 -- Excl Merge Table used for CIGs of type 102 

* Similar to the EMT1 table, but instead of 9 entries per CIG type, this 

* table has 9 entries per outcome, for a ADD-ADD conflict CIG. 

* 

static UINT8 EMT102 [ TI F_SYNC_OUTCOME_COUNT+ 1 ] [3] [3] = 
{ 



/ 



// Outcome not set (0) 



EMT_ERR (47), 0, 
EMT_ERR (48), 0, 
EMT_ERR (49), 0, 

// Target Wins 



(1) 



EXCL_HOW_ERROR, 
EXCL_HOW_ERROR, 
EXCL HOW ERROR, 



TIFCIG_102, TI FSYNC_TARGET_WINS, 
TIFCIG_132, 0 /* UpdateBoth */, 
TIFCIG 132, 0 /* UpdateBoth */, 



EXCL_HOW_PMEX_NO, 
EXCL_HOW_PMEX_TARG, 
EXCL HOW PMEX TARG, 



// Source Wins 



(2) 



TIFCIG_132, 0 /* UpdateBoth */, 
TIFCIG_102, TIFSYNC_SOURCE_WINS, 
TIFCIG 132, 0 /* UpdateBoth */, 



EXCL_HOW_PMEX_SOUR, 
EXCL_HOW_PMEX_NO, 
EXCL HOW PMEX SOUR, 



// Ignore (3) 

// Here we have an un-resolved conflict between two 

// not-previously-synchronized items. Do Not Merge Exclusions!! 



TI FCIG_1 02 , TI FSYNC_IGNORE , 
TIFCIG_102, TIFSYNC_IGNORE, 
TIFCIG 102, TIFSYNC IGNORE, 



EXCL_HOW_PMEX_NO, 
EXCL_HOW_PMEX_NO, 
EXCL HOW PMEX NO 



}; // EMT102 
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/*- 

* EMT213 — Excl Merge Table used for CIGs of type 213 

* Similar to the EMT1 table, but instead of 9 entries per CIG type, this 

* table has 9 entries per outcome, for a CHG-CHG conflict CIG. 



static UINT8 EMT213 ( TI F_SYNC_OUTCOME COUNT+1] [3] [3] = 
{ 

// Outcome not set (0) 



EMT_ERR { 53 ) , 0, 
EMT_ERR ( 54 ) , 0, 
EMT_ERR ( 55 ) , 0, 

// Target Wins 



// Source Wins 



(1) 



(2) 



EXCL_HOW_ERROR, 
EXCL_HOW_ERROR, 
EXCL HOW ERROR, 



EXCL_HOW_PMEX_NO, 
EXCL_HOW_PMEX_TARG, 
EXCL HOW PMEX TARG, 



EXCL_HOW_PMEX_SOUR, 
EXCL_HOW_PMEX_NO, 
EXCL HOW PMEX SOUR, 



EXCL_HOW_PMEX_YES | 
EXCL_HOW_PMEX_YES | 
EXCL HOW PMEX YES j 



EXCL_HOW_MEX_ONLY, 
EXCL_HOW_MEX_ONLY, 
EXCL HOW MEX ONLY 



TIFCIG_132, 
TIFCIG_213, 
TIFCIG_132, 

// Ignore 



0 /+ UpdateBoth */, 
TI FSYNC_SOURCE_WINS, 
0 /+ UpdateBoth */, 

(3) 



TIFCIG_213, TI FSYNC_TARGET_WINS, 
TIFCIG_213, TIFSYNC_SOURCEJMINS, 
TIFCIG_132, 0 /* UpdateBoth */, 



} ; // EMT213 



TIFCIG_213, TI FSYNC_TARGET_WINS, 
TIFCIG_132, 0 /+ UpdateBoth */, 
TIFCIG 132, 0 /* UpdateBoth */, 



* Name: TI FMergeExclusionLists -- called from set_cig_type in TIFSYNC.CPP 
+ 

* NOTE: this function assumes that all exclusion lists are fully sanitized 

* (sorted into increasing order, with no duplicate entries) 



int TIFMergeExclusionLists ( PSTTI F_TYPE pstTIF, INT32 Firstltem, 

INT32 SItem, INT32 TItem, INT32 PItem } 

( 

ILTR_PDATES SexList; 

ILTR_PDATES TexList; 

ILTR_PDATES MexList; 

INT32 SexLen; 

INT32 TexLen; 

INT32 MexLen; 

INT32 si, ti, mi; 

int SourceOnlyCount ; 

int TargetOnlyCount ; 

int ExclDelta; 

IL_PSTR IpszDelta; 

ILDFX_PHNDL phFile = TIF_hFile; 

INT32 OldCigType = TI FX_CIG_TYPE ( phFi le, Firstltem); 
INT32 NewCigType; 
INT32 NewOutcome; 
int HowBits; 
int rc; 

BOOLEAN bltemlsRecurring » TI FX_ITEM_IS_RECURRING (phFile, Firstltem); 
int fieldnum = TI F_RepExcl FieldNum; 

// if item isn't recurring this function is a NO-OP 

if (! bltemlsRecurring ) 
return SUCCESS; 

/ + 

* For us to do an exclusion list merge we need to have both Source and 
+ Target Items. (Note that cig type 132 has a deviant usage for the 

* so-called Previous Item. CIG type 213 may also (when outcome is 
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* Update Both) . But for these cases the exclusion list of the 

* so-called P-Item is to be ignored. So we always pay attention to the 

* Source and Target Exclusion Lists. 



switch (OldCigType) 
( 



case 


TIF 


CIG 


TYPE 


001 


case 


TIF" 


"cig" 


"type 


'100 


case 


tif" 


"cig" 


"type 


"no 


case 


tif" 


"cig" 


"type 


210 


case 


tif" 


"cig" 


"type 


"on 


case 


tif" 


"cig" 


"type 


012 


case 


tif" 


"cig 


"type 


010 



7 



return SUCCESS; 



case 


TIF 


CIG 


type 


101 


case 


tif" 


"cig" 


"type" 


"102 


case 


tif" 


"cig" 


"type" 


"ill 


case 


tif" 


"cig" 


"type 


"112 


case 


TIF 


"cig" 


"type 


211 


case 


TIF~ 


"cig" 


"type" 


212 


case 


TIF" 


"cig" 


"type 


213 


case 


tif" 


"cig" 


"type 


132 



default: return ILERROR L (OldCigType, TIF ERR ABNORMAL); 



// NO-OP if source and target have identical exclusion lists 

if ( TI FX_REP_EXCL_HASH ( phFi le , SItemJ == TI FX_REP_EXCL_HASH (phFi le, TItem) ) 
return SUCCESS; 



// read the Source Item into 'First Record' 

rc = TIFRetrieveRecord (pstTIF, SItem, &TI F_Fi rst Record ) ; 
if (rc != SUCCESS) return ( I LERROR_L (SItem, rc)); 

// read the Target Item into 'Second Record* 

rc = TIFRetrieveRecord (pstTIF, TItem, &TI F_SecondRecord ) ; 
if (rc != SUCCESS) return (ILERROR_L (TItem, rc)); 

// locate the Exclusion Lists 

SexList = (ILTR_PDATES) TI F_FieldData ( TI F_pFi rstRecord , f ieldnum) ; 
TexList = (ILTR_PDATES) TI F_Fi eld Data (TIF_pSecondRecord, f ieldnum) ; 

// get List Lengths (in bytes) 

SexLen = TI F_FieldLengt h ( TI F_pFi rst Record, f ieldnum) ; 
TexLen = TI F_FieldLength ( TI F_pSecondRecord, fieldnum); 

// make sure CurrentField buffer is big enough for merge 

rc = ILUT_GetBuf fer ( &TI F_Current Field, SexLen + TexLen);" 
if (rc != SUCCESS) return (ILERROR_L (SexLen + TexLen, rc)); 

MexList = ( ILTR_PDATES) TI F_pCurrent Field; 

// change List Lengths to be counts of list entries 

SexLen /= sizeof { long ) ; 
TexLen /= sizeof ( long ) ; 

// initialize counts of exclusions that are NOT common to both iists 

SourceOnlyCount = 0; 
TargetOnlyCount = 0; 

// initialize indices for traversing lists (source, target, merge) 

si = 0; 
ti = 0; 
mi = 0; 



// build Merged List, determine its length, and count unilateral inputs 

while (si < SexLen && ti < TexLen) 
( 

. // copy Source entries that precede OR MATCH the next target entry 

while (si < SexLen && ti < TexLen && SexList[si] <= TexList[ti]) 
( 

MexList [mi++] = SexList[si]; 
if (SexList[si] TexList[ti]) 

ti + + ; 
else 
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SourceOnlyCount++; 
si + + ; 

} 

// copy all Target entries that precede the next Source entry 

while (si <_SexLen && ti < TexLen && TexListfti] < SexList[si]) 

MexList [mi++] = TexList [ ti++ ] ; 
TargetOnlyCount++; 

I 

} 

// if there are leftover Source entries, copy them across 

while (si < SexLen) 
{ 

MexList [mi++ ] = SexList [ si++ ] ; 
SourceOnlyCount++ ; 

J 

// if there are leftover Target entries, copy them across 

while (ti < TexLen) 
{ 

MexList [mi++] = TexList [ ti++ ] ; 
TargetOnlyCount++; 

) 

// note length of merged list. Zero length is bad. 

MexLen =» mi; 

TIFlog3ints ( 70, "Merged Excl Lists: %ld + %ld » %ld", 

SexLen, TexLen, MexLen }; 
if {MexLen == 0) 

return ILERROR (0, TI F_ERR_ABNORMAL ) ; 

// something is amiss if the two lists are identical!! 

if f SourceOnlyCount == 0 && Ta rgetOnlyCount == 0) 
return ILERROR (0, TIF_ERR_ABNORMAL) ; 

// Characterize the overall set of Exclusion List changes 

if (SourceOnlyCount == 0} 
{ 

Excl Delta = EXCL_DELTA_ONLY_T; 
lpsz Delta = "Target"; 

) 

else if (TargetOnlyCount == 0) 
{ 

Excl Delta = EXCLUDE LTA_ONLY_S; 
IpszDelta = "Source"; 

} 

else 
{ 

ExclDelta = EXCL_DELTA_BOTH; 
IpszDelta = "Both"; 

} 

// Look in table to see how exclusion merge affects record outcome 

rc = GetExclMergelnstructions ( pstTIF, SItem, ExclDelta, 

&NewCigType, iNewOutcome, SHowBits ) ; 
if ( I LLOG_VERBOSE_ENOUGH ( TI FLOG , 70) ) 
{ 

char szLog [ 100 ] ; 

IL_SPRINTF ( szLog, "ExclMerge (%s, delta=%s) ==> %s %lx %x; rc=%d", 

TIFCigName (OldCigType ) , IpszDelta, TI FCigName ( NewCigType J , 
NewOutcome, HowBits, rc ); 

TIFlogsz (szLog); 

} 

if (rc != SUCCESS) 

return ILERROR (rc, TI F_ERR_ABNORMAL ) ; 

// If necessary put merged exclusion list into the P-Item. This will 

// also cause a P-Item to be created if none exists yet (i.e. for 

// CIG types 101 and 102.) 

if (HowBits & EXCL_HOW_PMEX_YES) 
{ 

rc = ExclMergeP ( pstTIF, HowBits, MexList, MexLen, 



Copyright ©1996 Puma Technology, Inc. All Rights Reserved. 



tifmex.cpp 



Page 7 of 9 



fiSItem, iTItem, &PItem ); 

if (rc != SUCCESS } 

return ILERROR (rc, rc); 

} 

// G e t ready to make changes to the FLAGS words for all CIG+FIG members 

INT32 NewFlagsf 
INT32 NewFlags2; 

// Always put the new CIG type and outcome in FLAGS 

NewFlags - NewCigType I NewOutcome; 

// If CIG type is unchanged, do nothing to FLAGS2 

if (NewCigType ~- OldCigType) 
NewFlags2 = 0; 

// If CIG type is changing, set bit and store old CIG type in FLAGS2 

else 
{ 

NewFlags |= TIF_MEX_CIG; 
NewFlags2 = OldCigType; 

) 

// s e t *Mex Only' flag if non-Excl conflict is to remain unresolved 

if (HowBits & EXCL_HOW_MEX_ONLY) 
NewFlags |= T I F_MEX_ON LY ; 

// Assign new cig type and new outcome to all affected records 

rc ~ TIFMarkAllFigMembers ( phFile, SItem, 

TIF_CIG_TYPE_MASK I TI F_OUTCOME_MASK, 

NewFlags, NewFlags2 ); 

if (rc SUCCESS) 

return ILERROR_L (SItem, rc); 

rc = TIFMarkAllFigMembers ( phFile, TItem, 

TI F_CIG_TYPE_MASK I TI F_OUTCOME_MASK, 
NewFlags, NewFlags2 ); 

if (rc != SUCCESS) 

return ILERROR_L (TItem, rc); 

if (PI tern != TIF_NOTSET) 
{ 

rc = TIFMarkAllFigMembers ( phFile, PItem, 

TI F_CIG_TYPE_MASK | TI F_OUTCOME_MASK, 
NewFlags, NewFlags2 }; 

if (rc != SUCCESS) 

return ILERROR_L (PItem, rc ) ; 

} 

return SUCCESS; 
) // TI FMergeExclusionLists 



/* 

* Name: GetExclMergelnstructions -- called from MergeExclusionLists 
■*■ 

* Determine how Exclusion List merge shall affect overall record sync. 

+ +> i 

static int GetExclMergelnstructions ( PSTTI F_TYPE pstTIF, 

INT32 SItem, 
int ExclDelta, 
INT32 *pNewCigType, 
INT32 *pNewOutcome, 
int *pHowBits ) 

{ 

ILDFX_PHNDL phFile = TIF_hFile; 
INT32 flags = TI FX_FLAGS ( ph File, SItem); 
INT32 cigType = flags & TI F_CIG_TYPE_MASK; 
INT32 cigNum = cigType » TI F_CIG_TYPE_SHI FT; 
INT32 outcome flags & TI F_OUTCOME_MASK; 
INT32 outNum = outcome » TI F_0UTC0ME_SHI FT; 

INT32 newCigNum; 
INT32 newOutNum; 
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UINT8 *pRow; // ptr to a row in an EMT table 

// sanity check the cig num 

if (cigNum > TIFCIG_MAX) 

return ILERROR_L (cigNum, TI F_ERR_ ABNORMAL ) ; 

ft sanity check the outcome num 

if (outNum > TIF_SYNC_OUTCOME_COUNT) 

return ILERROR_L (cigNum, TI F_ERR_AB NORMAL ) ; 

// locate row in appropriate EMT table 

switch (cigNum) 
{ 

case TIFCIG_102: pRow = &EMT102 [ outNum] [ Excl Del ta ][ 0 ] ; break; 
case TIFCIG_213: pRow = &EMT213 [ outNum] [ Excl Del t a ][ 0 ] ; break; 
default: pRow — &EMT1 [ cigNum] [ Excl Del ta J[ 0 ] ; break; 

} 

newCigNum = ( INT32 ) EMT_NEWCIG ( pRow) ; 
*pNewCigType = newCigNum << TI F_CIG_TYPE_SHI FT; 

newOutNum = (INT32) EMT_NEWOUT (pRow} ; 
*pNewOutcome = newOutNum << TI F_OUTCOME_SHI FT; 

*pHowBits = (int) EMT_HOW ( pRow ) ; 

if (*pHowBits & (EXCL_HOW_ERROR | EXCL_HOW_WRONG_TABLE ) ) 
return ILERROR_L (cigNum, (int) newCigNum); 

return SUCCESS; 
} // GetExclMergelnst ructions 



/* 

* Name: ExclMergeP — called from MergeExclusionLi sts 

* This function creates or modifies a CIG's P-Item. At minimum this 

* function puts the Merged Exclusion List into the P-Item and fixes the 

* exclusion count in RepBasic. In addition it may create the P-item from 

* scratch, or replace a pre-existing P-Item, by copying the Source or 

* Target Item. 

* v 

static int ExclMergeP ( PSTTI F_TY PE pstTIF, 

int HowBits, 
INT32 *MexList, 
INT32 MexLen, 
INT32 +pSItem, 
INT32 *pTItem, 
INT32 *pPItem ) 

( 

I LTR_PRE PEAT pRepeat; 
INT32 len; 
int fldnum; 
INT32 Newltem; 
int rc; 

I LDFX_PHNDL phFile = TIF_hFile; 
TIF_R£CORD_VALUE_PTR pReplacementRec = NULL; 

if (*pPItem == TI F_NOTSET } 
{ 

if (HowBits & EXCL_HOW PMEX S ONLY) 
{ 

rc = TIFCommandeerSourceltem ( pstTIF, *pSItem, +pTItem, 

TIF_pFirstRecord, &NewItem ); 

if (rc != SUCCESS) return rc; 

*pPItem - +pSItem; 
*pSItem = Newltem; 

} 

// Copy Target if not told to copy source. 

else 

{ 

rc = TIFCommandeerTargetltem ( pstTIF, *pTItem, *pSItem, 
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TIF_pSecondRecord, &NewItem ); 

if ( rc != SUCCESS } return rc; 

*pPItem = *pTItem; 
*pTItem = Newltem; 

1 

} 

else if (HowBits & EXCL_HOW_PMEX_S_ONLY ) 
pReplacementRec = TIF_pFirstRecord; 

else if (HowBits & EXCL_HOW_PMEX_T_ONLY ) 
pReplacementRec = TIF_pSecondRecord; 

// Replace previous P-Item with Source or Target, if so directed 

if (pReplacementRec != NULL) 
{ 

rc = ILDFXJJpdateRecord ( phFile, *pPItem, 

pReplacementRec, 

TIFREC_SIZE (pReplacementRec) , NULL ); 

if (rc !=: ILDFX_OK) 

return ILERROR (rc, TI F_ERR_ABN0RMAL ) ; 

} 



// We always install the merged exclusion list in the P-Item. 

// Start by reading the P-Item into 'Current Record'. 

rc = TIFRetrieveRecord (pstTIF, *pPItem, &TI F_CurrentRecord ) ; 
if (rc SUCCESS) return ILERROR_L (*pPItem, rc ) ; 

// p u t the repExcl field value into Current Record 



fldnum o TI F_RepExcl FieldNum; 

rc =» TIFPut FieldBylndex ( pstTIF, fldnum, 

MexList, MexLen * sizeof(long) ); 
if (rc != SUCCESS) return ILERROR ( rc, rc); 

// Make sure we have a valid _repBasic field to update 

fldnum = TIF_RepBasicFieldNum; 

len = TI F_FieldLength ( TI F_pCur rent Record , fldnum); 
if (len != sizeof ( ILTR_REPEAT ) ) 

return ILERROR_L (len, TI F_ERR_ABNORMAL ) ; 

// Update the exclusion count in the _repBasic field 

pRepeat = ( I LTR_PRE PEAT ) TI F_FieldDa t a ( TI F_pCur rent Record, fldnum); 
pRepeat->numExDates = (INT16) MexLen; 

// Get ready to compute new EX DATA values for P-Item 

INT32 exdata [ TI F_EXDATA_PER_RECORD] ; 

IL_MEMSET ( ( IL_PANY ) exdata, 0, si zeof ( exdata )) ; 

// retain pre-existing Flags and Group Memberships 

exdata [TIF_FLAGS_SLOT] = TI FX_FLAGS (phFile, *pPItem) ; 

exdata [TI F_FLAGS2_SL0T] = TI FX_FLAGS2 ( ph File, *pPItem}; 

exdata [TI F_NEXT_IN_CIG_SLOT ] = TI FX_NEXT_IN_CIG ( ph File, *pPItem) ; 

exdata [TI F_NEXT_IN_SKG_SLOT] = TI FX_NEXT_IN_SKG ( phFi le, *pPItem) ; 

exdata [TI F_NEXT_IN_FIG_SLOT ] = TI FX_NEXT_IN_FIG ( phFi le, *pPItem) ; 

// Re-compute everything else (hash values and start/end DTTM values) 

rc = TI FComputeSearchKeyValues (pstTIF, TIF_pCurrentRecord, exdata); 
if (rc != SUCCESS) 

return ILERROR (rc, TI F_ERR_ABNORMAL ) ; 

// Update the P-Item record on disk 

rc = ILDFXJJpdateRecord ( phFile, + pPItem, 

TIF_pCur rent Record, 

TIFREC_SIZE (TIF_pCurrentRecord) , exdata ); 

if (rc !=» ILDFX_0K) 

return ILERROR (rc, TI F_ERR_ABN0RMAL ) ; 

return SUCCESS; 

} // ExclMergeP 
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/* 

* Name: TIFPUT.CPP 
+ 

* Contains functions (local functions indented): 

* TIFPutRecord: used when loading TIF for SmartMerge or SyncPort 

* LogNonUniquelD 

* CheckFastSyncDelta 

* StoreUnanalyzedRecord 

* AnalyzeAndStoreRecord 

* TI FAdj ustRecordl f Changed : used in aftermath of reconciliation 

* VerifylDMatch 

* SearchForlDMatch 

* SearchForKeyFieldsMatch 

* Ef fectiveFieldLength 

* InitiateNewGroupMember 

* TIFSetSimpleApptSpan 

* SetRecurringApptSpan 

* SetSimpleTodoSpan 

* SetRecurringTodoSpan 

* DigestRecurrencePattern 

* TIFComputeSearchKeyValues 

* DateCompare 

* SanitizeExclusionList 
TI FSani t i zeRepBasic 

CheckAndSetOut Range 

* IsRecur ringOutRange 

* IsSimpleOutRange 

* Different flavors of PutRecord are: 



+ 
* 
+ 



1. analyze and store a new record. Analysis is done to compute all 

EX DATA values, which includes establishing CIG & SKG membership ties. 

2. store a record without doing any analysis. 

3. update a record that was previously stored w/o analysis (by 1). 
the record may have been altered since it was first stored. 

This same update operation does analysis to set all EX DATA values. 

4-. special-purpose exdata-only update done to assimilate a history file. 

5. adjust a previously analyzed and stored record, whose ID is guaranteed 
NOT to have changed, but whose other field values, including KeyField 
and DTTM values, may have changed. Hence SKG membership may shift. 

Flavors 1-4 are all accomplished by calling 'TIFPutRecord*. 
Flavor 5 is done by calling 1 TI FAdj ustRecordl f Changed 1 . 

For flavor #2, TIFPutRecord calls StoreUnanalyzedRecord. 

For the other flavors, TIFPutRecord calls AnalyzeAndStoreRecord. 



+ Author: David Boothby, Copyright (c) rntelliLink Corporation, 1995 

* v 

^include "iltr.h" 



static int LogNonUniquelD ( ILTR_PTRANSL tr, 

PSTTI F_TYPE pstTIF, 
TIF_RECORD_VALUE_PTR pRec, 
int idError ) ; 

static int CheckFastSyncDelta ( PSTTI F_TYPE pstTIF, 

TIF_RECORD_VALUE_PTR pRecord, 
BOOLEAN IL_DIST *pisaZombie }; 



static int StoreUnanalyzedRecord ( 
static int AnalyzeAndStoreRecord ( 



ILTR_PTRANSL tr, 
TIF_RECORD_VALUE_PTR pRec ); 

ILTR_PTRANSL tr, 
ILUT_PBUFFER pRecBuf, 
TIF_PUT_RECORD_0PTI0N nPutOption, 
BOOLEAN isaZombie, 
INT32 ItemToIgnore, 
BOOLEAN +pMustAddZombie }; 
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static int SearchFor IDMatch ( PSTTI F_TY PE pstTIF, 

TIF_RECORD_VALUE_PTR pRec, 

INT32 *exdata, // in (array) 

int slotlndex, 

INT32 Excludedlteml, 

INT32 Excludedltem2, 

INT32 Last PossibleMatch, 

INT32 *pMatchIndex ); // out 

static int SearchForKeyFieldsMatch ( PSTTI F_TYPE pstTIF, 

TIF_RECORD_VALUE_PTR pRec, 
INT32 lHashSought, 
INT32 Excludedltem, 
INT32 LastPossibleMatch, 
INT32 *pMatchIndex ) ; 

static int Init iateNewGroupMember ( I LDFX_PHNDL phFile, 

INT32 RecordNumber, 
int LinkSlot, 
IL_PSTR szGroupType J ; 

static int SanitizeExclusionList ( PSTTI F_TYPE pstTIF, 

T I F_R ECOR D_VALU E_ PT R pRecord, 
ILTR_PREPEAT pRepeat ); 

static int CheckAndSetOutRange ( ILTR_PTRANSL tr, 

PSTTI F_TY PE pstTIF, 

T I F__R ECOR D_VALU E_ PT R pRec, 

INT32 Currentltem, 

INT32 *exdata ); 

static BOOLEAN IsRecurringOut Range ( I LTR_PTRANSL tr, 

PSTTI F_TY PE pstTIF, 
TIF_DATERANGE Range, 
TIF_RECORD_VALUE_PTR pRec, 
ILTR_PREPEAT pRepeat ); 

static BOOLEAN IsSimpleOut Range { PSTTI F_TYPE pstTIF, 

TIF_DATERANGE Range, 
long IStartDate, 
long iEndDate ) ; 

extern "C" int IL_CDECL DateCompare ( const void *pKey_l, const void *pKey 2 ) 



* Name: TIFPutRecord 

* Purpose: Optionally Analyze and Store a record. 

* Details: Depending on the "Put Option" parameter, one of the following 

* operations is performed: 

* 1. just store a new record, unanalyzed, or 

* 2. analyze record to set CIG & SKG membership, then store it as a new 

* record, or update an previously stored record. 



int TIFPutRecord { ILTR_PTRANSL tr, TIF PUT RECORD OPTION nPutOption) 
{ 

PSTTI F_TYPE pstTIF = &ILTI F_pstTI F; 

// use the Current Record Buffer {so that pRec == TI F_pCurrentRecord ) 

I LUT_PBU FFER pRecBuf &TIF_CurrentRecord; 

TI F_RECORD_VALUE_PTR pRec = ( T I F_R ECOR D_VALU E_ PT R ) pRecBu f->pBuf f er; 
int rc = SUCCESS; 

BOOLEAN isaZombie = FALSE; // TRUE for FastSync DELETE items 

BOOLEAN bMustAddZombie = FALSE; // TRUE after ILLEGAL MATCH for FastSync 
INT32 ItemToIgnore; 

/* 

* When doing Fast Sync Load validate the _Delta field and detect zombies. 
* v 

if (TIF_bFastSyncLoad ) 

rc = CheckFastSyncDelta (pstTIF, pRec, &isaZombie); 
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if (rc == SUCCESS) 
{ 

switch (nPutOption) 
{ 

case TIFPRO STORE NEW UNANALYZED RECORD: 

/* 

* Most records are NOT analyzed here, but FastSync zombies ARE 

* analyzed here, cuz we don't want the Target Translator to try 

* to SANITIZE zombies. They look pretty deviant, so translators 

* are likely to dislike them. 

* / 

if ( isaZombie) 

// change option and fall through into next case 

nPutOption = TI FPRO_ANALYZE_AND_STORE_NEW_RECORD; 
else 

{ 

rc - StoreUnanalyzedRecord ( tr, pRec); 
break; 

} 

case TI FPRO_ANALYZE_AND_STORE_NEW_RECORD: 
case TI FPRO_ANALYZE_AND_UPDATE_RECORD: 
case TIFPRO_SPECIAL_HISTORY_FILE_UPDATE: 

ItemToIgnore = -1; 

rc = AnalyzeAndStoreRecord ( tr, pRecBuf, nPutOption, isaZombie, 

ItemToIgnore, &bMust AddZombie ) ; 

break; 
default : 

rc = TIF_ERR_BAD_PUT_RECORD_OPTION; 
break; 

I 

J 

if (rc == SUCCESS) 

// set special action code to suppress logging by IMPORT. C 

ILSetAction ( tr, I LTR_ACT_LOADED_INTO_TI F ); 

ILTIFlogszul3 ( "TIFPutRecord/%ld {item #%ld) ==> rc=%ld", 

(UINT32) nPutOption, 
(UINT32) TIF_lCurrentRecNum, 
(UINT32) rc ); 

/* 

* Fault tolerance: don't croak if translator supplies non-unique IDs. 



if (rc == TIF_ERR_NON_UNIQUE_SOURCEID || rc == TI F_ERR_NON_UNIQUE_TARGETI D) 

// put a stern warning in the user-visible logfile 

rc = LogNonUniquelD (tr, pstTIF, pRec, rc); 

// Get ready for the next record by making sure it will be primed 
TIF_bNeedPriming = TRUE; 
return SUCCESS; 



/ * 

* For Fast Sync, we have thus far ensured that an Illegal Match will 

* generate an ADD coming from the FastSync side. Now we add a zombie 

* so that there will also be a DELETE coming from the FastSync side. 
+ 

if ( rc == SUCCESS && bMus t Add Zombi e ) 
{ 

INT16 fieldnum; 
char szDelta [ 2] ; 

if (TIF_phase TI F_PHASE_LOADING_TARGET_RECORDS ) 

fieldnum « TIF_TargetDeltaFieldNum; 
else 

fieldnum = TIF SourceDeltaFieldNum; 
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// save a copy of the original DELTA code 

szDeita[0] = { TI F_FieldDa ta ( pRec, f ieldnum) ) [ 0 ] ; 
szDeltatl] = 0; 

// change the DELTA code to DELETE 

rc « TIFRecordAddFieldValue ( pstTIF, TI F_pFieldList , "", fieldnum, 

ILTR_DELTA_DELETE, 0, FALSE, pRecBuf ); 
if (rc !» SUCCESS) return ILERROR (rc, rc); 

isaZombie = TRUE; 

nPutOption = TI FPRO_STORE_SPECIAL_Z0MBIE; 
ItemToIgnore => TIF_lCurrentRecNum; 

// put out a DELETE for the same record we just added 

rc = AnalyzeAndStoreRecord ( tr, pRecBuf, nPutOption, isaZombie, 

ItemToIgnore, SbMustAddZombie ) ; 

ILTIFlogszul3 ( " PutSpecia 1 Delete/ % Id (item Hid) ==> rc=%ld", 

(UINT32) nPutOption, 
(UINT32) TIF_lCurrentRecNum, 
(UINT32) rc ); 

if {rc != SUCCESS) return ILERROR ( rc, rc); 

// restore'the original DELTA code 

rc = TIFRecordAddFieldValue ( pstTIF, TI F_pFieldList , "", fieldnum, 

szDelta, 0, FALSE, pRecBuf }; 
if ( rc !*= SUCCESS) return ILERROR (rc, rc); 

} 

// Get ready for the next record by making sure it will be primed 
TIF_bNeedPriming = TRUE; 

return rc; 

} // TIFPutRecord 



* LogNonUniquelD 

*■ — — — * j 

static int LogNonUniquelD ( ILTR_PTRANSL tr, 

PSTTI F_TY PE pstTIF, 

T I F_R ECOR D_VALU E_ PT R pRec, 

int idError ) 

( 

int rc; 

int fieldnum = TI F_ViewFieldNum; 
IL_PSTR psz; 

if (TIF_FieldLength (pRec, fieldnum) == 0) 

LoadString{ TI F_DLL_InstanceHandle, TIF_STR_UNSPECIFIED, 

I LTR_szRecName , MAX_MSG ); 

else 
{ 

psz = TIF_FieldData (pRec, fieldnum}; 
IL_SAFE_STRINGCOPY ( ILTR_szRecName, psz); 

// Truncate the name at EOS char (end of line) 

IL_PSTR lpMatch = I L_STRCHR ( ILTR_szRecName, ILTR_EOS_CHAR ) ; 
if ( lpMatch NULL) 
*lpMatch = 0; 

} 

// Write out log record, saying that record is being IGNORED 

rc = ILAppendLog ( ILTR_hLog, ILTR_hRes, I LTR_MSG_IGNORE, 

ILTR_szRecName, NULL } ; 

if (rc != SUCCESS) 

return ILTR_ERR_LOGFI LE; 

// Get the Unique ID string 

if (idError == TIF_ERR_NON_UNIQUE_SOURCEID) 

fieldnum = TI F_Sou reel DFieldN urn; 
else 

fieldnum = TIF TargetlDFieldNum; 
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psz = TIF_FieldData (pRec, fieldnum); 

char szTemplate [ 80] ; 
char szLogEntry [300] ; 

// Get template for non-unique ID explanation 

LoadString( TI f_DLL_InstanceHandle, TI F_STR_NON_UNIQUE_ID, 

szTemplate, sizeof ( szTemplate ) ); 

// Explain why we're ignoring this record 

IL_SPRINTF (szLogEntry, szTemplate, psz); 

IL_WRITE { ILTR_hLog , szLogEntry, IL_STRLEN ( szLogEntry } , rc); 
return SUCCESS; 
} // LogNonUniquelD 



/* 

* Name: CheckFastSyncDelta 

* Called from TI FPutRecord, only during FastSync loading of Target or Source 

* Records, to validate the _Delta field value and pass back the "isaZombie" 

* indication if Delta=D (Delete). 



static int CheckFastSyncDelta ( PSTTIFJTYPE pstTIF, 

TIF_RECORD_VALUE_PTR pRecord, 
BOOLEAN IL^DIST *pisaZombie ) 

{ 

int fieldnum; 
INT32 len; 
char cDelta; 

// choose _Delta field based on current TIF phase 

if (TIF_phase == TI F_PHASE_LOADING_TARGET_RECORDS ) 

fieldnum = TI F_Ta rget Delta FieldNum; 
else if (TIFjphase == TI F_PHASE_LOADING_SOURCE_RECORDS ) 

fieldnum = TI F_SourceDelt a FieldNum; 
else if (TIF_phase == TI F_PHASE_SANITIZING_SOURCE_REC0RDS ) 

fieldnum = T I F__SourceDelt a FieldNum; 
else 

return ILERROR {TIF_phase, TI F_ERR_BAD_STATE ) ; 

// When doing FastSync Load there had better be a _Delta field 

if (fieldnum TI F_NOTSET ) 

return ILERROR (fieldnum, TI F_ER R_ ABNORMAL ) ; 

// All legal _Delta field values are 1 letter followed by a NULL 

len = 'TIF_FieldLength (pRecord, fieldnum); 
if (len != 2) 

return ILERR0R_L (len, TI F_ERR_BAD_FASTSYNC_DELTA) ; 

// Grab the 1-character __Delta value 

cDelta = (TIF_FieldData (pRecord, f ieldnum) )[ 0 ] ; 

switch (cDelta) 
{ 

case I LTR_CDELTA_ADD : 
case ILTR_CDELTA_CHANGE: 

*pisaZombie = FALSE; 
return SUCCESS; 

case I LTR_CDELTA_DELETE : 

*pisaZombie - TRUE; 
return SUCCESS; 

de fault : 

return ILERROR ((int) cDelta, TIF ERR BAD FASTSYNC DELTA); 

} 

} // CheckFastSyncDelta 



/* 
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* Name: StoreUnanalyzedRecord (called from TI FPutRecord } 
+■ 

* Purpose: Simply Store a record. This is done when Source Translator is 

* putting records into TIF. Analysis is deferred until a later 

* phase of translation, at which point the Target Translator gets 

* a chance to sanitize the Source Records. At that point the 

* TI F P RO_AN AL Y ZE_AND_UP DAT E_RE CORD option is typically used, unless 

* the Target Translator needs to do FANNING or other record-creating 

* operations. 

* - V 

static int StoreUnanalyzedRecord ( ILTR_PTRANSL tr, TI F_RECORD VALUE PTR pRec) 
{ 

PSTTIF_TYPE pstTIF *• &ILTI F_pstTI F; 

/* 

* The exdata array is where Search Keys and Linkage words live. 

* Until analyzed, the exdata is almost all zeroed. 

+ ♦ i 

INT32 exdata [ TI F_EXDATA_PER_RECORD] ; 

IL_MEMSET( (IL_PANY) exdata, 0, sizeof ( exdata )) ; 

// Increment the number of records in the file 
INT32 IRecordNumber; 

IRecordNumber = TI F_lCur rentRecNum = TI F_TotalRecordCount++; 

exdata [TIF_FLAGS_SLOT] = TIF_origin | TI F_IS_UNANALYZED; 

exdata [TIF_NEXT_IN_CIG_SLOT] = IRecordNumber; // singleton CIG 
exdata [ TI F_NEXT_IN_SKG_SLOT ] = IRecordNumber; // singleton SKG 
exdata [TI F_NEXT_IN_FIG_SLOT] = IRecordNumber; // singleton FIG 

int rc = ILDFX_AddRecord ( TIF_hFile, IRecordNumber, 

pRec, TIFREC_SIZE (pRec) , exdata ); 

return rc; 
} // StoreUnanalyzedRecord 



/ + 

* Name: AnalyzeAndStoreRecord (called from TI FPutRecord ) 

* Purpose: Analyze and Store a record. 

* Establish membership in CIG and/or SKG as appropriate. 

* Details: 

* This function always does analysis to set CIG & SKG membership 

* Then it effects one of the following storage options: 

* 1. add new record (body + exdata) 

* 2. update existing record (body + exdata) 

* 3. update existing record (exdata only) 

* The ' ItemToIgnore 1 recordnumber was added as an afterthought to aliow 

* the 'TIFPRO_STORE_SPECIAL_ZOMBIE ! stuff to work, avoiding non-uniquelD err. 
* 

static int AnalyzeAndStoreRecord ( I LTR_PTRANSL tr, 

ILUT_PBUFFER pRecBuf, 
TIF_PUT_RECORD_0PTI0N nPutOption, 
BOOLEAN isaZombie, 
INT32 ItemToIgnore, 
BOOLEAN + pMustAddZombie ) 

{ 

int rc; 

PSTTI F_TYPE pstTIF = &ILTIF_pstTIF; 
ILDFX_PHNDL phFile = TIF_hFile; 
INT32 UDMatchlndex = TI F_N0TSET; 
INT32 lKFMatchlndex = TI F_NOTSET; 
INT32 exdata [ TI F_EXDATA_PER_RECORD] ; 
INT32 Currentltem; 
INJT32 LastPossibleMatch; 

TI F_RECORD_VALUE_PTR pRec = { TI F_RECORD_VALUE_PTR ) pRecBuf ->pBuf f er; 

/* 

* If we're going to ADD a new record, don't set Currentltem yet, but set 

* Search Limit used when searching for ID or KF matches. 
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+/ 

if { nPutOption == TI FPRO_ANALYZE_AND_STORE_NEW_RECORD 
I I nPutOption « TIFPRO_STORE SPECIAL ZOMBIE ) 

{ 

Currentltem = -1; // itemff for new item not set yet 
LastPossibleMatch = TIF TotalRecordCount - 1; 



/* — 

* But if we* re going to UPDATE an existing record, set Currentltem and 

* limit searches so that we never match the current item to another item 

* that sits further down in the index. (Otherwise that couid happen 

* while analyzing the History File.) 



else 
{ 

Currentltem = TI F_lCurrentRecNum; 
LastPossibleMatch = Currentltem - 1; 

I 

if ( (nPutOption == TI FPRO_ANALYZE_AND_STORE_NEW_RECORD) 
I I (nPutOption == TI FPRO_ANALYZE_AND_UPDATE_RECORD ) ) 

{ 

// Make sure that all fields that need to be filled are 
TIFFillDefaults (pstTIF, tr, pRecBuf); 

/* 

* Test code to force TIF to think that DUPLICATE IDs 

* are being supplied to it. 

+ * / 

//static char szID[100] = i 

//static long idlen = 0; 

// 

//if (ILTR_phase ~= ILTR_PHASE10 ) 
//{ 



// if (IL_STRING_IS_NULL(szID) ) 

// IL_STRCPY (szID, TI F_FieldData ( pRec, TI F_Ta rget I DFieldNum ) ) ; 

// else 

// IL_STRCPY (TIF_FieldData (pRec, TI F Ta rget I DFieldNum) , szID); 



//} 

//TIFlogszszul ("id=%s, phase=»%ld", szID, (UINT32) TIF_phase); 

//if (TIF_phase == TI F_PHASE_SANITIZING_SOURCE RECORDS) 

//{ 



// if ( IL_STRING_IS_NULL(szID) ) 

// { 

// IL_STRCPY (szID, TI F_FieldDa ta ( pRec, TI F_SourceI DFieldNum) ) ; 

// idlen = TI F_FieldLength (pRec, TIF SourcelDFieldNum) ; 

// } 

// else 

// { 

// IL_STRCPY (TIF_FieldData (pRec, TI F_Sou reel DFieldNum) , szID) ; 

// TIF_FieldLength (pRec, TIF_SourceIDFieldNum) = idlen; 

// ) 



//} 

} 

/* 

* The exdata array is where Search Keys and Linkage words live. 

* Search Keys are Hash Values and Start&End DTTM Values 

* v 

IL_MEMSET ( (IL_PANY) exdata, 0, si zeof ( exdata )) ; 

/* 

* For "Special History File Update" we depend upon the exdata 

* values that are stored in the history file. The following rules 

* must be upheld: 

* all Hash IDs and DTTM values are set correctly 

* there aren't any non-unique IDs. 

* each item belongs to a singleton CIG and a singleton SKG 

* each item has flags == FROM_PREVIOUS 

* Now simply copy the exdata that has been read from the history file. 
* + / 

if (nPutOption == TIFPRO SPECIAL HISTORY FILE UPDATE) 
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for (int i=0; i < TI F_EXDATA_PER_RECORD; 

exdatafi] = TIFX(phFile, Currentltem, i); 

// For Appts, set the OUT_OF_RANGE flag if applicable 

if (ILTR_nFunction ==* I LTR_APPT ) 
{ 

rc = CheckAndSetOutRange (tr, pstTIF, pRec, Currentltem, exdata); 
if (rc != SUCCESS) return rc; 

) 



/* 

* For all other flavors of * PutRecord', we need to compute exdata 

* values, and when doing synchronization we look for ID-based matches. 

* Also set the isRecurringltem flag, and sanitize Exclusion Lists 

* for Recurring Items. 

* V 

else 
{ 

/* 

* Use ZOMBIE flag to mark FastSync DELETE items. Zombie items play 

* an important but very limited "placeholder" role. They never are 

* party to KeyField-based matches, and when a zombie is matched up 

* with a P-Item we don't set any of the P-Item*s ID-match flag bits. 

* See tifsync2\TIFSyncDigestFastLoad for further use of zombies. 



if (isaZombie) 

exdata [TI F_FLAGS_SLOT] = TIF_ZOMBIE; 

rc = TIFComputeSearchKeyValues (pstTIF, pRec, exdata); 
if (rc != SUCCESS) 
return rc; 

if ( (TIF_origin == TIF_FROM_SOURCE ) 

&& (exdata [TI FJTARGETID_HASH_SLOT ] != TI FHASH_NONE ) ) 
return TI F_£RR_TARGETID_IN_SOURCE_REC; 

if ( (TIF_origin == TI F_FROM_TARGET ) 

&& {exdata [ TI F_SOURCEI D_HASH_SLOT ] TI FHASH_NONE ) ) 
return TI F_ERR_SOURCEI D_IN_TARGET_REC; 

if (TIF_nSynchronize) 
{ 

// SYNCHRONIZATION: look for a previously loaded record, in TIF, that 

// has the same ID as the incoming record. 

switch (TI F_origin ) 

{ 

case TIF_FROM_PREVIOUS: //-- loading Previous Sync History Records 

// — check for non-unique IDs 

rc = SearchForlDMatch ( pstTIF, pRec, exdata, 

TIF_SOURCEID_HASH_SLOT, 
Currentltem, ItemToIgnore, 
Last PossibleMatch, 
SlIDMatchlndex ); 
if (rc == SUCCESS || rc TI F_ILLEGAL_MATCH ) 

return TI F_ERR_NON_UNIQUE_SOURCEI D; 
else if (rc T I F_NO_MATCH ) 
return rc; 

rc = SearchForlDMatch ( pstTIF, pRec, exdata, 

TI F_TARGETID_HASH_SLOT, 
Currentltem, ItemToIgnore, 
Last PossibleMatch, 
SlIDMatchlndex ); 
if (rc == SUCCESS | | rc == TI F_ILLEGAL_MATCH ) 

return TI F_ERR_NON_UNIQUE_TARGETI D; 
else if (rc != TI F_NO_MATCH ) 
return rc; 

break; 

case TIF_FROM_TARGET: //— loading from Target App. 
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rc = SearchForlDMatch ( pstTIF, pRec, exdata, 

T I F_TARGETID_HASH_S LOT , 
Currentltem, ItemToIgnore, 
Last PossibleMatch, 
SlIDMatchlndex ); 

break; 

case TIF_FROM_SOURCE: //— loading from Source App 



rc = SearchForlDMatch ( pstTIF, pRec, exdata, 

TIF_SOURCEID_HASH_SLOT, 
Currentltem, ItemToIgnore, 
Last PossibleMatch, 
SlIDMatchlndex ); 

break; 



default : 

return TI F_ERR_BAD_TI F_ORIGIN; 

} // switch (TIF_origin) 

// check the ID match results 

if ( rc == TIF_ILLEGAL_MATCH) 
{ 

UDMatchlndex = TIF_NOTSET; 

// In FastSync mode we must add zombies for Illegal Matches 

if (TIF_bFastSyncLoad) 

*pMustAddZombie = TRUE; 

) 

else if (rc != SUCCESS && rc != TI F_NO_MATCH } 

return ILERROR (rc, rc);' // abnormal result 



} // if (TIF_nSynchronize) 
} // if {nPutOption == TIFPRO SPECIAL HISTORY FILE UPDATE ... else-. . . 



// always put zombies and bystanders into singleton SKGs 

if (isaZombie I I ( exdata [TI F_FLAGS_SLOT] & TI F_BYSTANDER ) } 

lKFMatchlndex = Currentltem; 
else 

{ 

// Item isn't a zombie, so look for a KeyFields match 

rc = Sea rchForKeyFieldsMa ten ( pstTIF, pRec, 

exdata [TI F_KEYFIELDS_HASH_SLOT ] , 
Current I tern, 
Last PossibleMatch, 
filKFMatchlndex ); 

if ((rc != SUCCESS) && ( rc != TI F_NO_MATCH ) ) 
return rc; // abnormal result 

} 



/ + 

* Initialize linkage words with results of ID and KeyField matching. 

* These linkage values are subsequently rationalized as we determine 

* whether the new record will be a singleton or a member of a group. 

* #/ 

exdata [TIF_NEXT_IN_CIG_SLOT] = UDMatchlndex; // sanitized later 
exdata [TIF_NEXT_IN_SKG_SLOT] = lKFMatchlndex; // sanitized later 

if { nPutOption == T I FPRO_AN ALY ZE_AN D_STOR E_N EW_RECOR D 
I I nPutOption == TIFPRO_STORE_SPECIAL_ZOMBIE ) 

{ 

// Increment the number of records in the file 
Currentltem = TIF lCurrentRecNum = TIF Tota lRecordCount++; 



// If new item is party to an ID-match, set appropriate flag bits 

if (UDMatchlndex == TIF_NOTSET) 

exdata [TIF_FLAGS_SLOT] 1= TIF_origin; 
else 

{ 

if (TIF_origin == TIF_FROM_TARGET) 

exdata [TIF_FLAGS_SLOT] |= TIF origin I TIF ID MATCH PT; 
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else 

^ exdata [TI F_FLAGS_SLOT ] |= TIF_origin | TI F_ID_MATCH_PS; 

switch (nPutOption) 
{ 

case TIFPRO~ANALYZE_AND_ST0RE_NEW_REC0RD: 
case TI FPRO_STORE_S PECI AL_Z0MBI E : 

// Write out the field info record to the next record in file 
rc = ILDFX_AddRecord { phFile, Currentltem, 

pRec, TIFREC_SIZE(pRec) , exdata In- 
break; 

case T I F PRO_AN AL Y Z E_AN D_U P DAT E_R ECOR D : 

// Update data and exdata for current item 

rc = ILDFX_UpdateRecord ( phFile, Currentltem, 

pRec, TIFREC_SIZE(pRec) , exdata ); 

break; 

case TIFPRO_SPECIAL_HISTORY_FILE_UPDATE: 

// Update exdata only, for current item 
rc = ILDFX_UpdateRecord ( phFile, Currentltem, 

NULL, 0, exdata ); 

break; 
default : 

rc = TI F_ERR_BAD PUT RECORD OPTION; 

} 

if (rc != SUCCESS) 
return rc; 

/* 

* Mark P-item as party to an ID match, if an ID match was found. 

* v 

if ( UDMatchlndex != TIF NOTSET) 
{ 

if (TIF_origin == TI F_FROM_TARGET ) 

TIFX_FLAGS (phFile, UDMatchlndex) |= TI F_I D_MATCH_PT; 
else 

^ TIFX_FLAGS (phFile, UDMatchlndex) |= T I F_I D_MATCH_PS ; 

/ + 

* Except for 1 HistoryFileUpdate • we force all FIGs to be singletons 
+■ . _ 

if (nPutOption != TIFPRO_SPECIAL_HISTORY_FILE_UPDATE ) 
TIFX_NEXT_IN_FIG(phFile, Currentltem) = Currentltem; 

// cement the new member into a CIG 

rc = InitiateNewGroupMember ( phFile, Currentltem, 

TIF__NEXT_IN_CIG_SLOT, "CIG" ); 

// cement the new member into an SKG 

if ( rc == SUCCESS) 

rc = InitiateNewGroupMember ( phFile, Currentltem, 

TIF_NEXT_IN_SKG_SLOT, "SKG" ); 

return rc; 
} // AnalyzeAndStoreRecord 



/* 

* Name: TI FAd j ust Record If Changed 

* Called by: GetResol ut ion function, in TI FMERGE . CPP 

* Purpose: To make storage and search key adjustments for a Reconciled 

* Record, which the user may have edited. 

* If the user hasn't edited the Source Record, we don't 

* change a thing. 
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* User may have edited the record, so we need to re-compute 

* the KeyFields Hash and NonKeyFields Hash and Start&End DTTM . 

* If Key Fields have changed at all we need to re-compute 

* SKG membership. If anything has changed we need to store 

* new data record on disk, replacing old SOURCE record. 

* Author: David ~Boothby, Copyright (c) IntelliLink Corporation, 1995 
* */ 

int TI FAd j ustRecordl f Changed ( PSTTI F_TYPE pstTIF, INT32 Item) 
{ 

ILDFX_PHNDL phFile = TIF_hFile; 

TIF_RECORD_VALUE_PTR pRec = TI F_pCur r en t Record; 

/* — 

* The exdata array is where Search Keys and Linkage words live. 

* Search Keys are Hash Values and Start&End DTTM Values 

+ + 1 

INT32 exdata [TI F_EXDATA_PER_RECORD] ; 

IL_MEMSET( (IL_PANY) exdata, 0, sizeof ( exdata J ) ; 

int rc = TI FComputeSe arch Key Values ( pstTI F, pRec, exdata); 
if (rc != SUCCESS) 
return rc; 

/ + 

* Determine whether anything at all has changed. Check for changes both 

* to Key Fields and to Not-No-Reconci le Non-Key Fields. 

* *• / 

if ( exdata [TI F_KEYFIELDS_HASH_SLOT] —— TI FX_KEYFI ELDS_HASH ( phFi le, Item) 
&& exdata [TI F_NKFIELDS_HASH_SLOT ] == TI FX_NKFIELDS HASH (phFile, Item) ) 

{ 

// compare in-memory record with on-disk record 

rc = TIFVerifyFieldsMatch (pstTIF, pRec, -1, Item, T I FW_ALL_ FIELDS ) ; 
if (rc != TI F_NO__MATCH ) 

// SUCCESS (no changes, nothing to do) or abnormal error 

return rc; 

} 

/* 

* At this point we know that one or more fields have changed. 

* Now determine whether any key fields have changed. . . 

* We have to do this BEFORE updating the record on disk. 

* v 

BOOLEAN bKeyFieldsHaveChanged; 

if (exdata [TIF_KEYFIELDS_HASH_SLOT] TI FX_KEY FIELDS_HASH ( phFi le, Item)) 

bKeyFieldsHaveChanged = TRUE; 
else 

{ 

rc = TIFVerifyFieldsMatch (pstTIF, pRec, -1, Item, TI FW_KEY_FIELDS ) ; 
if ( rc == SUCCESS) 

bKeyFieldsHaveChanged - FALSE; 
else if (rc == TI F_NO_MATCH ) 

bKeyFieldsHaveChanged = TRUE; 
else 

return rc; // abnormal error 

} 

if (bKeyFieldsHaveChanged) 

TIFlogsz ( "Source Record was edited; KeyFields Altered" ); 
else 

TI Flogsz ( "Source Record was edited but KeyFields are unchanged"); 

/ + 

* We no longer need the un-altered record. Store the altered 

* record, replacing the previous record on disk. Also store updated 

* exdata in the ILDFX index array. First we have to copy across the 

* few exdata values not already set by 'TI FComputeSearchKeyValues ' , 

* Group membership will be adjusted later... 

* V 

exdata [ TI F_NEXT_IN_CIG_SLOT ] = TI FX__NEXT_IN_CIG ( phFi le, Item); 

exdata [TI F_NEXT_IN_SKG_SLOT] = TIFX_NEXT_IN_SKG(phFile, Item) ; 

exdata [ TI F_NEXT_IN_FIG_SLOT ] = TI FX_NEXT_IN_FIG ( phFi le, Item); 

/* 

* The FLAGS slot may have TIF ITEM IS RECURRING and/or TIF WRONG SST 
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* bits set by *TI FComputeSearch Key Values * , but we can safely get those 

* same bits from the item being adjusted, because those bits are never 

* affected by user edits. 



exdata [TIF_FLAGS_SLOT] = TIFX FLAGS (phFile, Item); 

/* _r 

* The FLAGS 2 Slot may have the TI F2_D0NE_T0D0 bit set or cleared 

* by 'TIFComputeSearchKeyValues • . The other bits are currently all 

* irrelevant to SmartMerge, but we copy them in for hygiene sake, 

* + / 

exdata [TIF_FLAGS2_SL0T] &= TI F2_D0NE_T0D0; 

exdata [TIF_FLAGS2_SL0T] |= ( TI FX_FLAGS2 ( phFi le, Item) & ~TI F2_D0NE_T0D0 ) ; 

rc = ILDFX_UpdateRecord ( phFile, Item, 

pRec, TIFREC_SIZE(pRec) , exdata ); 

if (rc != SUCCESS) 
return rc; 

/* 

* If Key Fields haven't changed, we're done! 

* v 

if (bKeyFieldsHaveChanged == FALSE) 
return SUCCESS; 



/* 

* Key Fields have changed, so we have to change SKG membership. 

* First remove item from the SKG that it currently belongs to. 
+ / 

rc = TIFremoveFromSKG (phFile, Item, NULL); 
if (rc != SUCCESS) 
return rc; 

/ + 

* Now look for a different SKG to put it in... 

* . #/ 

INT32 Matchingltem; 

rc = SearchForKeyFieldsMatch ( pstTIF, pRec, 

TI FX_KEYFIELDS_HASH (phFile, Item) , 
Item, -1, // search entire index 
SMatchingltem ) ; 

if (rc == TIF_NO_MATCH) 

return SUCCESS; // all done; Item is now in its own singleton SKG 
else if (rc != SUCCESS) 

return rc; // abnormal error 

/* 

* Found a KF Match; add item to the SKG that contains the Matching Item 
* v 

TIFX_NEXT_IN_SKG (phFile, Item) - Matchingltem; 

rc = InitiateNewGroupMember (phFile, Item, TI F_NEXT_IN_SKG_SLOT, "SKG"); 
return rc; 

} // TIFAdjustRecordlfChanged 



/* 

* Name: Veri f yIDMatch 

* Compare full ID field values to verify match. 

* This is an expensive operation, done only when ID Hash values match. 

* WARNING: uses the TI F_Current Field and TIF OriqinalField buffers 

r z 

static int Veri f yIDMatch ( PSTTI F_TYPE pstTIF, 

TI F_RECORD_VALUE_PTR pRec, 
INT32 SecondRecordlndex, 
int IDSlot) 

{ 

/* 

* Use 'secondRecordlndex* to read second record from ILDFX file. 

* First record is held in memory as +pRec. Iterate thru 

* all fields, looking for key fields. For each key field compare the 

* field values found in the two records. Return SUCCESS iff 

* ID field values match exactly. 
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* Other return values are T I F_NO_MATCH , or other error codes for 

* abnormal error conditions. 
* _ _ 

int rc; 

INT32 FirstlDLength; 
INT32 SecondlDLength; 
INT16 IDFieldNum; 

if (IDS lot == TIF_SOURCEID_HASH_SLOT) 
IDFieldNum = TIF_SourceIDFieldNum; 
else 

IDFieldNum = TI F_Ta rgetl DFieldNum; 

rc = TIFRetrieveFieldBylndex ( pstTIF, 

IDFieldNum, 
SFirstlDLength, 
&TIF_Cur rent Field, 
pRec ) ; 

if (rc != SUCCESS) 

return rc; // abnormal error 

rc = TIFRetrieveRecord (pstTIF, SecondRecordlndex, &TIF SecondRecord ) ; 

if (rc == SUCCESS) 

{ 

// we arbitrarily choose to use ' TI F_Original Field 1 buffer here 

rc = TIFRetrieveFieldBylndex ( pstTIF, 

IDFieldNum, 

SSecondlDLength, 

&TIF_Original Field, 

TI F_pSecondRecord ); 

if (rc =«« SUCCESS } 
{ 

if (TIFFieldValuesDif fer ( pstTIF, 

(IL_PSTRJ TIF_pCurrentField, // first ID 
(IL_PSTR) TIF_pOriginalField, // 2nd ID 
FirstlDLength, SecondlDLength, 
IDFieldNum ) ) 

rc = TIF_NO_MATCH; 
else 

rc = SUCCESS; 



return rc; 
) // VerifylDMatch 



/ + 

* Function: SearchForlDMatch 
+■ 

* Search for any item other than ' Excludedltems (1 & 2)* that has same ID 

* as CurrentRecord . Can search for SourcelD or TargetID match. 

* If we find an ID match between two non-zombie items where one is Simple 

* and the other is Recurring, report an ILLEGAL MATCH. 

* #/ 

static int SearchForlDMatch ( PSTTI F_TYPE pstTIF, 

TIF_RECORD_VALUE_PTR pRec, 

INT32 *exdata, // in (array) 

int slotlndex, // sourcelD or targetID 

INT32 Excludedlteml, 

INT32 Excludedltem2, 

INT32 LastPossibleMatch, 

INT32 *pMatchIndex) // out 

( 

INT32 lFlags; 

I LDFX_PHNDL phFile = TIF_hFile; 
ILDFX_EC ec; 

INT32 IKey = TI F_FIRST_ITEMNO - 1; // (so that IKey+l is First Item#) 

INT32 lHashSought = exdata [slotlndex] ; 
if (lHashSought == TIFHASH NONE) 
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return TI F_NO_MATCH; // zero-length IDs. don't match ... otherwise we'd 

// see lots of non-uniquelD errors. 

// make our item exclusion logic as efficient as possible 

if (Excludedlteml == -1) 

Excludedlteml = Excludedl tem2 ; 



//"- TIF/ILDFX/IndexScanningLoop 

{ 



INT32 lNextKey = IKey + 1; 

ec « ILDFX_FindNextExDataMatch (phFile, 

lNextKey, 

Excludedlteml, 

Last PossibleMatch, 

lHashSought , 

slotlndex, // ExData[] index 

SlKey); // OUT : found key 

if (ec != ILDFX_OK) 
break; 



// skip over 2nd excluded item 

if (IKey == Excludedltem2 } 
continue; 



lFlags = TIFX_FLAGS (phFile, IKey) ; 

// skip over any unanalyzed/garbage records 

// but do not skip over zombie or bystander records here 

if (lFlags & ( TI F_IS_UN ANALYZED j TI F_IS_GARBAGE J ) 
continue; 



// now compare full IDs for equality 

ec = VerifylDMatch (pstTIF, pRec, IKey, slotlndex); 
if (ec ! = TIF_NO_MATCH) 

break; // leave loop on SUCCESS or abnormal error 

} 



if {ec == ILDFX_END_OF_INDEX) 

return TI F_NO_MATCH ; 
else if (ec != SUCCESS) 

return ec; 

/* 

* Found a match, now make sure it's unique. 

* When an ID match is found, we OR a bit into the FLAGS slot, for both 

* partners in the match. Here we check to make sure that the bit 

* isn't already set. If it is, we have a non-unique ID problem. 

* V 

INT32 IMask; 

switch (slotlndex) 
{ 

case TI F_TARGETID_HASH_SLOT : 

IMask = TI F_ORIGIN_MASK I TI F_ID_MATCH_PT; 
break; 

case TIF_SOURCEID_HASH_SLOT: 

IMask = TIF_ORIGIN_MASK | TI F_ID_MATCH_PS ; 
break; 

default : 

^ return TIF_ERR_BAD_ID_SLOT; 



if ((lFlags & IMask) != TIF FROM PREVIOUS) 
( 

if (slotlndex == TIF_SOURCEI D_HASH_SLOT) 

return TI F_ERR_NON_UNIQUE_SOURCEID; 
else 

return TI F_ERR_NON_UNIQUE TARGETID; 

} 



// If incoming item matches a BYSTANDER, kill the bystander 

// by turning it into garbage. The new input, which may or 

// may not be a zombie, will replace the old bystander. 

if (lFlags & TIF BYSTANDER) 
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TIFloglint (90, "Killing 
TIFX_FLAGS (phFile, IKey) 
TIFX_FLAGS (phFile, IKey) 
return TIF_NO MATCH; 



bystander #%ld", IKey) ; 
&= *-TI F_BYSTANDER; 
1= TIF_IS GARBAGE; 



*pMatchIndex = IKey; */ 
/* 

* This r wU? u \h " n0n " h reCU " lng ' rep ° rt an ILLEGAL matcn 

* t e i fn n6Ver haVe tC P roces s UPDATES from Simple 

* an ADD and a' DELETE^ rtlVl I™?** ^ " UP ° ATE iS Pressed as 

.. muu ana a DELETE . This is to just to "KISS" off a host of 

I-!™'!!! UPDATE 03563 involvi "S FANNING, etc.) 

Jn^9 lo 0 ^? = ex< ^ ata ( T I F_ FLAG S_S LOT] * TIF -ZOMBIE; 

N^32 Recur2 - 1 n T^ 05 - 31 ^ & TI OTEM IS RECURRING; 
inij^ !Recur2 = lFlags & TI F_ITEM_IS_RECURRING; " " 

if (lZombie — 0 && IRecurl != lRecur2) 
return T I F_I LLEGAL_MATCH ; 

// Here we have an unimpeachable ID match 

else 

return SUCCESS; 



} // SearchForlDMatch 



/ + 

* Function: Search ForKeyFieldsMatch 



* aT^en^eco^^ ^ thM that has sa me Key Fields 



static int SearchForKeyFieldsMatch { PSTTI F_TYPE pstTIF* +/ 

TIF_RECORD_VALUE_PTR pRec, 
INT32 lHashSought, 
INT32 Excludedltem, 
INT32 LastPossibleMatch, 
( INT32 *pMatchIndex) 

INT32 lFlags; 

ILDFX_PHNDL phFile - TIF hFile; 
ILDFX_EC ec; 

INT32-lKey = TIF_FI RS T_ITEMNO - 1; // (so that 1Key+1 is ^ 

fo r ( . . j TIF/ILDFX/IndexScanningLoop 
{ 

INT32 lNextKey = IKey + 1; 

ec = ILDFX_FindNextExDataMatch (phFile, 

lNextKey, 

Excluded I tern, 

LastPossibleMatch, 
lHashSought , 

TIF_KEYFIELDS_HASH_SLOT, // in ExData [ ] 
if (ec !- ILDFX_OK) &lKey) ; // 0UT . fQund key 

break; 

'lFlags = TIFX_FLAGS( phFile, IKey); 

(f'u^lals^^irJ^OREr 16 ° C ° r ««»>.g. or bystander records 

continue; 
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ec = TIFVerifyFieldsMatch (pstTIF, pRec, -1, lKey, TIFW KEY FIELDS); 
if (ec != T I F_NO_MATCH ) ~ 

break; // leave loop on SUCCESS or abnormal error 

) 



if ( ec == SUCCESS) 
{ 

*pMatchIndex = lKey; 
return SUCCESS; 

} 

else if (ec == ILDFX_END_OF_INDEX ) 

return T I F_NO_MATCH ; 
else 

return ec; // abnormal error 

} // SearchForKeyFieldsMatch 



/* 

* Name: Ef f ect iveFieldLength 

* Purpose: Get field length, adjusted for whether it is BINARY or not. 

* For non-zero length non-binary fields, subtract one from 

* length to exclude the null terminator. 

* Author: David Boothby, Copyright (c) IntelliLink Corporation, 1995 

static INT32 Ef fectiveFieldLength ( PSTTI F_TYPE pstTIF, 

TIF_RECORD_VALUE_PTR pRecord, 
int fieldnum ) 

{ 

INT32 lFieldLength = TI F_FieldLength ( pRecord, fieldnum); 
if (lFieldLength == 0) 
return 0; 

else if (TIF_FieldType (pstTIF, fieldnum) == ILX_TYPE_BINARY ) 

return lFieldLength; 
else 

return 1 FieldLength-1 ; 
} // Ef fectiveFieldLength 



/* 

* Name: Ini tiateNewGroupMember 

* Purpose: patch new entry into circular list (CIG or SKG) 

* Author: David Boothby, Copyright (c) IntelliLink Corporation, 1995 

* NOTE: we want to maintain the following ordering rules within Groups: 

* 1. keep same-origin items together, with all P-items first, followed 

* by all T-i terns, followed by all S-items. 

* 2. Within a set of same-origin items in a group, preserve load order. 

* The order of items in the list should be the 

* same as the order in which items join the group. 

+ This function is responsible for enforcing rules 1 and 2, regardless of 

* the order in which items are loaded. We may decide to load S-items before 

* loading T-items, but this function will still maintain PTS order inside 

* groups. 
■*■ 

* BUT NOTE that the order of items in the ILDFX index is determined by load 

* order, so if S-items are loaded before T-items, then any st a rt-to- finish 
+ scan of the ILDFX index will find S-items before T-items. 

* So, when you get results of an ILDFX index scan (e.g. from the function 

* • ILDFX_FindNextExDataMatch ' ) do not assume that you'll hit T-items before 

* hitting S-items'. 



static int Ini t i ateNewGroupMember ( I LDFX_PHNDL phFile, 

INT32 RecordNumber, 
int LinkSlot, 
IL PSTR szGroupType ) 

{ 

INT32 Matchlndex = TI FX_NEXT_IN_GROUP ( phFi le, RecordNumber, LinkSlot); 
if (Matchlndex -= TIF NOTSET) 
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{ 

// create a singleton group; no ordering rules apply 

TIFX_NEXT_IN_GROUP(phFile, RecordNumber , LinkSlot} = RecordNumber; 

ILLOG_logszszul ( ILDFXLOG ( ph File ) , 95, "%s: item Hid forms singleton", 

szGroupType, RecordNumber ); 

return SUCCESS; 

} 

else 
{ 

// adding to a group; enforce ordering rules 

INT32 Flags = TI FX_FLAGS ( phFi le, RecordNumber); 
INT32 InsertType = Flags & TI F_ORIGIN_MASK; 
INT32 InsertAfter; 
INT32 InsertBefore; 

// Note what type to insert after, and what type to 

// insert before, to maintain PPPTTTSSS ordering. 

switch (InsertType) 
( 

case TIF_FROM_PREVIOUS: InsertAfter = TI F_FROM_SOURCE; 

InsertBefore = TI F_FROM_TARGET; 
break; 

case TIF_FROM_TARGET: InsertAfter « TI F_FROM_ PREVIOUS ; 

InsertBefore = TI F_FROM_SOURCE; 
break; 

case TIF_FROM_SOURCE: InsertAfter = TI F_FROM_TARGET; 

InsertBefore = TI F_FROM_PREVIOUS; 
break; 

^ default: return TI F_ERR_BAD_NEWMEMBER_ORIGIN; // never happens 

Flags = TIFX_FLAGS(phFile, Matchlndex); 
INT32 MatchType = Flags & TI F_ORIGIN_MASK; 

/* 

* Determine Insertion Rule, which depends on type of item to be 

* item to be inserted, and type of the "match item" -- i.e. the 

* group member who is sponsoring the new item. 



* Note that all insertion rules allow for the degenerate case where 

* the entire group is homogeneous (all same type). In that case, 

* the new item is inserted just before the match item. 
■*- 



enum 
( 

INSERT_AT_END_OF_CURRENT_STREAK, 
INSERT_BE FORE_CURRENT_STREAK, 
INSERT_BEFORE_ANY_ALIEN STREAK 

} 

Rule; 



if (InsertType === MatchType) 

Rule = INSERT_AT_END_OF_CURRENT_STREAK; 
else if (InsertBefore == MatchType) 

Rule = INSERT_BEFORE_CURRENT_STREAK; 
else 

Rule = INSERT_BEFORE_ANY_ALIEN_STREAK; 

/ + 

* Example of "insert before any alien streak": 

* suppose we're trying to insert a T-item, and the matchType is P. 

* We don't know whether the group currently contains any T-items 

* or S-items; all we know is that it contains at least one P-item. 

* So we must go forward until we hit a type boundary that marks the 
beginning of a non-T streak. Insert the T-item just before that 

* boundary. Of course degenerate "bef ore-ma ten" insertion occurs 
if group is homogeneous (all items are P-items, in this example). 

— — — — — 

// 

INT32 Current = Matchlndex; 
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INT32 CurrentType = MatchType; 
INT32 Next; 
INT32 NextType; 
int i; 

for i TIF_MAX_GROUP_SIZE; // count to guard against infinite loop 

Next =■ TtFGroup_GetNext (phFile, Current, LinkSlot); 
if (Next < 0) 

return (int) Next; // next node failed sanity check!! 

if (Next == Matchlndex) // we've come full circle... 
goto INSERT_IT_HERE; 

Flags = TIFX_FLAGS( phFile, Next); 
NextType = Flags & TIF_ORIGIN_MASK; 

// We always insert at a Type Boundary. . . 

if (NextType != CurrentType) 
{ 

switch (Rule) 
{ 

case INSERT_AT_END_OF_CURRENT_STREAK: 
goto INSERT_IT_HERE; 

case INSERT_BEFORE_CURRENT_STREAK: 
if (NextType == MatchType) 

goto INSERT_IT_HERE; 
else 

break; 

case INSERT_BEFORE_ANY_ALIEN_STREAK: 
if (NextType != InsertType) 
goto INSERT_IT_HERE; 

} 

} 

CurrentType = NextType; 

Current = Next; // keep on circling... 

) 

if (i > TIF_MAX_GROUP_SIZE) // SKG list not circular ? 

return TI F_ERR_BROKEN_SKG; 

INSERT_IT_HERE: 
// 

TIFX_NEXT_IN_GROUP (phFile, Current, LinkSlot) = RecordNumber ; 
TIFX_NEXT_IN_GROUP(phFile, RecordNumber, LinkSlot) = Next; 

if (ILLOG_VERBOSE_ENOUGH ( I LDFXLOG ( phFi le ) , 95)) 
{ 

char szLog [ 80] ; 

IL_SPRINTF ( szLog, "Is: item Hid inserted between Hid and Hid", 

szGroupType, RecordNumber, Current, Next }; 
ILLOG_logsz ( I LDFXLOG (phFile ) , 95, szLog ); 

} 

return SUCCESS; 

} 

} // InitiateNewGroupMember 

/* 

* Name: TI FSetSimpleApptSpan 

* Author: David Boothby, Copyright (c) IntelliLink Corporation, 1995 

* NOTE: several restrictions and assumptions apply. There is code in 

* TIF.CPP/TIFStartNextPhase and TIFIdentifyDistinguishedFIelds 
which verifies that these assumptions hold. 



Start Date and Start Time must be absolute 

(it wouldn't be all that hard to relax that restriction, 
but for now there's no need to do so.) 
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End Date and End Time may be absolute or relative 
End Date is not required. 

Midnight crossings are allowed, and are correctly handled here. 
We allow all possible combinations of UNSPECIFIED, RELATIVE, and 
ABSOLUTE -end dates & times. Depending on actual values, some 
combinations may be absurd. For example, what should we do with 
the following inputs: 

Start: 10pm on 12/25/95 
EndDate: 12/26/95 {absolute) 
EndTime: 48 hours (relative) 

The following rules are applied (there may be room for improvement...) 

* When a Relative EndTime and an Absolute EndDate are 

* supplied as input, ignore the EndDate input; we compute 

EndDate ourselves in this case. 
+ _ 

" — — -k i 

int TIFSetSimpleApptSpan ( PSTTIFJTYPE pstTIF, 

TIF_RECORD_VALUE_PTR pRecord, 
INT32 IL_DIST *plStart, 
^ INT32 IL_DIST *plEnd ) 

IL_PSTR IpszTime; 
IL_PSTR IpszDate; 

/* 

* Get Start Time -- assumed to be absolute 
+> _ 

+ / 

if {TIF_StartTimeFieldNum == TI F_NOTSET ) 
IpszTime = "0000"; ~ 

else if (TIF_FieldOf fset (pRecord, TIF Sta rtTime FieldNum) == TIF NOTSET) 

IpszTime = "0000"; ~ - 

else 

IpszTime = TIF_FieldData (pRecord, TIF_StartTimeFieldNum) ; 

/* 

* Get Start Date — assumed to be absolute 
+ _ 

if (TIF_StartDateFieldNum == TIF_NOTSET) 

IpszDate = "19961231"; 
else 

IpszDate = TI F_FieldData (pRecord, TI F_Sta rt DateFieldNum) ; 
/* 

* combine Start Date & Time into minutes since the year 1900 

. +/ 

*plStart ~ TIFConvertDateTime (IpszDate, IpszTime); 

/* 

* Get End Time — may be Absolute or Relative 
+ 

if (TIF_EndTimeFieldNum == TI F_NOTSET ) 
IpszTime = "0000"; 

else if (TIF_FieldOf fset (pRecord, TIF EndTimeFieldNum) TIF NOTSET) 

IpszTime = "0000"; ~ ~ 

else 

IpszTime = TI F_FieldData (pRecord, TIF_EndTimeFieldNum) ; 

/ + 

* Get End Date (Absolute or Relative) if EndDate Field is defined 

+ / 

INT32 DaysFromStartToEnd; DaysFromStartToEnd = TIF NOTSET; 
if (TIF_EndDateFieldNum != TI F_NOTSET ) 

IpszDate = TI F_FieldData ( pRecord , TI F_EndDateFieldNum) ; 

if (TIF_RelatedFieldNum(pstTIF, TIF_EndDateFieldNum) != TIF NOTSET) 

// EndDate is Relative... ~" 

DaysFromStartToEnd = strtol ( IpszDate, 0, 10); 
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/* 

* If End Time and/or Date is relative, compute absolute values 

* + / 
if ( (TIF_EndTimeFieldNum != TIF_NOTSET) 

^ && (TIF_RelatedFieldNum(pstTIF, TI F_EndTimeFieldNum) != TIF NOTSET ) ) 

add duration (in minutes) to start to get end 

INT32 lMinutes = strtol ( IpszTime, NULL, 10}; 
*plEnd = *plStart + lMinutes; 

// ignore Absolute EndDate, but use Relative EndDate value (days) 

if ( DaysFromStartToEnd != TIF_NOTSET) 
^ *plEnd +» DaysFromStartToEnd * 1440L; // days * 24Hours * 60Mins/Hr 

else 
{ 

// EndTime is Absolute; how about EndDate? 

if ( (DaysFromStartToEnd == TI F_NOTSET ) 

&& (TIF_EndDateFieldNum != TI F_NOTSET ) ) 

// Both EndTime and EndDate are Absolute 

*plEnd = TIFConvertDateTime ( IpszDate, IpszTime); 
else 

{ 

// EndTime is Absolute; EndDate is either Relative or UNSPECIFIED 

INT32 lEndTime = IL_AlphaToCodeTime ( IpszTime ) / 60; 
INT32 IStartTime = CplStart) % 1440L; 

// combine StartDate with EndTime 

*plEnd = *plStart + lEndTime - IStartTime; 

if (DaysFromStartToEnd > 0) 
{ 

/* 

* with endpoint 1 or more days after start, we don ( t have 

* to worry about the endTime being before the startTime. 

* 

*plEnd += (DaysFromStartToEnd * 1440L); 

} 

else if (lEndTime < IStartTime) 

// force a midnight crossing to avoid negative-length appt 

*plEnd += 1440L; 



return SUCCESS; 
} /'/ TIFSetSimpleApptSpan 



/* 

+ Name: SetRecurr ingApptSpan 



static int SetRecur ringAppt Span ( PSTTIFJTYPE pstTIF, 

TIF_RECORD_VALUE_PTR pRecord, 



7 



ILTR_PREPEAT pRepeat, 
INT32 IL_DIST *plStart, 
INT32 IL_DIST *plEnd ) 



INT32 lEndDate; 
INT32 ITimelnMinutes; 
IL_PSTR IpszTime; 



/* 

* Get Start Time — assumed to be absolute 



/ 



if ( TI F_Sta rtTime FieldNum == TI F_NOTSET ) 
IpszTime = "0000"; 

else if (TIF_FieldOf fset (pRecord, TIF_StartTimeFieldNum) == TIF NOTSET) 

.IpszTime = "0000"; ~ 
else 

IpszTime = TI F_FieldDat a ( pRecord , TI F_St a rtTimeFieldNum) ; 

if ( IL_AlphaTimeOK (IpszTime)} 

ITimelnMinutes = IL_AlphaToCodeTime (IpszTime) / 60; 
else 
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